-
VB删除指定路径下的文件夹【目录】
VB6.0 删除指定路径下的文件夹【目录】 ，删除时请输入要删除文件夹的所在路径和名称，单击按钮即可。支持遍历目录删除文件，我觉得这是一个挺好的使用FSO操作的VB范例，对于VB新手学习相关的文件操作有很好的帮助。
- 2022-03-19 05:31:28下载
- 积分：1
-
内核为VB6的一个下载软件开源源码
内核为VB6的一个下载软件开源源码， 界面方面支持悬浮窗、支持TAB窗口选项卡切换内容，操作方便，关于下载文件方面，已经实现的功能：
1.同时下载两个文件
2.支持断点续传
3.支持代理服务器
使用方法：
1.双击开始或停止
2.其他按鼠标右键
- 2022-10-17 00:05:03下载
- 积分：1
-
VB 值参与变参举例
VB 值参与变参如何用的小例子源码，这个其实平时有时候也用到了，只是不知道这是值参或是变参，通过这个小实例，你或许对这两者的用法会更熟悉些，以下代码仅供参考：
Private Sub Command2_Click()
Dim a As Integer, b As Integer
a = 10: b = 20
Picture2.Print "交换前:a="; a; " b= "; b
Swap2 a, b
Picture2.Print "交换后:a="; a; " b= "; b
End Sub
- 2022-07-25 08:20:44下载
- 积分：1
-
VB6.0 如何计算加权平均值
VB6.0 代码演示如何计算加权平均值，计算加权平均值可编写以下代码实现：
Private Sub Command1_Click()
Text7.Text = jiaquan(Text1, Text2, Text3, Text4, Text5, Text6)
End Sub
Private Function jiaquan(ByVal a As Integer, ByVal b As Integer, ByVal c As Integer, ByVal d As Integer, ByVal e As Integer, ByVal f As Integer)
Dim sum As Integer
sum = (a * b + c * d + e * f) / (b + d + f)
sum = Round(sum, 2)
jiaquan = sum
End Function
- 2022-02-25 12:19:27下载
- 积分：1
-
vb串口调试助手源码，可用于自己做调试测试工具
1.用易懂的VB语言编程 2.可设置串口号波特率 3.支持十六进或字符形式发送或接收，可定时发送。3，可自己换程序的图片
- 2022-07-13 02:02:52下载
- 积分：1
-
vb 将数字格式化为金额
vb 将数字格式化为金额，这个更像是一个自动计算程序，根据用户输入的单位、数量、价格等参数，自动计算出金额，这才是程序要表达的功能，相差代码：
Private Sub Text1_LostFocus(Index As Integer)
Text1(Index).BackColor = &H80000005
If Index = 3 Then Text1(3) = Format(Text1(3), "0.00")
End Sub
- 2023-01-25 23:50:04下载
- 积分：1
-
VB.NET将任意图像文件设置为鼠标形状
VB.NET将任意图像文件设置为鼠标形状，变换光标，光标文件读取，支持自定义光标的图像文件格式为：图像文件（*.jpg;*.gif;*.png;*.bmp）。操作方法挺简单的，点击 按钮选择一个格式合适的光标文件即可，注意查看鼠标光标的变化。
- 2022-05-05 06:26:41下载
- 积分：1
-
VB制作可移动按钮位置的Toolbar工具栏
VB制作可移动按钮位置的工具栏，这个窗口中的Toolbar允许用户自己调整位置，可以拖动至指定位置，记得word中的工具栏就是这样，当你改变默认的工具栏布局时，程序会使用 MsgBox ("您确实要调整工具栏按钮的位置吗？")弹出确认信息。另外，本范例也可看作是一个在VB窗口中制作图标菜单的好范例，如示例图所示的效果。
- 2022-11-01 12:50:03下载
- 积分：1
-
vb 判断经历多少个工作日
vb 判断经历多少个工作日，在两个日期选择器中选择日期值，然后判断选定的两个日期之间相差了多少天，判断两个定点之间的天数，比较基础，但也很有必要学习，时间和日期计算在很多软件中都要用到，这个例子相对简单些。大致代码：
If IsDate(Text1) = True And IsDate(Text2) = True Then
Dim i As Integer
i = gongzuori(CDate(Text1), CDate(Text2))
Label3.Caption = "经历" & i & "个工作日"
Else
MsgBox "请输入日期型"
End If
- 2022-03-03 21:14:10下载
- 积分：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
