-
VB6.0 改变扩展名保护Access数据库
VB6.0 改变扩展名保护Access数据库，也就是让用户修改Access数据库的扩展名，之前可能禁止改变，但本代码介绍的方法允许修改扩展名，以下是本例子核心功能部分的完整源码，仅供参考：
Private Sub Form_Load()
Dim cnnstr As String
cnnstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "db_wjgl.bak;Persist Security Info=False"
cn.Open cnnstr
Adodc1.ConnectionString = cnnstr
Set Picture1.DataSource = Adodc1
Picture1.DataField = "文件"
End Sub
Private Sub Form_Unload(Cancel As Integer)
cn.Close
End Sub
- 2022-05-16 07:33:58下载
- 积分：1
-
VB求解数学问题，求两个数最大公约数
VB6.0演示一个求解数学问题，求两个数最大公约数，这是个简单的数学问题，数学基础好，用VB很轻松就编写出本程序了。在运行的窗口中，分别输入两个整数，单击按钮，程序将显示两个数的最大公约数是多少。求解的过程代码描述如下：
If (Val(Text1.Text) = 0 Or Val(Text2.Text) = 0) Or Val(Text1.Text) > 2147483647 Or Val(Text2.Text) > 2147483647 Then
MsgBox "输入的数0或溢出，请重新输入！"
MsgBox "输入的数0或溢出,请重新输入!", vbInformation + vbOKOnly, "数据错误"
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
Else
m = Val(Text1.Text)
n = Val(Text2.Text)
If m < n Then
temp = m: m = n: n = temp
End If
Do
r = m Mod n
m = n
n = r
Loop While r 0
Label3.Caption = "两个正整数m和n的最大公约数为: " & m
End If
- 2022-07-16 14:37:29下载
- 积分：1
-
VB6.0使用InPutBox显示密码输入框
VB6.0使用InPutBox显示密码输入框，InPutBox大部分情况下是用于输入数据，与用户交互，但这些数据并不是密码类型的，本实例是展示是使用InPutBox作为密码输入框，其实也是挺简单的：
Private Sub Command1_Click()
On Error GoTo Err_Out
Dim lTemp As Long
Dim sTemp As String
lTemp = SetTimer(Me.hwnd, NV_INPUTBOX, 1, AddressOf TimerProc)
sTemp = InputBox("请输入密码", "密码输入框")
Err_Out: End Sub
- 2023-02-13 07:30:04下载
- 积分：1
-
VB的保存文件对话框调用创建一例
VB的保存文件对话框调用创建一例，弹出“打开”对话框，还有保存对话框，另存为对话框，通用对话框，cdlOFNFileMustExist当用户输入非法的文件名时,要显示一个警告。
cdlOFNReadOnly指示对话框关闭时只读复选框的状态。。
- 2022-02-11 13:06:23下载
- 积分：1
-
树状导航菜单 +窗体分隔+框架窗口VB源码范例
本实例是一个比较综合、完整的窗口制作实例，演示了树状导航菜单的制作方法，还有窗口中各种菜单的实现步骤，同时还演示了如何对窗口进行分隔显示，实现了一个带树形菜单的框架式程序主窗口界面，可广泛应用于VB的各种信息管理系统的开发中。VB源代码范例，在VB6.0环境下完美编译运行。
- 2022-09-10 22:15: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
-
VB Seek语句设置随机访问文件的读取位置
VB 设置随机访问文件的读取位置，本例中是使用Seek语句来设置随机访问文件的读取位置，代码编写方面，主要是掌握Seek的用法，以下代码将用户的单击行为作为触发Seek的事件条件：
Private Sub Command1_Click()
Dim str As String * 10
Open App.Path & "MyFile.txt" For Binary As #1
Seek #1, 5
Get #1, , str
Text1.Text = str
Close #1
End Sub
当用户单击按钮后，执行seek语句。
- 2022-03-24 08:37:41下载
- 积分：1
-
VB.net 生成条形码code128条码
VB.net绘制生成code128条形码的例子，另外还有EAN128、包括了Code128 A/B/C类型的条形码，程序非常好用，在文本框输入规定要求的数据，即时输入，即时生成。程序中为生成条形码，创建了一些函数，比如显示可见条码文字 如果小于40 不显示文字、获取条形码宽和放大系数、获得条码图形、根据编号获得条纹、获取目标对应的数据、偶数检测判断、获取128图形等，在VB.NET生成条形码的朋友，本范例源码是个很好的参考。
- 2022-02-14 15:50:30下载
- 积分：1
-
VB6.0检查是否有拨号连接
VB6.0检查你的电脑是否有拨号连接，获取本机的网络连接列表，重点是检测是否有拨号网络连接。
- 2022-07-25 20:56:18下载
- 积分：1
-
VB 为菜单添加分割线
VB6为菜单制作添加分割线，在菜单项与菜单项之间显示一个分隔线，这个在Windows经典风格的窗口中，十分常见，像一个水平线那样，把菜单分成多个部分，这个水平线带有阴影效果，视觉效果更立体。
本窗口中的菜单，是一个企业综合管理系统的主界面面板，那些菜单都是测试用的，你可以看一下菜单中的分隔线是如何嵌入到菜单中的。
- 2022-09-22 23:30:03下载
- 积分：1
