1、看见微软智能拼音输入法的小键盘了吗?那东东可以在输入的时候用代替键盘。 当不希望操作员使用键盘的时候,那么你就要考虑为她或他提供软键盘了。下面我们就用VB来做这 个软键盘。 准备工作: 先画两个窗体Form1和Form2,Form2是作为接收按键测试用的,在上面放一个文本框Text1,把 Text1的MultiLine属性设为True,ScrollBars设为3-Both,然后写入如下代码: Private Declare Function EnableWindow Lib "user32" (ByVal hwnd As Long, ByVal fEna
2、ble As Long) As Long Private Sub Form_Load() '调整大小 Me.Width = Screen.Width * 0.9 Me.Height = Screen.Height * 0.9 Form1.Show '禁止鼠标和键盘输入 EnableWindow Text1.hwnd, False End Sub Private Sub Form_Resize() '调整文本框大小 Text1.Top = 0 Text1.Left = 0 Text1.Width = Me.ScaleWidth Text1.Height =
3、 Me.ScaleHeight End Sub Private Sub Form_Unload(Cancel As Integer) End End Sub Form1作为小键盘用,把它的BorderStyle设为3-Fixed Dialog,把ControlBox属性设 为False,这样小键盘就没有标题栏了。Form1得跟微软智能拼音输入法的小键盘完全一样的大小 的窗体,经笔者的计算长×高是5310×2130。然后放上10个按扭,其中九个的Caption分别是 Tab、Caps、↑Shift、Ins、Del、(空格)、Esc、Enter和←(退格)。
4、它们的位置和大小如下设 置: Caption Top Left Height Width Name ↑Shift 1230 0 400 840 Command1 Caps 828 0 400 560 Command2 Tab 410 0 400 480 Command3 Ins 1640 0 400 570 Command4 Del 1640 870 400 550 Command5 (空格) 1640 1400 400 2565 Command6 Esc 1640 4670 400 550 Command7 Enter 820 4590 400 630