-
VB6.0多选文件源代码实例
VB6.0多选文件源代码实例，在打开文件的对话框中，用户一次可选择多个文件，并不像平时那种一次只能打开一个文件。当然，这种打开文件需要程序的支持，而不仅仅是限制于打开多个文件而程序端不支持的现象。
- 2022-05-20 22:53:54下载
- 积分：1
-
VB6 获取当前打开窗口数量
VB6 获取当前打开窗口数量，如何获取当前打开窗口数量，本示例打开一个窗口后，在测试时会打开另外一个窗口，然后主窗口中会统计到这个打开的窗口，把当前打开窗口的数量填入文本框中。本程序可学习一下DoEvents()的用法。调用新窗口显示可参考以下代码：
Private Sub Command1_Click()
Form2.Show
Call Form_Activate
End Sub
Private Sub Form_Activate()
Text1.Text = DoEvents()
End Sub
- 2022-07-19 06:40:19下载
- 积分：1
-
VB NET写的DVD播放器源代码
播放器窗口界面中的操作菜单，实现了弹出菜单的功能，把控制菜下的各菜单项添加到弹出式菜单ContextMenuStrip1中。
播放器功能支持DVD格式的视频播放，包括了暂停、播放、停止、弹出等功能。
本播放器程序依赖于AxInterop.MSWEBDVDLib.dll、Interop.MSWEBDVDLib.dll。
- 2023-05-18 15:05:03下载
- 积分：1
-
VB.NET邮件发送实例 可发附件
VB.NET编写支持发送附件的邮件发送实例，本实例源码中包含用于将电子邮件发送到简单邮件传输协议(SMTP)服务器进行传送的类，这里使用了SmtpClient 类发送电子邮件，可设置允许添加的附件类型，支持文本文件(*.txt)|*.txt|Word文档(*.doc)|*.doc|图像文件*.BMP;*.JPG;*.GIF等格式，为了避免程序出错，在本程序刚启动时，帐号、密码框暂时不可用。
- 2022-08-15 21:36:57下载
- 积分：1
-
VB.NET Try Catch Finally用法演示源码
VB.NET 演示带Finally的Try Catch 异常处理用法演示，这个源码就是捕捉VB.NET运行错误的，结合了最常规的try catch组合，并且使用了Finally处理的情况，那么为什么要使用Finally呢？使用Finally的好处是，把资源释放或状态还原的代码放到finally块中，可以保证在try和catch语句执行完后，一定会执行finally语句块，而不用考虑各种复杂的跳转情况。
- 2023-05-11 05:35:04下载
- 积分：1
-
VB 6.0 利用文本框组输入数据
VB 6.0 利用文本框组输入数据，你会发现这量个矩阵类型的输入框，输入完一组数据后，会提示输入第二组，当所有都输入完成后，以3行4列的矩阵方式输出数组元素，输入的过程中支持光标的自动定位功能，你可以了解一些提高输入效率的基本操作，有利于提高软件的使用体验。
- 2022-08-17 01:05:20下载
- 积分：1
-
VB 演示如何使用WeekdayName获取星期名称
VB 演示如何获取星期名称，这里获取星期几是使用了VB内置的WeekdayName函数，将获取到的日期和星期几直接显示在Text控件中，下面是这个函数的具体用法：
Private Sub Command1_Click()
Text2.Text = WeekdayName(Weekday(CDate(Text1)), vbMonday)
End Sub
Private Sub Form_Load()
Text1.Text = Date
Text2.Text = WeekdayName(Weekday(CDate(Text1)), vbMonday)
End Sub
在VB6.0 IDE环境中编译此源代码，生成如演示截图所示的运行效果。
- 2022-11-30 01:55:03下载
- 积分：1
-
VB 石头剪刀布猜拳游戏
VB 石头剪刀布猜拳游戏，游戏操作方法：在窗体左下方的石头、剪子、布图标中，单击用户想要出的一种手势，电脑会自动给出该手势，任一方赢了都会给出相应提示图片信息。游戏结果判定逻辑：
将用户和计算机所选的图片的序号合成一个字符串，根据这个字符串判断用户的输赢
00 石头对石头 重来
01 石头对剪子 用户赢
02 石头对布 用户输
10 剪子对石头 用户输
11 剪子对剪子 重来
12 剪子对布 用户赢
20 布对石头 用户赢
21 布对剪子 用户输
22 布对布 重来
- 2023-07-03 14:45:03下载
- 积分：1
-
VB在数据库端禁止录入重复数据
VB在数据库端禁止录入重复数据，对插入的数据进行判断，在写入数据库时进行判断是否已经存在于数据库中，判断是基于数据库的，数据库采用的是Access，在数据库端进行重复数据判断：
rs1.Open "select * from 客户类别表 where 客户类别= + Text1(0) + _
", Cnn, adOpenKeyset, adLockOptimistic
If rs1.RecordCount > 0 And Text1(0) DataGrid1.Columns(0) Then
MsgBox "此记录已存在！", , "提示窗口"
Else
Cnn.Execute ("update 客户类别表 set 客户类别 = + Text1(0) + ,备注= + Text1(1) + _
,修改日期= + Str(Date) + where 客户类别= + DataGrid1.Columns(0) + ")
Adodc1.Refresh
tlbState Toolbar1, False
Text1(0).Locked = True: Text1(1).Locked = True
End If
- 2022-08-14 15:01:13下载
- 积分：1
-
VB.NET 多线程TCP端口扫描工具
VB.NET 多线程TCP端口扫描工具，使用前请输入要扫描的网段IP和端口，本程序可将扫描到的开放端口数量显示在窗口中，扫描时应用了多线程技术，扫描时显示当前线程数，适时显示扫描进度和扫描时间，以毫秒计时，扫描速度提升了不少。
注：本程序仅能扫描开放的端口，被禁止和未开放的端口不能被扫描到。
- 2022-05-25 05:47:04下载
- 积分：1
