-
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
-
vb 设置窗体透明度
vb 拖动滑块设置窗体透明度，在如图所示的窗体中，有一个滑块可左右滑动，用户可改变滑块的值，来改变窗体的透明度，如图所示是在30%位置的透明度效果，滑块往右，则透明度减小，也就是窗体越清淅，往左则窗口越来越透明。源码运行于VB6.0，欢迎VB爱好者下载研究源码。
- 2022-02-04 04:51:17下载
- 积分：1
-
VB 只允许输入特殊字符
VB 只允许输入特殊字符，这只是一个普通的用户查询窗口，字段名称、运算符、关 键 字，然后对其进行查询，因为要向cbofields中添加规范化数据，所在再输入时只能输入“>”、“
- 2022-03-19 10:07:52下载
- 积分：1
-
VB制作可移动按钮位置的Toolbar工具栏
VB制作可移动按钮位置的工具栏，这个窗口中的Toolbar允许用户自己调整位置，可以拖动至指定位置，记得word中的工具栏就是这样，当你改变默认的工具栏布局时，程序会使用 MsgBox ("您确实要调整工具栏按钮的位置吗？")弹出确认信息。另外，本范例也可看作是一个在VB窗口中制作图标菜单的好范例，如示例图所示的效果。
- 2022-11-01 12:50:03下载
- 积分：1
-
文件夹复制VB6.0实例
文件夹复制VB6.0实例源码，这里用了一个用户自定义函数，此函数可以出现一个对话框，并返回所选择的路径，若没有选择返回("")。模拟了Windows系统的文件夹模拟功能，看上去比较低级，只是通过这个功能，熟悉一些VB与文件操作的函数用法。
- 2022-03-05 20:29:32下载
- 积分：1
-
VB6.0 获取网络连接信息
VB6.0 获取网络连接信息，在如图所示的窗口中，点击按钮即可获取显示本机的网络连接信息，这些信息包括：
是否通过LAN连接、是否通过Modem连接、是否通过Proxy连接、是否在线连接、是否安装了网络RAS等信息。获取完成最后可提示：“系统通过LAN与Internet连接，系统安装了远程访问服务”。
- 2023-05-26 06:40:02下载
- 积分：1
-
VB 6.0 AscW将汉字转换为Unicode字符代码
本源码演示VB 6.0 如何将汉字转换为Unicode字符代码，在窗口中输入汉字，单击按钮，即可将汉字转换为Unicode字符，其实这个实现起来也比较简单，用VB内置函数AscW即可实现，代码的编写可参考如下：
Private Sub Command1_Click()
Text2.Text = AscW(Text1)
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
- 2022-08-09 07:08:37下载
- 积分：1
-
VB6.0 获取汉字拼音简码（首字母）
VB6.0 获取汉字拼音简码，获取汉字拼音首字母，这个比较实用了，现在很多地方都会取首字母作为编号、帐号之类的，代码比较多，这里就不帖核心代码了，大家自行下载本源码吧，运行的效果如截图所示。
- 2022-04-15 06:44:52下载
- 积分：1
-
VB 6 在DataGrid表格中实现下拉列表框
VB 6.0 在DataGrid表格中实现下拉列表框，大家可以看截图，在如演示效果所示的DataGrid表格中，单击“单位”一列任意行数据，会显示出一个下拉框，供输入者选择单位，扩展了DataGrid的功能，增加了易用性，提升了用户体验。添加这一功能的核心代码为：
Adodc1.CommandType = adCmdTable
Adodc1.RecordSource = "tb_stock"
Set DataGrid1.DataSource = Adodc1
List1.AddItem ("支")
List1.AddItem ("瓶")
List1.AddItem ("盒")
List1.AddItem ("袋")
DataGrid1.Columns(6).Button = True
仅供参考，本示例是配合数据库实现的，请确保测试时数据库是连接的。
- 2022-07-26 04:39:52下载
- 积分：1
-
分享一个VB Excel表格生成模块
分享一个VB Excel表格生成模块，借助了模块中的ChangeToExcel.ocx组件来生成，使用时需要引入此组件。该组件中具备创建Excel文件、向Excel文件中插入内容、出错处理等功能。
Excel表格生成模块为该组件的源代码文件，你还可以通过源码对组件功能进行调整。
Demo文件夹下是使用此组件导出Excel文件的例子，单击按钮即可生成Excel文件。
- 2022-11-26 13:10:03下载
- 积分：1
