-
vb 拉霸游戏源代码
vb 拉霸游戏，这个游戏我没玩过，玩上去像是抽奖的游戏，有个杠杆可以搬动，搬动后左边的数字滚轮会不停的变化，右边可以设置难度等级，同时这个游戏的窗口也是很特别的，采用不规划的椭圆形，在设计创建不规则的VB窗口时，本源码中的窗口编写技巧也是可以用上的，本游戏是由国外源码改写，在VB6.0环境下可直接编译运行。
- 2022-04-29 19:05:48下载
- 积分：1
-
简单的VB6 播放视频文件程序
简单的VB6 播放视频文件程序，也算是一个简单的视频文件播放器吧，核心基于Windows中的msdxm.ocx控件，可控制播放文件开始暂停、快进快退等简单操作，在测试时如果程序不能运行,将本目录中的msdxm.ocx文件拷贝到C:WINDOWSsystem32目录下,然后,在"开始"/"运行"中键入regsvr32 C:WINDOWSsystem32msdxm.ocx, 回车再运行程序即可.
- 2022-09-24 03:35:03下载
- 积分：1
-
Vb.NET 贪吃蛇游戏
游戏说明：
1、控制键
“回车键”-----新游戏或终止游戏
“5”（数字键区的）----暂停或恢复
方向控制键（数字键区的）
“8、2、4、6”----对应控制“上、下、左、右”移动
“1”-----“左下”移动
“3”-----“右下”移动
“7”-----“左上”移动
“9”-----“右下”移动
2、地图
蓝色方块----食物（吃到食物后，蛇身长度增加一节）
红色方块----炸弹（吃到炸弹，所得分数会减去当前级别数的2倍）
地图上一次出现2个食物和1个炸弹，被蛇吃掉后会随机位置补充
灰色方块----蛇头
绿色方块----蛇身
暗海洋绿方块----奖品
当玩家吃到的食物或者炸弹达到5个时就会随机出现一次奖品，奖品
上的数字表示吃到奖品后会增加的分数。每个奖品的初始分数是20--50
之间的随机数，当奖品出现后就会开始不断的减少，所以玩家要尽快吃
到才能增加到更多的分数。
3、计分方法
每吃到一个食物，增加的分数等于当前级别的数值；
每吃到一个炸弹，扣掉的分数等于当前级别数值的2倍；
玩家的起始分数等于当前的级别数值的2倍加1
例如 等级为3，则玩家起始分数是7分；每吃到一个食物加3分；
每吃到一个炸弹减6分
4、游戏结束
当总分
- 2022-03-02 23:06:57下载
- 积分：1
-
vb6.0 字节数组和字符串的相互转换
vb6.0 编程实现字节数组和字符串的相互转换，演示如何进行字节数组和字符串的相互转换.
- 2023-03-14 07:50:04下载
- 积分：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 通过程序设置系统日期和时间的格式，设定时可以改变长日期格式，短日期格式，改变时间格式，看着很像是以前Windows XP时候的时间设置窗口的功能。请注意，日期格式设置成功，需要重新启动计算机或注销后可以看到新的短日期格式！以下是改变日期格式其中的一个例子代码，仅供参考：
Dim ret2 As Long
Dim sd As String
ret2 = RegOpenKey(HKEY_CURRENT_USER, "Control PanelInternational", hKey)
If ret2 = 0 Then
sd = Combo1.Text
RegSetValueEx hKey, "sShortDate", "0", REG_SZ, ByVal sd, LenB(StrConv(sd, vbFromUnicode))
MsgBox "日期格式已设置成功，重新启动计算机或注销后可以看到新的短日期格式！", , "提示窗口"
End If
- 2023-06-21 17:25:03下载
- 积分：1
-
VB.NET API函数画线条示例
VB.NET API函数示例，使用VB api函数画线条的一个例子，如图所示的效果中，鼠标单击两端，即可画出一条直线，主要是学习使用VB.NET中的API画图函数用法。示例运行效果请参见截图所示，本页提供该实例的源码下载。
- 2022-03-22 10:44:12下载
- 积分：1
-
VB源码演示如何制作倒计时程序
VB编写的倒计时程序，测试时，请输入目标日期与时间，格式如演示截图中所示，然后按下“倒计时”按钮，即可开始倒计时了，会显示出具体剩余的天数和时、分、秒。程序主要基于CDate函数和DateDiff函数来实现，主要代码如下：
Private Sub Timer1_Timer()
On Error GoTo H
Timer1.Interval = 1000
Dim i As Date
i = CDate(Text1)
Label1.Caption = "距离" & Text1 & "还剩" & DateDiff("d", Now, i) & "天" & CLng(DateDiff("h", Now, i)) Mod 24 & "小时" & CLng(DateDiff("n", Now, i)) Mod 60 & "分" & CLng(DateDiff("s", Now, i)) Mod 60 & " 秒"
Exit Sub
H:
MsgBox "请输入正确的时间"
Timer1.Enabled = False
End Sub
- 2022-03-13 16:12:01下载
- 积分：1
-
vb 将数字格式化为金额
vb 将数字格式化为金额，这个更像是一个自动计算程序，根据用户输入的单位、数量、价格等参数，自动计算出金额，这才是程序要表达的功能，相差代码：
Private Sub Text1_LostFocus(Index As Integer)
Text1(Index).BackColor = &H80000005
If Index = 3 Then Text1(3) = Format(Text1(3), "0.00")
End Sub
- 2023-01-25 23:50:04下载
- 积分：1
-
VB 将小写数字金额格式化为大写金额
VB 将小写数字金额格式化为大写金额，这一个相比其它的金额数字转换，是自动转换，用户输入完小写数字金额后，程序将自动把小写数字变为大写，不过奇怪的是，在代码中并没有发现转换功能写在哪里，看到有数据库，莫非大写字符都存储于数据库吗？本例最终的运行效果如下图所示，用户在金额（大写）处输入小写的数字，可以输入小数点，然后单击其它空白处，程序会自动将小写金额转换成大写状态。
- 2022-07-04 15:26:33下载
- 积分：1
