-
vb实现调用其他应用程序的菜单
vb演示如何调用其他应用程序菜单的方法，程序演示了在VB程序中，调用 windows记事本程序的菜单，不过测试发现，本程序在Windows 7中失效了，本代码写于2010年的，有些早了，当时可能只考虑了Windows XP，可能需要对以下代码加以修正，才能适用于windows 7/10环境：
hwnd = FindWindow(vbNullString, "无标题 - 记事本菜单")
If hwnd = 0 Then Exit Sub
hMainMenu = GetMenu(hwnd)
hMenu = GetSubMenu(hMainMenu, 0)
MenuID = GetMenuItemID(hMenu, 3)
AppActivate "无标题 - 记事本菜单"
Ret = SendMessage(hwnd, WM_COMMAND, MenuID, 0&)
- 2022-06-26 16:44:01下载
- 积分：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.NET获取Windows 7操作系统信息
VB.NET获取Windows 7操作系统信息，本程序获取的内容比较多，主要有：显示器分辨率、桌面文件夹路径、收藏夹路径、Application Data""路径"、Windows7当前登录的用户名、当前应用程序的路径、计算机IP和计算机全名、控制面板、辅助选项/常规、系统属性、增加打印机、添加/删除程序、显示安装/卸载、显示Windows 安装、添加/删除程序、Windows7时间/日期、Windows7背景设置、外观设置、键盘/速度属性、设备管理器。
- 2023-06-05 04:30:03下载
- 积分：1
-
VB演示矩阵的加法运算
VB6.0演示矩阵的加法运算，本例中一共是两个矩阵，每一个矩阵都根据不同的算法生成矩阵数字序列，然后把这两个矩阵求和，最后一栏展示的是矩阵相加后的结果，以指定格式输出。看了代码，我暂时没搞懂是什么算法，感兴趣的自己下载源码，研究学习吧。
- 2022-04-27 13:59:41下载
- 积分：1
-
vb6 批量生成证书、房屋等编号
vb6 批量生成证书、房屋等编号，学会了本例子，是个比较实用的技巧，在一些需要批量生成编号的地方，你都可以借鉴本程序，来实现编号生成，在本例中，是批量生成房屋的编号，用户可选择楼层范围、单元范围等参数后，即可快速生成编号。十分方便哦。这个小程序从界面和功能易用上来说，都设计的都好用的。
- 2022-10-19 14:10:03下载
- 积分：1
-
VB 6.0 打印与打印预览功能源码
VB 6.0 打印与打印预览功能源码，这个打印预览可以调节预览的放大倍率，在不同的放大状态下预览打印内容，支持打印文字内容和图片的内容，自动调用Windows默认的打印机进行打印，如测试截图所示的效果。
- 2023-05-22 11:35:03下载
- 积分：1
-
VB 石头剪刀布猜拳游戏
VB 石头剪刀布猜拳游戏，游戏操作方法：在窗体左下方的石头、剪子、布图标中，单击用户想要出的一种手势，电脑会自动给出该手势，任一方赢了都会给出相应提示图片信息。游戏结果判定逻辑：
将用户和计算机所选的图片的序号合成一个字符串，根据这个字符串判断用户的输赢
00 石头对石头 重来
01 石头对剪子 用户赢
02 石头对布 用户输
10 剪子对石头 用户输
11 剪子对剪子 重来
12 剪子对布 用户赢
20 布对石头 用户赢
21 布对剪子 用户输
22 布对布 重来
- 2023-07-03 14:45:03下载
- 积分：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
-
VB 生成中文验证码的控件附实例调用源码
VB 生成验证码的控件附实例调用例子，支持中文的验证码控件，内含Demo和验证码控件源码，使用时请添加中文验证码.ocx引用。验证码生成11到13的随机数数字随机数，0到6随机数，0到15随机数，从1到15的随机数，从0到14的随机数等，生成了超多的随机数数组，来生成复杂的中文和数学验证码混合体，请参见例子中的使用方法，运行效果如测试截图所示。
- 2022-12-01 05:10:03下载
- 积分：1
-
vb IsDate判断字符串是否为日期或时间
vb 判断字符串是否为日期或时间，在输入框输入任意字符串类型，程序将会判断出该字符串是否是时间字符串，这个判断方法VB员自带有函数，使用IsDate即可实现，下面是使用IsDate的简单用法示例：
If IsDate(Text1) = True Then
Text2.Text = "是日期"
Else
Text2.Text = "不是日期"
End If
您也可以在本页下载完整的源码实例。
- 2022-08-18 06:21:54下载
- 积分：1
