-
VB SetWindowLong限制调整窗口大小的最大值
VB 限制调整窗口大小的最大值,我们根据SetWindowLong函数的说明 ,可写出一个函数,当用户拖动窗口时,控制窗口最大能拖动到什么大小,当达到最大值时,窗口就不能继续被拖大,我们定义一个函数,在打开这个VB窗口时自动加载函数,实现对窗口最大拖动大小的控制:
Private Sub Form_Load()
Dim ret As Long
preWinProc = GetWindowLong(Me.hWnd, GWL_WNDPROC)
ret = SetWindowLong(Me.hWnd, GWL_WNDPROC, AddressOf wndproc)
End Sub
- 2022-10-14 18:50:03下载
- 积分:1
-
VB6.0 获取网络连接信息
VB6.0 获取网络连接信息,在如图所示的窗口中,点击按钮即可获取显示本机的网络连接信息,这些信息包括:
是否通过LAN连接、是否通过Modem连接、是否通过Proxy连接、是否在线连接、是否安装了网络RAS等信息。获取完成最后可提示:“系统通过LAN与Internet连接,系统安装了远程访问服务”。
- 2023-05-26 06:40:02下载
- 积分:1
-
VB6.0使用InPutBox显示密码输入框
VB6.0使用InPutBox显示密码输入框,InPutBox大部分情况下是用于输入数据,与用户交互,但这些数据并不是密码类型的,本实例是展示是使用InPutBox作为密码输入框,其实也是挺简单的:
Private Sub Command1_Click()
On Error GoTo Err_Out
Dim lTemp As Long
Dim sTemp As String
lTemp = SetTimer(Me.hwnd, NV_INPUTBOX, 1, AddressOf TimerProc)
sTemp = InputBox("请输入密码", "密码输入框")
Err_Out: End Sub
- 2023-02-13 07:30:04下载
- 积分:1
-
VB6.0 使用ADO对象访问数据库
VB6.0 使用ADO对象访问数据库,这个例子其实很简单,就是基本的VB连接数据库、读取数据库内容,然后浏览一条一条的数据,最后关闭数据库,面向VB编程开发新手,有兴趣下载整个源码,在代码中都有详细的注释,因此很适合学习一些数据库操作的基础知识,源码运行截图如下:
- 2022-08-22 22:55:07下载
- 积分:1
-
vb.net 读取INI文件示例
vb.net vs2008读取INI文件示例,ini文件名为 Send.ini,代码中包括了一个读ini API函数。
Ini文件说明:
[节名] []中的节名对应此API的第一参数
Name=内容 Name对应此API的第二参数
API的第三参数是没有取到匹配内容时返回的字符串;
API的第四参数是要返回的字符串;
API的第五参数是字符串缓冲的长度,一般255;
API的第六参数是INI文件的路径。
- 2022-02-20 08:44:55下载
- 积分:1
-
VB6.0 获取汉字拼音简码(首字母)
VB6.0 获取汉字拼音简码,获取汉字拼音首字母,这个比较实用了,现在很多地方都会取首字母作为编号、帐号之类的,代码比较多,这里就不帖核心代码了,大家自行下载本源码吧,运行的效果如截图所示。
- 2022-04-15 06:44:52下载
- 积分:1
-
VB.NET自制的看图工具软件
VB.NET自制图片查看器,一个看图工具软件,功能方面主要有图片原图显示、自动缩放图片、图片居中、自动缩放图片框、背景色设置、文件名及其路径、视图ToolStripMenuItem等。你可以通过这个小程序了解一些VB.NET与图片之间的操作技巧,另外还可以学习到窗口对话框的一些基本操作、PictureBox控件用法、目录和文件列表框的使用、处理鼠标事件、偏移量计算图片位置,重画图片、绘图画面,颜色填充、窗体界面元素控制等的控制方法。。
- 2022-12-25 17:15:03下载
- 积分:1
-
简单的VB6 播放视频文件程序
简单的VB6 播放视频文件程序,也算是一个简单的视频文件播放器吧,核心基于Windows中的msdxm.ocx控件,可控制播放文件开始暂停、快进快退等简单操作,在测试时如果程序不能运行,将本目录中的msdxm.ocx文件拷贝到C:WINDOWSsystem32目录下,然后,在"开始"/"运行"中键入regsvr32 C:WINDOWSsystem32msdxm.ocx, 回车再运行程序即可.
- 2022-09-24 03:35:03下载
- 积分:1
-
VB6.0 屏幕滚动字幕(文字滚动)
VB6 屏幕滚动字幕,这个文字滚动区域被控制在屏幕的右下角,由右向左开始滚动,中间的高度可以调节,通过调节Me.Top = Screen.Height - Me.Height - 800参数,来改变文字滚动区域距离屏幕顶部的距离,文字滚动的实现是基于计时器和循环来实现,下面的代码可为你提供本效果的实现思路:
Label1.Caption = "这里定义需要滚动的文字内容: 用VB制作的文字滚动效果!"
Me.Left = Screen.Width
Me.Top = Screen.Height - Me.Height - 800
BeginPath Me.hWnd
SetBkMode Me.hWnd, TRANSPARENT
EndPath Me.hWnd
rgn = PathToRegion(Me.hWnd)
SetWindowRgn Me.hWnd, rgn, True
Timer1.Interval = 200
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Me.Left = Me.Left - 100
If Me.Left < Label1.Width * (-1) Then
Timer1.Enabled = False
Me.Left = Screen.Width
Timer1.Enabled = True
End If
End Sub
- 2022-05-21 14:58:30下载
- 积分:1
-
VB6.0多选文件源代码实例
VB6.0多选文件源代码实例,在打开文件的对话框中,用户一次可选择多个文件,并不像平时那种一次只能打开一个文件。当然,这种打开文件需要程序的支持,而不仅仅是限制于打开多个文件而程序端不支持的现象。
- 2022-05-20 22:53:54下载
- 积分:1