-
VB6 设计带记忆的DataGrid数据录入窗口
VB6 设计带记忆的数据录入窗口,这种记忆实际上是将DataGrid临时输入的数据存入到数据库中了,是一个数据库应用范例,本例子中的数据库采用的Access。在本例中,用户临时对任意DataGrid行列操作时输入的内容,临时保存至数据库中,使用时及时读取,模拟中了记忆功能,方便了用户操作,不过未做测试,不知道数据量较大的时候,会不会对数据库造成压力,有心者可以自行测试哦。
- 2023-04-17 21:20:02下载
- 积分:1
-
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
-
VB6 制作简易谱曲键盘 键盘演奏音乐
VB6 制作简易谱曲键盘,用键盘演奏音乐,可发出7个基本音符声音,生成 1 到 7 之间的随机数值,每个键值代表一个音符,如窗体所示,每个数字就代表一个声音,这期间要用到定时器。
在如图所示的运行效果中,单击数字后,单击演奏,可听到演奏效果。
- 2022-08-04 05:21:26下载
- 积分: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
-
VB 6.0 利用文本框组输入数据
VB 6.0 利用文本框组输入数据,你会发现这量个矩阵类型的输入框,输入完一组数据后,会提示输入第二组,当所有都输入完成后,以3行4列的矩阵方式输出数组元素,输入的过程中支持光标的自动定位功能,你可以了解一些提高输入效率的基本操作,有利于提高软件的使用体验。
- 2022-08-17 01:05:20下载
- 积分:1
-
vb.NET模拟扑克牌出牌功能
vb.NET模拟扑克牌出牌功能,其实可看作是一个界面较简单的扑克牌游戏,界面有些粗糙,没有过多美化,用文字描述了牌面,后续可以对界面进行升级。有点过于简单了,可当作一个初级的VB.NET编程例子吧。
- 2022-03-22 04:23:34下载
- 积分:1
-
VB 将小写数字金额格式化为大写金额
VB 将小写数字金额格式化为大写金额,这一个相比其它的金额数字转换,是自动转换,用户输入完小写数字金额后,程序将自动把小写数字变为大写,不过奇怪的是,在代码中并没有发现转换功能写在哪里,看到有数据库,莫非大写字符都存储于数据库吗?本例最终的运行效果如下图所示,用户在金额(大写)处输入小写的数字,可以输入小数点,然后单击其它空白处,程序会自动将小写金额转换成大写状态。
- 2022-07-04 15:26:33下载
- 积分:1
-
VB演示操作存储过程的方法
VB演示操作带参数和不带参数的存储过程的方法,通过一个数据库查询来体现功能的差别。同时还包括了创建存储过程信息。
我们从打开数据链接开始,演示如何简单创建一个存储过程,下面是核心的几何代码:
con.Open
con.Execute ("Create Procedure book1 @price int As Select * From 书名 where 单价>=@price")
MsgBox "成功创建存储过程"
con.Close
SQL语句是一个查询书名对应价格的例子,仅供参考。
- 2022-01-25 20:38:51下载
- 积分:1
-
VB6.0 获取网络连接信息
VB6.0 获取网络连接信息,在如图所示的窗口中,点击按钮即可获取显示本机的网络连接信息,这些信息包括:
是否通过LAN连接、是否通过Modem连接、是否通过Proxy连接、是否在线连接、是否安装了网络RAS等信息。获取完成最后可提示:“系统通过LAN与Internet连接,系统安装了远程访问服务”。
- 2023-05-26 06:40:02下载
- 积分:1
-
VB.NET邮件发送实例 可发附件
VB.NET编写支持发送附件的邮件发送实例,本实例源码中包含用于将电子邮件发送到简单邮件传输协议(SMTP)服务器进行传送的类,这里使用了SmtpClient 类发送电子邮件,可设置允许添加的附件类型,支持文本文件(*.txt)|*.txt|Word文档(*.doc)|*.doc|图像文件*.BMP;*.JPG;*.GIF等格式,为了避免程序出错,在本程序刚启动时,帐号、密码框暂时不可用。
- 2022-08-15 21:36:57下载
- 积分:1