-
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
