-
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 使用ODBC DSN连接SQL Server数据库
VB 6 使用ODBC DSN连接SQL Server数据库，要想运行本实例，首先需要附加SQL数据库，然后配置ODBC，ODBC数据源名称是“RSDAGLXT”。将连接数据库的代码写在一个按钮事件中，当用户单击按钮后，开始使用DSN连接数据库。本示例主要是连接SQLSERVER,因此主代码文件代码比较少。连接后会从数据库中读取出数据，并绑定到MSHFlexGrid控件中显示，运行效果请见截图。主代码：
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.Open DSN=RSDAGLXT;Uid=sa;Pwd=
rs.Open 人事档案信息表, cn, adOpenKeyset, adLockOptimistic
Set MSHFlexGrid1.DataSource = rs
MSHFlexGrid1.ColWidth(0) = 100
- 2022-01-25 22:59:47下载
- 积分：1
-
VB6.0 WinLock-锁住计算机 沐风视窗锁
VB6.0 WinLock-锁住计算机 实现锁定电脑的功能，沐风视窗锁，程序由沐风工作室开发编写，锁定计算机后，按下回车键后请输入解锁密码才能解锁屏幕，另外这个锁屏程序还可以设置自启动、效验密码等功能。
本程序同时支持卸载，当用户点击 卸载按钮后，即将完成删除，程序将运行卸载程序。
温馨提示：第一次使用,请输入密码。密码设置成功,程序将重新启动。
- 2022-08-12 14:41:19下载
- 积分：1
-
VB MSChart图表控件实例:柱状图的实现
VB 柱状图生成的例子,看看,是不是很实用的图表效果,这种图表也叫做直方图表,这是纵向的,也有横向的柱状图.本柱状图的生成是使用了Vb内置的微软图表控件MSChart控件,因此可看作是此控件的应用范例.
- 2022-04-15 23:55:01下载
- 积分：1
-
VB利用地址偏移访问内存
VB利用地址偏移访问内存，整个处理过程 封装在事件函数中，用户单击后，执行以下代码：
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Sub Form_Load()
Dim i As Long
Dim j As Long
i = 1234
j = 4321
Debug.Print VarPtr(i)
Debug.Print VarPtr(j)
CopyMemory ByVal VarPtr(i), ByVal VarPtr(i) - 4, 4
Text1.Text = i
End Sub
- 2022-08-20 12:19:05下载
- 积分：1
-
VB.net 生成条形码code128条码
VB.net绘制生成code128条形码的例子，另外还有EAN128、包括了Code128 A/B/C类型的条形码，程序非常好用，在文本框输入规定要求的数据，即时输入，即时生成。程序中为生成条形码，创建了一些函数，比如显示可见条码文字 如果小于40 不显示文字、获取条形码宽和放大系数、获得条码图形、根据编号获得条纹、获取目标对应的数据、偶数检测判断、获取128图形等，在VB.NET生成条形码的朋友，本范例源码是个很好的参考。
- 2022-02-14 15:50:30下载
- 积分：1
-
VB.NET 获取全局鼠标坐标范例
VB.NET 获取全局coordinate鼠标坐标，显示窗体内的XY坐标，窗体外凡是显示屏幕的任意位置都可以显示出坐标，获取全局鼠标坐标，测试截图是获取本窗口外的鼠标坐标，请参见截图效果。随着鼠标移动会显示出各个鼠标坐标点的XY坐标信息。单击窗口的“开始”按钮后，将执行以下代码获取全局坐标：
GetCursorPos(p)
tooltip1.SetToolTip(Me, "当前鼠标位置 X=:" & p.x & "Y=:" & p.y)
tooltip1.Active = True
- 2022-11-10 13:15:03下载
- 积分：1
-
VB 调用API函数设计关于窗体
VB 调用API函数设计关于窗体，看第一眼，我还以为是调用Windows系统的关于窗口，仔细看，定义了自己的信息，这个例子可看作是VB使用API函数的例子，了解一些用法，关于本例子中的API用法，可看以下代码：
API函数声明：
Private Declare Function ShellAbout Lib "shell32.dll" Alias "ShellAboutA" (ByVal hWnd As Long, ByVal szApp As String, ByVal szOtherStuff As String, ByVal hIcon As Long) As Long
Private Sub Form_Load()
Call ShellAbout(hWnd, "源码素材网", " 欢迎访问网站:http://www.codesc.net！", Me.Icon)
调用了ShellAbout显示信息，更多内容请下载源码。
- 2022-01-25 16:50:26下载
- 积分：1
-
VB 演示创建视图 使用视图保存数据
VB 演示创建视图 以及使用视图保存数据，数据库选择了MSSQL，根据各数据库字段创建视图，并使用这个视图进行数据保存，测试前请确保数据库连接成功。
- 2022-07-17 20:55:23下载
- 积分：1
-
VB 6.0 利用文本框组输入数据
VB 6.0 利用文本框组输入数据，你会发现这量个矩阵类型的输入框，输入完一组数据后，会提示输入第二组，当所有都输入完成后，以3行4列的矩阵方式输出数组元素，输入的过程中支持光标的自动定位功能，你可以了解一些提高输入效率的基本操作，有利于提高软件的使用体验。
- 2022-08-17 01:05:20下载
- 积分：1
