-
vb6.0 字节数组和字符串的相互转换
vb6.0 编程实现字节数组和字符串的相互转换,演示如何进行字节数组和字符串的相互转换.
- 2023-03-14 07:50:04下载
- 积分:1
-
VB 通过菜单控制操作权限并保存至数据库
VB 通过菜单控制操作权限,是一个简单的基于数据库的权限控制小程序。首先使用Checkbox控件提供True/false或者YES/NO选项的特性,将操作权限写到Access数据库中,然后读取数据库的数据,通过数据库字段的值决定该菜单是否可以访问,从而达到通过菜单控制每个操作员操作权限的目的。运行程序,选择“销售业务管理”-“销售数据导入”,弹出没有操作权限的提示框。
- 2022-07-15 02:53:53下载
- 积分: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的保存文件对话框调用创建一例,弹出“打开”对话框,还有保存对话框,另存为对话框,通用对话框,cdlOFNFileMustExist当用户输入非法的文件名时,要显示一个警告。
cdlOFNReadOnly指示对话框关闭时只读复选框的状态。。
- 2022-02-11 13:06:23下载
- 积分:1
-
Visual basic vb6.0 制作个人调查表窗体
Visual basic vb6.0 制作个人调查表窗体,这个主要是练习一些VB Form 窗体控件中的元素用法,如果你初学习VB的话,这个例子非常适合你学习。
本例子中主要包括了对VB基本控件元素Check、Option、Text、Label、Button的用法进行了演示,具分享出了具体实现某一功能的代码及设置方法,涉及到光标自动归位、清空文本框、判断用户输入是否正确,断用户选择了哪一项按钮等功能,虽然简单,但对于VB打基础还是挺有帮助的。
- 2022-04-18 16:36:31下载
- 积分:1
-
vb串口调试助手源码,可用于自己做调试测试工具
1.用易懂的VB语言编程 2.可设置串口号波特率 3.支持十六进或字符形式发送或接收,可定时发送。3,可自己换程序的图片
- 2022-07-13 02:02:52下载
- 积分:1
-
VB 6.0 将数组中的数据利用图表分析
VB 6.0 将数组中的数据利用图表分析,也就是用柱状图来显示数组中的数据,所有的操作都是从点击按钮开始的,如下代码:
Private Sub Form_Load()
Dim i
i = Array(1, 2, 3, 4, 5, 6, 7)
Dim j
For j = 0 To UBound(i)
With MSChart1
.RowCount = UBound(i) + 1
.Row = j + 1
.ColumnCount = 1
.Data = i(j)
.RowLabel = i(j)
End With
Next j
End Sub
- 2022-01-25 18:47:19下载
- 积分: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 利用Combo、DTPicker组合框辅助录入数据
VB6.0 利用组合框辅助录入数据,输入框什么的就不多说了,主要学习VB6 中的Combo、DTPicker组合框在录入数据时的用法,方便用户选择数据、选择时间,特别是时间,可固定为指定格式,防止程序出错等。
- 2023-03-15 11:25:03下载
- 积分:1