-
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 键盘鼠标全局线程钩子实例源码，源码中包括了HOOk的源码和Test项目源码，HookCode目录中是HOOk的源代码，TestForm为测试源码。测试时请把hookcode目录中生成的TheHook.dll文件拷贝至TestForm目录的bin目录下，与exe同级，运行效果如下图所示。
- 2022-01-21 21:24:31下载
- 积分：1
-
VB 删除指定类型文件
VB 删除指定类型文件，用户选择电脑中指定路径下的文件类型后，可删除该目录下所有此类型的文件。
- 2022-10-25 21:50:02下载
- 积分：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 将小写数字金额格式化为大写金额
VB 将小写数字金额格式化为大写金额，这一个相比其它的金额数字转换，是自动转换，用户输入完小写数字金额后，程序将自动把小写数字变为大写，不过奇怪的是，在代码中并没有发现转换功能写在哪里，看到有数据库，莫非大写字符都存储于数据库吗？本例最终的运行效果如下图所示，用户在金额（大写）处输入小写的数字，可以输入小数点，然后单击其它空白处，程序会自动将小写金额转换成大写状态。
- 2022-07-04 15:26:33下载
- 积分：1
-
VB 通过菜单控制操作权限并保存至数据库
VB 通过菜单控制操作权限，是一个简单的基于数据库的权限控制小程序。首先使用Checkbox控件提供True/false或者YES/NO选项的特性，将操作权限写到Access数据库中，然后读取数据库的数据，通过数据库字段的值决定该菜单是否可以访问，从而达到通过菜单控制每个操作员操作权限的目的。运行程序，选择“销售业务管理”-“销售数据导入”，弹出没有操作权限的提示框。
- 2022-07-15 02:53:53下载
- 积分：1
-
VB.net 绘制实时曲线源码
VB.net 绘制实时曲线，是一个实时曲线控件的DEMO测试，使用这个控件，可以生成适时曲线 、历史曲线 、动态历史曲线。可用于流量 监控、访问量统计、员工绩效排名等众多场合中。
CEGraphControl目录中为控件的源代码，DeviceApplication1为使用此控件的示例，测试时要把CEGraphControl目录中生成的CEGraphControl.dll文件拷贝到测试源码的Bin同级目录中。
- 2022-07-26 13:54:49下载
- 积分：1
-
VB6.0 使用ADO对象访问数据库
VB6.0 使用ADO对象访问数据库，这个例子其实很简单，就是基本的VB连接数据库、读取数据库内容，然后浏览一条一条的数据，最后关闭数据库，面向VB编程开发新手，有兴趣下载整个源码，在代码中都有详细的注释，因此很适合学习一些数据库操作的基础知识，源码运行截图如下：
- 2022-08-22 22:55:07下载
- 积分：1
-
VB 利用Tag属性存储用户名
VB 利用Tag属性存储用户名
If Text1.Text = "" Or Text2.Text = "" Then
MsgBox "用户名或密码不能为空", vbCritical, "信息提示"
Exit Sub
Else
If Text1.Text = "TSoft" And Text2.Text = "111" Then
Me.Tag = Text1.Text
Frm_Main.Show 1
Unload Me
Else
MsgBox "输入的名户名或密码不正确", vbCritical, "信息提示"
End If
End If
- 2022-02-04 07:45:58下载
- 积分：1
-
在状态栏中显示当前状态-VB范例
VB6.0在状态栏中显示当前状态，演示程序以一个画图程序来演示窗口状态栏的变化，当我们画直线、执行操作： 画正方形，执行操作： 画圆的时候，会显示出状态，要注意观察窗口的状态栏上的文字提示信息。这种形式现在不算什么高大上功能了，很早的VB示例中就实现了，因此本源码比较基础了，高手请绕行。
- 2023-03-24 17:45:04下载
- 积分：1
