-
VB整源码判断字符串中某一字符是否大写
VB编写完整源码判断字符串中某一字符是否大写，执行下面的代码，这个例子简单哦，不多介绍了，直接看代码吧：
If Asc(Mid(Text1, Val(Text2), 1)) >= 65 And Asc(Mid(Text1, Val(Text2), 1)) = 97 And Asc(Mid(Text1, Val(Text2), 1))
- 2022-06-27 09:12:36下载
- 积分：1
-
VB生成圆形图表，圆饼百分比图表
VB成绩统计饼图，生成圆形图表，圆饼百分比图表的例子，这种图表相信大家见多了，这个例子介绍了VB简单生成圆饼图的方法，对初学VB的朋友会有帮助，通过这个图表，你可以了解绘图、填充、按比例分配、绘制扇形等是如何实现的，用它来显示优秀人数、良好人数、及格人数、不及格人数所占的比例，各个比例用不同的颜色填充，让结果一清二楚，源代码运行于VB6.0环境 ，运行效果如下图所示。
- 2022-05-15 05:38:34下载
- 积分：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
-
VB6.0 使用列表播放midi等媒体文件
VB6.0 使用列表播放midi等媒体文件，代码中添加了注释，了解VB如何操作MIDI文件进行播放，核心是调用了msdxm.ocx文件，如果程序不能运行,将本目录中的msdxm.ocx文件拷贝到C:WINDOWSsystem32目录下,然后,在"开始"/"运行"中键入regsvr32 C:WINDOWSsystem32msdxm.ocx, 回车再运行程序即可.
- 2022-03-23 18:50:41下载
- 积分：1
-
VB Socket获取主机名和IP地址
VB Socket获取主机名和IP地址，获取主机名是使用了VB中的GetComputerName直接得到，然后对Socket初始化，使用gethostbyname取得主机地址，再获取到IP后进行转化为标准的IP格式。转换过程如下：
RtlMoveMemory host, hostent_addr, LenB(host)
RtlMoveMemory hostip_addr, host.hAddrList, 4
ReDim temp_ip_address(1 To host.hLength)
RtlMoveMemory temp_ip_address(1), hostip_addr, host.hLength
For i = 1 To host.hLength
ip_address = ip_address & temp_ip_address(i) & "."
Next i
ip_address = Mid$(ip_address, 1, Len(ip_address) - 1)
MsgBox "IP:" + ip_address
- 2022-10-23 19:55:03下载
- 积分：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
-
VB6.0演示的AutoSize实例
VB6.0演示的AutoSize实例，自动改变图片框的大小以显示图形全部内容，当图片框比图形小时，图形超出部分不被显示，减少图片框高度，使图片框小于图形。
- 2022-08-07 04:59:17下载
- 积分：1
-
VB 网络连通检测
VB 网络连通检测，单击命令按钮可进行网络连通检测，判断是本机否连接到Internet。操作很简单，将连通测试检测结果输出到屏幕上。
- 2023-08-30 14:45:02下载
- 积分：1
-
VB6.0多选文件源代码实例
VB6.0多选文件源代码实例，在打开文件的对话框中，用户一次可选择多个文件，并不像平时那种一次只能打开一个文件。当然，这种打开文件需要程序的支持，而不仅仅是限制于打开多个文件而程序端不支持的现象。
- 2022-05-20 22:53:54下载
- 积分：1
-
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
