VB 使用VsMenu控件创建漂亮菜单

VB 6.0 对字符串进行加、减、乘、除计算，如何对字符串进行加、减、乘、除计算呢，本示例演示了这个功能，其实就是数学表达式的计算，运算式中可以有括号，程序将按照运算规则，按照括号优先、乘除优先的原则进行运算，计算出结果并显示在Textbox中，最终运行效果如示例图所示。

VB 6.0将时、分、秒转换为时间，就是把输入文本框中的内容，重新组合，并添加连接符，形成人们视觉习惯上的时间格式。 　　其实实现这个功能，不两行代码就可实现了： 　　Private Sub Command2_Click() 　　 t = TimeSerial(Text1, Text2, Text3) 　　 Label4.Caption = "时间为：" & t 　　End Sub

VB 记录鼠标行为，记录用户是单击了鼠标右键或是左键，监控鼠标被单击了哪个键，核心的代码如下： 　　If GetAsyncKeyState(VK_LBUTTON) = -32767 Then 　　 Text1.Text = Text1.Text + " 鼠标左键 " 　　ElseIf GetAsyncKeyState(VK_RBUTTON) = -32767 Then 　　 Text1.Text = Text1.Text + " 鼠标右键 " 　　End If

VB.NET获取Windows 7操作系统信息，本程序获取的内容比较多，主要有：显示器分辨率、桌面文件夹路径、收藏夹路径、Application Data""路径"、Windows7当前登录的用户名、当前应用程序的路径、计算机IP和计算机全名、控制面板、辅助选项/常规、系统属性、增加打印机、添加/删除程序、显示安装/卸载、显示Windows 安装、添加/删除程序、Windows7时间/日期、Windows7背景设置、外观设置、键盘/速度属性、设备管理器。

用VB编的股票采集数据源码、分享出来希望对大家有用。

VB6.0演示矩阵的加法运算，本例中一共是两个矩阵，每一个矩阵都根据不同的算法生成矩阵数字序列，然后把这两个矩阵求和，最后一栏展示的是矩阵相加后的结果，以指定格式输出。看了代码，我暂时没搞懂是什么算法，感兴趣的自己下载源码，研究学习吧。

VB6.0 判断指定字符串出现的次数，判断字符串A在字符串B中出现的次数，使用了VB的Mid函数来判断，如图所示的运行效果，单击按钮即可查看运行结果。代码验证判断部分，采用for循环遍历判断，代码如下： 　　Dim j As Integer 　　j = 0 　　For i = 1 To Len(Text1) 　　 If Mid(Text1, i, Len(Text2)) = Text2 Then 　　 j = j + 1 　　 End If 　　Next i 　　Label2.Caption = "出现" & j & "次"

VB.NET 多线程TCP端口扫描工具，使用前请输入要扫描的网段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

VB实现子窗体跟随主窗体自动移动，这个窗体的形式，相信大家也见到过，就像一些播放器的子窗口，当拖动主窗体的时候，子窗体会跟着移动，紧紧贴服，自动跟随，好像是主窗口带有磁性一样。 　　测试时，请在主窗口中单击“打开跟随窗体”后，会显示子窗口，此时拖动父窗口，即可看到效果。