我現在沒有現成的代碼給你,不過可以給你一些建議。如果你想在同一進程內實現屏幕鍵盤,則你只需要再F2打開的時候,將F1的當前焦點控件對象作為參數,傳遞給F2窗體,在F2點擊屏幕控件時,設置該“控件.Text = 鍵值” 即可,這種我稱之為假屏幕鍵盤。如果你想跨進程實現屏幕鍵盤,就比較難些了(比如:你想用你的F2窗體上的按鍵,實現QQ聊天內容的輸入、記事本內容的輸入)。這個需要用到 “鍵盤鉤子”技術,有關這方面的資料,你不妨自己找找。 另外,你提的F2焦點老處理不好,我認為F2根本不需要焦點控件(不要用按鈕做控件,而實用Label或圖片就可以了。)
成都創(chuàng)新互聯專注于中方企業(yè)網站建設,響應式網站建設,商城建設。中方網站建設公司,為中方等地區(qū)提供建站服務。全流程按需制作,專業(yè)設計,全程項目跟蹤,成都創(chuàng)新互聯專業(yè)和態(tài)度為您提供的服務
既然你可以輸入英文,只要系統(tǒng)切換到中文輸入方式下,例如“谷歌拼音”,不就可以輸入中文了
Public Class Form2
Private Sub Form2_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
AddHandler Label1.MouseEnter, AddressOf LabelMouseEnter
AddHandler Label2.MouseEnter, AddressOf LabelMouseEnter
AddHandler Label1.MouseLeave, AddressOf LabelMouseLeave
AddHandler Label2.MouseLeave, AddressOf LabelMouseLeave
AddHandler Label1.MouseDown, AddressOf LabelMouseDown
AddHandler Label2.MouseDown, AddressOf LabelMouseDown
End Sub
Private Sub LabelMouseEnter(ByVal sender As Object, ByVal e As System.EventArgs)
Dim c As Label = DirectCast(sender, Label)
c.BackColor = Color.DodgerBlue
End Sub
Private Sub LabelMouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
Dim c As Label = DirectCast(sender, Label)
Form1.TextBox1.Text = c.Text
End Sub
Private Sub LabelMouseLeave(ByVal sender As Object, ByVal e As System.EventArgs)
Dim c As Label = DirectCast(sender, Label)
c.BackColor = SystemColors.Control
End Sub
End Class
文章標題:vb.net制作軟鍵盤 vb鍵盤按鍵
當前地址:http://chinadenli.net/article12/doddpdc.html
成都網站建設公司_創(chuàng)新互聯,為您提供外貿網站建設、響應式網站、網站排名、移動網站建設、營銷型網站建設、微信公眾號
聲明:本網站發(fā)布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創(chuàng)新互聯