-
VB6 获取当前打开窗口数量
VB6 获取当前打开窗口数量，如何获取当前打开窗口数量，本示例打开一个窗口后，在测试时会打开另外一个窗口，然后主窗口中会统计到这个打开的窗口，把当前打开窗口的数量填入文本框中。本程序可学习一下DoEvents()的用法。调用新窗口显示可参考以下代码：
Private Sub Command1_Click()
Form2.Show
Call Form_Activate
End Sub
Private Sub Form_Activate()
Text1.Text = DoEvents()
End Sub
- 2022-07-19 06:40:19下载
- 积分：1
-
VB 控件随窗体自动调整大小
VB 控件随窗体自动调整大小，像窗口中的ListBox、Image、FileListBox、VB.Frame控件等，都可以随窗口的大小变化而变化，当用户拖动改变窗口大小时，这些控件的大小也会随之改变，这个功能的实现得益于自定义函数Form_Resize()，用此来控制各个控件的变化，来看代码：
Dim x, y As Long
x = Form1.Width - 200 - Frame1.Width - Image1.Width
y = (Frame1.Height - Drive1.Height - Drive1.Top - 200)
Frame1.Width = Frame1.Width + x / 2
Image1.Left = Frame1.Left + Frame1.Width + 100
Image1.Width = Image1.Width + x / 2
Image1.Height = Me.Height - 600
Frame1.Height = Image1.Height
Dir1.Width = Frame1.Width - 280
File1.Width = Dir1.Width
Drive1.Width = Dir1.Width
Dir1.Height = y / 3
File1.Top = Dir1.Top + Dir1.Height + 100
File1.Height = 2 / 3 * y
此段代码被封装在按钮事件中，请参见源代码文件。
- 2023-02-03 17:15:04下载
- 积分：1
-
VB 生成中文验证码的控件附实例调用源码
VB 生成验证码的控件附实例调用例子，支持中文的验证码控件，内含Demo和验证码控件源码，使用时请添加中文验证码.ocx引用。验证码生成11到13的随机数数字随机数，0到6随机数，0到15随机数，从1到15的随机数，从0到14的随机数等，生成了超多的随机数数组，来生成复杂的中文和数学验证码混合体，请参见例子中的使用方法，运行效果如测试截图所示。
- 2022-12-01 05:10:03下载
- 积分：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成绩统计饼图，生成圆形图表，圆饼百分比图表的例子，这种图表相信大家见多了，这个例子介绍了VB简单生成圆饼图的方法，对初学VB的朋友会有帮助，通过这个图表，你可以了解绘图、填充、按比例分配、绘制扇形等是如何实现的，用它来显示优秀人数、良好人数、及格人数、不及格人数所占的比例，各个比例用不同的颜色填充，让结果一清二楚，源代码运行于VB6.0环境 ，运行效果如下图所示。
- 2022-05-15 05:38:34下载
- 积分：1
-
VB6.0 获取网络连接信息
VB6.0 获取网络连接信息，在如图所示的窗口中，点击按钮即可获取显示本机的网络连接信息，这些信息包括：
是否通过LAN连接、是否通过Modem连接、是否通过Proxy连接、是否在线连接、是否安装了网络RAS等信息。获取完成最后可提示：“系统通过LAN与Internet连接，系统安装了远程访问服务”。
- 2023-05-26 06:40:02下载
- 积分：1
-
vb 交换两个变量的值
vb 不借助第3个变量实现两个变量互换,交换两个变量的值,在窗口上输入a和b的值，从运行效果截图你可看出这个功能：
If IsNumeric(Txt_a.Text) Then
a = Val(Txt_a.Text)
Else
MsgBox "请输入数字！"
Exit Sub
End If
If IsNumeric(Txt_b.Text) Then
b = Val(Txt_b.Text)
Else
MsgBox "请输入数字！"
Exit Sub
End If
a = a + b
b = a - b
a = a - b
Lbl_Info.Caption = "a的值是:" & a & " b的值是:" & b
- 2023-09-06 03:35:03下载
- 积分：1
-
VB net 模拟考试系统 SQLSERVER版
VB net 模拟考试系统,本考试时间为30分钟，系统会进行倒计时。你必须正确输入你所在班级、姓名和学号，交卷后不能再考，即时间未到不要急于点""交卷""！点击""确定""进入考试系统。本考试系统的窗口只允许打开一个，程序会判断窗体是否已经打开，如果已经打开，则不需要重复打开，只是显示。
程序正常运行需要SQL数据库，请在测试前附加并连接好。
- 2022-02-07 21:46:47下载
- 积分：1
-
一个实现图像旋转效果的VB实例
一个实现图像的旋转效果实例，由VB6.0编写，前几年的源码，本程序实现图片的逆时针旋转90度，单击窗口中的按钮即可实现旋转功能，这部分代码，可参考如下代码：
逆时针旋转90度
Private Sub Command2_Click()
For j = 0 To h Step 1
For i = 0 To w Step 1
BitBlt Picture2.hDC, i, j, 1, 1, Me.Picture1.hDC, j, i, srCopy
Next i
Next j
End Sub
- 2023-07-06 04:55:02下载
- 积分：1
-
VB整源码判断字符串中某一字符是否大写
VB编写完整源码判断字符串中某一字符是否大写，执行下面的代码，这个例子简单哦，不多介绍了，直接看代码吧：
If Asc(Mid(Text1, Val(Text2), 1)) >= 65 And Asc(Mid(Text1, Val(Text2), 1)) = 97 And Asc(Mid(Text1, Val(Text2), 1))
- 2022-06-27 09:12:36下载
- 积分：1
