-
vb 拉霸游戏源代码
vb 拉霸游戏,这个游戏我没玩过,玩上去像是抽奖的游戏,有个杠杆可以搬动,搬动后左边的数字滚轮会不停的变化,右边可以设置难度等级,同时这个游戏的窗口也是很特别的,采用不规划的椭圆形,在设计创建不规则的VB窗口时,本源码中的窗口编写技巧也是可以用上的,本游戏是由国外源码改写,在VB6.0环境下可直接编译运行。
- 2022-04-29 19:05:48下载
- 积分: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
-
VB6.0演示的AutoSize实例
VB6.0演示的AutoSize实例,自动改变图片框的大小以显示图形全部内容,当图片框比图形小时,图形超出部分不被显示,减少图片框高度,使图片框小于图形。
- 2022-08-07 04:59:17下载
- 积分:1
-
VB OutLook折叠展开的主界面菜单
VB OutLook式主界面菜单,可折叠和展开,类似WindowsXP的界面左侧菜单,如示例图所示,本示例菜单效果请看左侧的图文式菜单,鼠标单击后可向下滑开,显示出二级的图文菜单,再次单击则合拢菜单。以前这种菜单在微软Windows的OutLook中使用,本源码是仿写的这种菜单。
- 2022-05-14 02:45:19下载
- 积分:1
-
VB.net与OMRON CP系列PLC通讯的实例
VB.net与OMRON CP系列PLC通讯,截图是辅助程序:FCS校验计算器的运行效果,与PLC通讯的实例在PLC-PC文件夹下,源码在VB.NET环境编译。
LBIndustrialCtrls.dll放在debug目录中,与exe文件同级。
- 2023-03-30 11:55:03下载
- 积分:1
-
VB的保存文件对话框调用创建一例
VB的保存文件对话框调用创建一例,弹出“打开”对话框,还有保存对话框,另存为对话框,通用对话框,cdlOFNFileMustExist当用户输入非法的文件名时,要显示一个警告。
cdlOFNReadOnly指示对话框关闭时只读复选框的状态。。
- 2022-02-11 13:06:23下载
- 积分:1
-
VB net 模拟考试系统 SQLSERVER版
VB net 模拟考试系统,本考试时间为30分钟,系统会进行倒计时。你必须正确输入你所在班级、姓名和学号,交卷后不能再考,即时间未到不要急于点""交卷""!点击""确定""进入考试系统。本考试系统的窗口只允许打开一个,程序会判断窗体是否已经打开,如果已经打开,则不需要重复打开,只是显示。
程序正常运行需要SQL数据库,请在测试前附加并连接好。
- 2022-02-07 21:46:47下载
- 积分:1
-
vb根据用户输入的内容决定显示指定内容
vb根据用户输入的内容决定显示指定内容,从例子来看,是一个数据库搜索的例子,也就是用户搜索的什么,列表中会显示出相关内容。只是说法不同而已,为了可以正常运行,本示例中的数据库采用Access数据库,数据库文件为:db_Client.mdb。
- 2022-08-23 09:42:29下载
- 积分:1
-
VB.NET邮件发送实例 可发附件
VB.NET编写支持发送附件的邮件发送实例,本实例源码中包含用于将电子邮件发送到简单邮件传输协议(SMTP)服务器进行传送的类,这里使用了SmtpClient 类发送电子邮件,可设置允许添加的附件类型,支持文本文件(*.txt)|*.txt|Word文档(*.doc)|*.doc|图像文件*.BMP;*.JPG;*.GIF等格式,为了避免程序出错,在本程序刚启动时,帐号、密码框暂时不可用。
- 2022-08-15 21:36:57下载
- 积分:1
-
VB 6.0 过程引用传递参数
VB 6.0 过程引用传递参数,显示传递前和传递后的参数值:
Private Sub mysub(ByRef i As Integer)
i = 100
End Sub
Private Sub Form_Resize()
Dim num As Integer
num = 1
Print "传递前:" & num
Call mysub(num)
Print "传递后:" & num
End Sub
- 2022-02-12 05:00:23下载
- 积分:1