-
VB让窗口标题栏闪烁效果源码
VB让窗口标题栏闪烁效果源码，不过我测试没有发现标题栏闪烁，咋回事呢？实现的思路是：声明API函数Flashwindow，然后编写下面的代码：
Call FlashWindow(hwnd, 1)
If Me.Caption = "闪烁的标题栏" Then
Me.Caption = "欢迎使用管理软件！ "
Else
Me.Caption = "闪烁的标题栏-www.codesc.net"
End If
- 2022-08-08 08:27:55下载
- 积分：1
-
VB.NET API函数画线条示例
VB.NET API函数示例，使用VB api函数画线条的一个例子，如图所示的效果中，鼠标单击两端，即可画出一条直线，主要是学习使用VB.NET中的API画图函数用法。示例运行效果请参见截图所示，本页提供该实例的源码下载。
- 2022-03-22 10:44:12下载
- 积分：1
-
日常考勤程序 基于VB.NET实现附源码
一款基于VB.NET和sqlserver数据库实现的考勤程序，实现公司员工的日常考勤功能，可实现指定日期的员工考勤，考勤时可选择考勤天数、考勤人，可查询本人的考勤记录，实现的是挺基本的考勤模块，还可显示当前用户的历史记录。
本实例的数据库文件在db文件夹下，请自行添加，并配置数据库信息。
源代码运行于VS2015环境下。
- 2022-12-02 11:45:03下载
- 积分：1
-
vb利用数据窗口辅助录入数据
vb利用数据窗口辅助录入数据，也就是本程序窗口中，生成了一些数据辅助窗口，可对用户的录入工作提供一些帮助，其实就是一些供用户选择的组件之类的，用户了用户，又提升了数据录入的准确性，在VB6.0中，本源码可顺利编译成功，运行后如示例图所示。
- 2023-07-26 19:20:03下载
- 积分：1
-
VB 6 在DataGrid表格中实现下拉列表框
VB 6.0 在DataGrid表格中实现下拉列表框，大家可以看截图，在如演示效果所示的DataGrid表格中，单击“单位”一列任意行数据，会显示出一个下拉框，供输入者选择单位，扩展了DataGrid的功能，增加了易用性，提升了用户体验。添加这一功能的核心代码为：
Adodc1.CommandType = adCmdTable
Adodc1.RecordSource = "tb_stock"
Set DataGrid1.DataSource = Adodc1
List1.AddItem ("支")
List1.AddItem ("瓶")
List1.AddItem ("盒")
List1.AddItem ("袋")
DataGrid1.Columns(6).Button = True
仅供参考，本示例是配合数据库实现的，请确保测试时数据库是连接的。
- 2022-07-26 04:39:52下载
- 积分：1
-
VB 6.0 对字符串进行加、减、乘、除计算
VB 6.0 对字符串进行加、减、乘、除计算，如何对字符串进行加、减、乘、除计算呢，本示例演示了这个功能，其实就是数学表达式的计算，运算式中可以有括号，程序将按照运算规则，按照括号优先、乘除优先的原则进行运算，计算出结果并显示在Textbox中，最终运行效果如示例图所示。
- 2022-03-02 02:18:41下载
- 积分：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.0检查是否有拨号连接
VB6.0检查你的电脑是否有拨号连接，获取本机的网络连接列表，重点是检测是否有拨号网络连接。
- 2022-07-25 20:56:18下载
- 积分：1
-
VB NET sqlserver 销售管理系统
VB NET sqlserver 销售管理系统，销售业务，销售发货，销售退货，回款管理，统计报表，基础信息管理、系统设置、备份和恢复数据、货品基本信息管理、业务员管理等。
版权所有(C) 作者个人自由创作室
VB.NET 销售管理系统 V1.0，SQLSERVER2000数据库。
- 2022-03-16 19:52:06下载
- 积分：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
