我自己做了一個軟鍵盤
其實就是一個KeyBoard的Form和一個Form1的瀏覽窗口,上面加27個字母和10個數字和一個Enter,用於輸入用戶名和密碼
KeyBard鍵上的代碼為
rc = PostMessage(Form1.ActiveControl.hwnd, WM_CHAR, keyx, 1)可是當我Form1瀏覽窗口打開KeyBoard窗體時,Form1上的WebBrowser焦點就失去了
這樣的話出會出錯該怎麼實現呢
其實就是一個KeyBoard的Form和一個Form1的瀏覽窗口,上面加27個字母和10個數字和一個Enter,用於輸入用戶名和密碼
KeyBard鍵上的代碼為
rc = PostMessage(Form1.ActiveControl.hwnd, WM_CHAR, keyx, 1)可是當我Form1瀏覽窗口打開KeyBoard窗體時,Form1上的WebBrowser焦點就失去了
這樣的話出會出錯該怎麼實現呢
因为即使没有焦点依然可以用外部程序来给WebBrowser内的input控件输入的请你直接使用赋值函数
Private Sub Label1_Click(Index As Integer)
SendKeys Label1(Index).Caption
End SubPrivate Sub Label1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1(Index).BorderStyle = 1
End SubPrivate Sub Label1_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1(Index).BorderStyle = 0
End SubPrivate Sub Label2_Click()
SendKeys "{Enter}"
End Sub