-
VB 记录鼠标行为，判断左键右键
VB 记录鼠标行为，记录用户是单击了鼠标右键或是左键，监控鼠标被单击了哪个键，核心的代码如下：
If GetAsyncKeyState(VK_LBUTTON) = -32767 Then
Text1.Text = Text1.Text + " 鼠标左键 "
ElseIf GetAsyncKeyState(VK_RBUTTON) = -32767 Then
Text1.Text = Text1.Text + " 鼠标右键 "
End If
- 2022-02-28 11:29:47下载
- 积分：1
-
VB 演示创建视图 使用视图保存数据
VB 演示创建视图 以及使用视图保存数据，数据库选择了MSSQL，根据各数据库字段创建视图，并使用这个视图进行数据保存，测试前请确保数据库连接成功。
- 2022-07-17 20:55:23下载
- 积分：1
-
vb.net 串口通讯测试项目源码
vb.net 串口通讯测试项目源码，本源码用于练习SerialPort控件、DataReceived事件、16进制操作，同时用于工程需要。作者：李潇海。
运行后先检测测试需用的COM端口是否打开，弹出提示。
测试时请确保发送周期为正整数！串口测试窗口中，可配置参数：端口、波特率、检验位、数据位、停止位等，支持以十六进制发送和接收数据，还可以毫秒定时发送数据。操作方式上，可设置自动清空测试数据，发送文件或发送数据等。右侧为串口测试时的结果显示区。
- 2023-02-14 09:00:03下载
- 积分：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
-
VB 石头剪刀布猜拳游戏
VB 石头剪刀布猜拳游戏，游戏操作方法：在窗体左下方的石头、剪子、布图标中，单击用户想要出的一种手势，电脑会自动给出该手势，任一方赢了都会给出相应提示图片信息。游戏结果判定逻辑：
将用户和计算机所选的图片的序号合成一个字符串，根据这个字符串判断用户的输赢
00 石头对石头 重来
01 石头对剪子 用户赢
02 石头对布 用户输
10 剪子对石头 用户输
11 剪子对剪子 重来
12 剪子对布 用户赢
20 布对石头 用户赢
21 布对剪子 用户输
22 布对布 重来
- 2023-07-03 14:45:03下载
- 积分：1
-
VB.NET API函数画线条示例
VB.NET API函数示例，使用VB api函数画线条的一个例子，如图所示的效果中，鼠标单击两端，即可画出一条直线，主要是学习使用VB.NET中的API画图函数用法。示例运行效果请参见截图所示，本页提供该实例的源码下载。
- 2022-03-22 10:44:12下载
- 积分：1
-
VB 以TextStream流的方式打开文本文件
VB 以流的方式打开文本文件，创建FileSystemObject MyFSO对象，创建TextStream对象，然后使用对象GetFile文件，最后使用对象OpenAsTextStream读取流文件，具体用法，可参见以下代码：
Private Sub Form_Load()
Dim MyFSO As New FileSystemObject
Dim MyFile As File
Dim MyTS As TextStream
Set MyFile = MyFSO.GetFile(App.Path & "MyFile.txt")
Set MyTS = MyFile.OpenAsTextStream(ForReading)
Text1.Text = MyTS.ReadAll
MyTS.Close
End Sub
完整的可编译实例，请下载源码包。
- 2022-06-14 22:18:23下载
- 积分：1
-
VB6 给窗体添加滚动条
VB6 给窗体添加滚动条，调整水平滚动条的一些属性。当窗体的大小发生变化时发生，垂直滚动条与窗体相对位置不变，滚动条的大小随着窗体大小的改变而改变，命令按钮作水平滚动条与垂直滚动条交接处的填充。
因代码注释较多，详细代码情况请您下载本源码包，自行解压查看。
- 2023-02-22 07:50:04下载
- 积分：1
-
VB 使用VsMenu控件创建漂亮菜单
VB 使用VsMenu控件创建漂亮菜单，是一个很不错的VsMenu控件用法演示实例，在窗体上单击右键,可以看到弹出式菜单效果。
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then PopupMenu MDIfrmMain.mnuEdit
End Sub
- 2022-09-24 14:25:02下载
- 积分：1
-
vb.net读取Access数据库数据并生成适时曲线
vb.net绘制生成曲线，数据从access数据库中读取，然后将数据进行简要处理后，传送给曲线生成函数，生成适时的数据曲线。
请注意：vb.net里PICTURE只支持像素，长度比较大，需要乘除定义精确值，8当余数为1,则刚好够总长度,否则需要判断长度，计算出坐标,画图，如果要设置数值或日期的显示格可以设置Format属性，例如： .Format = "￥0.00"。
- 2022-03-21 23:38:41下载
- 积分：1
