VB输入限制：只允许输入汉字

VB 值参与变参如何用的小例子源码，这个其实平时有时候也用到了，只是不知道这是值参或是变参，通过这个小实例，你或许对这两者的用法会更熟悉些，以下代码仅供参考： 　　Private Sub Command2_Click() 　　Dim a As Integer, b As Integer 　　 a = 10: b = 20 　　 Picture2.Print "交换前:a="; a; " b= "; b 　　 Swap2 a, b 　　 Picture2.Print "交换后:a="; a; " b= "; b 　　End Sub

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

VisualBasic 6.0 获取网页超链接，VB根据网址打开指定页面，预览网页并获取该页面中所有的超链接，最后会统计出该网页内有多少个链接。 　　同时本源码还可区分网页中的文本和图片，将剔除图片，在文本中查找超链接个数，主要是针对href进行精准匹配统计出出现的次数，运行效果如下图所示。 　　具体源代码请下载本源码查看。

本源码演示VB 6.0 如何将汉字转换为Unicode字符代码，在窗口中输入汉字，单击按钮，即可将汉字转换为Unicode字符，其实这个实现起来也比较简单，用VB内置函数AscW即可实现，代码的编写可参考如下： 　　Private Sub Command1_Click() 　　 Text2.Text = AscW(Text1) 　　End Sub 　　Private Sub Command2_Click() 　　 Unload Me 　　End Sub

VB6.0 获取网络连接信息，在如图所示的窗口中，点击按钮即可获取显示本机的网络连接信息，这些信息包括： 　　是否通过LAN连接、是否通过Modem连接、是否通过Proxy连接、是否在线连接、是否安装了网络RAS等信息。获取完成最后可提示：“系统通过LAN与Internet连接，系统安装了远程访问服务”。

VB 石头剪刀布猜拳游戏，游戏操作方法：在窗体左下方的石头、剪子、布图标中，单击用户想要出的一种手势，电脑会自动给出该手势，任一方赢了都会给出相应提示图片信息。游戏结果判定逻辑： 　　将用户和计算机所选的图片的序号合成一个字符串，根据这个字符串判断用户的输赢 　　00 石头对石头 重来 　　01 石头对剪子 用户赢 　　02 石头对布 用户输 　　10 剪子对石头 用户输 　　11 剪子对剪子 重来 　　12 剪子对布 用户赢 　　20 布对石头 用户赢 　　21 布对剪子 用户输 　　22 布对布 重来

VB 以流的方式打开文本文件，创建FileSystemObject MyFSO对象，创建TextStream对象，然后使用对象GetFile文件，最后使用对象OpenAsTextStream读取流文件，具体用法，可参见以下代码： 　　Private Sub Form_Load() 　　 Dim MyFSO As New FileSystemObject 　　 Dim MyFile As File 　　 Dim MyTS As TextStream 　　 Set MyFile = MyFSO.GetFile(App.Path & "MyFile.txt") 　　 Set MyTS = MyFile.OpenAsTextStream(ForReading) 　　 Text1.Text = MyTS.ReadAll 　　 MyTS.Close 　　End Sub 　　完整的可编译实例，请下载源码包。

Visual basic vb6.0 制作个人调查表窗体，这个主要是练习一些VB Form 窗体控件中的元素用法，如果你初学习VB的话，这个例子非常适合你学习。 　　本例子中主要包括了对VB基本控件元素Check、Option、Text、Label、Button的用法进行了演示，具分享出了具体实现某一功能的代码及设置方法，涉及到光标自动归位、清空文本框、判断用户输入是否正确，断用户选择了哪一项按钮等功能，虽然简单，但对于VB打基础还是挺有帮助的。

VB6 制作简易谱曲键盘，用键盘演奏音乐，可发出7个基本音符声音，生成 1 到 7 之间的随机数值，每个键值代表一个音符，如窗体所示，每个数字就代表一个声音，这期间要用到定时器。 　　在如图所示的运行效果中，单击数字后，单击演奏，可听到演奏效果。

vb捕获键盘按键和鼠标坐标位置，监测鼠标的位置和鼠标按键的名称，如窗体所示，随意移动鼠标，即可适时显示出鼠标坐标，若敲击键盘，则会获取到哪一个键被按下，两个功能的代码写在按钮事件中，获取鼠标XY坐标位置： 　　Me.Label3.Text = "x=" + e.X.ToString() + " y=" + e.Y.ToString() 　　获取键盘按下： 　　Me.Label4.Text = "code=" + e.KeyCode.ToString() + " value=" + e.KeyValue.ToString()