VB制作软键盘.docVIP

用VB制作软键盘 -------------------------------------------------------------------------------- 看见微软智能拼音输入法的小键盘了吗？那东东可以在输入的时候用代替键盘。 当不希望操作员使用键盘的时候，那么你就要考 虑为她或他提供软键盘了。下面我们就用VB来做这 个软键盘。 准备工作： 先画两个窗体Form1和Form2,Form2是作为接收按键测试用的，在上面放一个文本框Text1，把 Text1的MultiLine属性设为 True,ScrollBars设为3-Both,然后写入如下代码： Private Declare Function EnableWindow Lib user32 (ByVal hwnd As Long, ByVal fEnable As Long) As LongPrivate 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.T