-
vb根据用户输入的内容决定显示指定内容
vb根据用户输入的内容决定显示指定内容，从例子来看，是一个数据库搜索的例子，也就是用户搜索的什么，列表中会显示出相关内容。只是说法不同而已，为了可以正常运行，本示例中的数据库采用Access数据库，数据库文件为：db_Client.mdb。
- 2022-08-23 09:42:29下载
- 积分：1
-
VB6.0 获取汉字拼音简码（首字母）
VB6.0 获取汉字拼音简码，获取汉字拼音首字母，这个比较实用了，现在很多地方都会取首字母作为编号、帐号之类的，代码比较多，这里就不帖核心代码了，大家自行下载本源码吧，运行的效果如截图所示。
- 2022-04-15 06:44:52下载
- 积分：1
-
visual studio VB 学生信息管理系统 源码
用visual studio VB语言编写的学生信息管理系统 WINFORM 数据库采用的是ORACLE
- 2022-02-24 12:49:02下载
- 积分：1
-
VB程序托盘控件+源码实例
VB程序托盘控件+源码实例，VB自定义一个添加程序到Windows托盘图标的控件，编译控件源码后生成Tray.ocx，源码包中附有一个调用本托盘程序的示例，在TrayDEMO文件夹内，在Class1.cls文件中实现了托盘的主要操作：将程序图标添加到系统托盘区，将图标从系统托盘区中删除，设置图标的提示信息，添加图标右键操作等功能。
- 2022-07-07 04:23:33下载
- 积分：1
-
VB6.0仿迅雷悬浮窗口（图标）的实现源码
VB6.0仿迅雷悬浮窗口（图标）的实现源码，迅雷的悬浮窗相信大家很熟悉了，其实就是显示一个图标，悬浮在屏幕上，通过这个悬浮图标可单击右键调出菜单，双击图标则会显示主窗口，本源码模拟了悬浮窗口的实现，另外是模拟了悬浮窗口双击显示主窗口的功能。代码中注释不多，不过没有使用过多复杂的代码，对VB新手友好。
- 2022-03-24 09:58:35下载
- 积分：1
-
窗体分割 窗口分栏程序- vB版
窗体分割 窗口分栏程序- vB版，这个可将窗口分为上下部分、左右部分，可分成二栏、三栏，通过程序左侧的参数设置面板，决定程序窗口要经过怎么的切割。本源码同样来自于国外源代码网站。代码注释英文，这里就不帖代码，你可以单击页面底部的“下载源码”按钮，下载本窗口切割实例的完整源码。
- 2022-09-05 06:00:03下载
- 积分：1
-
vb.net 捕获键盘按键和鼠标XY坐标位置
vb捕获键盘按键和鼠标坐标位置，监测鼠标的位置和鼠标按键的名称，如窗体所示，随意移动鼠标，即可适时显示出鼠标坐标，若敲击键盘，则会获取到哪一个键被按下，两个功能的代码写在按钮事件中，获取鼠标XY坐标位置：
Me.Label3.Text = "x=" + e.X.ToString() + " y=" + e.Y.ToString()
获取键盘按下：
Me.Label4.Text = "code=" + e.KeyCode.ToString() + " value=" + e.KeyValue.ToString()
- 2023-06-22 15:00:03下载
- 积分：1
-
vb 通过程序设置系统日期和时间的格式
vb 通过程序设置系统日期和时间的格式，设定时可以改变长日期格式，短日期格式，改变时间格式，看着很像是以前Windows XP时候的时间设置窗口的功能。请注意，日期格式设置成功，需要重新启动计算机或注销后可以看到新的短日期格式！以下是改变日期格式其中的一个例子代码，仅供参考：
Dim ret2 As Long
Dim sd As String
ret2 = RegOpenKey(HKEY_CURRENT_USER, "Control PanelInternational", hKey)
If ret2 = 0 Then
sd = Combo1.Text
RegSetValueEx hKey, "sShortDate", "0", REG_SZ, ByVal sd, LenB(StrConv(sd, vbFromUnicode))
MsgBox "日期格式已设置成功，重新启动计算机或注销后可以看到新的短日期格式！", , "提示窗口"
End If
- 2023-06-21 17:25:03下载
- 积分：1
-
VB的保存文件对话框调用创建一例
VB的保存文件对话框调用创建一例，弹出“打开”对话框，还有保存对话框，另存为对话框，通用对话框，cdlOFNFileMustExist当用户输入非法的文件名时,要显示一个警告。
cdlOFNReadOnly指示对话框关闭时只读复选框的状态。。
- 2022-02-11 13:06:23下载
- 积分：1
-
VB 6.0 按字段显示数据库所有值
VB 6.0 按字段显示Access数据库所有值，是一个按条件查询数据库的例子，这里的数据库为BOOK2.mdb，核心的代码如下：
Private Sub Adodc1_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
End Sub
Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "ook2.mdb;Persist Security Info=False "
Adodc1.RecordSource = "select * from 作者"
Set DataCombo1.DataSource = Adodc1
DataCombo1.DataField = "城市"
Set DataCombo1.RowSource = Adodc1
DataCombo1.ListField = "姓名"
End Sub
- 2022-09-25 11:45:03下载
- 积分：1
