-
VB.NET自制的看图工具软件
VB.NET自制图片查看器，一个看图工具软件，功能方面主要有图片原图显示、自动缩放图片、图片居中、自动缩放图片框、背景色设置、文件名及其路径、视图ToolStripMenuItem等。你可以通过这个小程序了解一些VB.NET与图片之间的操作技巧，另外还可以学习到窗口对话框的一些基本操作、PictureBox控件用法、目录和文件列表框的使用、处理鼠标事件、偏移量计算图片位置，重画图片、绘图画面，颜色填充、窗体界面元素控制等的控制方法。。
- 2022-12-25 17:15:03下载
- 积分：1
-
VB在数据库端禁止录入重复数据
VB在数据库端禁止录入重复数据，对插入的数据进行判断，在写入数据库时进行判断是否已经存在于数据库中，判断是基于数据库的，数据库采用的是Access，在数据库端进行重复数据判断：
rs1.Open "select * from 客户类别表 where 客户类别= + Text1(0) + _
", Cnn, adOpenKeyset, adLockOptimistic
If rs1.RecordCount > 0 And Text1(0) DataGrid1.Columns(0) Then
MsgBox "此记录已存在！", , "提示窗口"
Else
Cnn.Execute ("update 客户类别表 set 客户类别 = + Text1(0) + ,备注= + Text1(1) + _
,修改日期= + Str(Date) + where 客户类别= + DataGrid1.Columns(0) + ")
Adodc1.Refresh
tlbState Toolbar1, False
Text1(0).Locked = True: Text1(1).Locked = True
End If
- 2022-08-14 15:01:13下载
- 积分：1
-
VB为Lable标签着色（填充不同颜色）
VB6.0为Lable标签着色（填充不同颜色），把标签分别填充上不同的颜色，在显示一些统计数据的时候，可清淅的显示出各种数据类型，提升用户浏览体验。
为Lable着色是非常简单的，你可以从本例子中学会用法。
- 2022-02-05 08:55:36下载
- 积分：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 FTP服务器程序
一个FTP程序的例子，不过这个是支持代理服务器的，用VB编写FTP的例子,支持代理服务器。这个程序同样来自国外VB网站，代码中很多注释，不过是英文的。这个FTP程序的样子似乎还需要完善，和当下流行的、CuteFTP、FlashFXP都有很大的区别，甚至说有点简陋，不过这个代码主查面向学习的，英文好的可下载本源码学习。
- 2022-03-06 02:53:34下载
- 积分：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 播放视频文件程序
简单的VB6 播放视频文件程序，也算是一个简单的视频文件播放器吧，核心基于Windows中的msdxm.ocx控件，可控制播放文件开始暂停、快进快退等简单操作，在测试时如果程序不能运行,将本目录中的msdxm.ocx文件拷贝到C:WINDOWSsystem32目录下,然后,在"开始"/"运行"中键入regsvr32 C:WINDOWSsystem32msdxm.ocx, 回车再运行程序即可.
- 2022-09-24 03:35:03下载
- 积分：1
-
vb 拉霸游戏源代码
vb 拉霸游戏，这个游戏我没玩过，玩上去像是抽奖的游戏，有个杠杆可以搬动，搬动后左边的数字滚轮会不停的变化，右边可以设置难度等级，同时这个游戏的窗口也是很特别的，采用不规划的椭圆形，在设计创建不规则的VB窗口时，本源码中的窗口编写技巧也是可以用上的，本游戏是由国外源码改写，在VB6.0环境下可直接编译运行。
- 2022-04-29 19:05:48下载
- 积分：1
-
VB 6.0将时、分、秒转换为时间
VB 6.0将时、分、秒转换为时间，就是把输入文本框中的内容，重新组合，并添加连接符，形成人们视觉习惯上的时间格式。
其实实现这个功能，不两行代码就可实现了：
Private Sub Command2_Click()
t = TimeSerial(Text1, Text2, Text3)
Label4.Caption = "时间为：" & t
End Sub
- 2022-08-15 03:56:46下载
- 积分：1
-
vb利用数据窗口辅助录入数据
vb利用数据窗口辅助录入数据，也就是本程序窗口中，生成了一些数据辅助窗口，可对用户的录入工作提供一些帮助，其实就是一些供用户选择的组件之类的，用户了用户，又提升了数据录入的准确性，在VB6.0中，本源码可顺利编译成功，运行后如示例图所示。
- 2023-07-26 19:20:03下载
- 积分：1
