求VB.net 制作的軟鍵盤“屏幕鍵盤”

我現在沒有現成的代碼給你，不過可以給你一些建議。如果你想在同一進程內實現屏幕鍵盤，則你只需要再F2打開的時候，將F1的當前焦點控件對象作為參數，傳遞給F2窗體，在F2點擊屏幕控件時，設置該“控件.Text = 鍵值” 即可，這種我稱之為假屏幕鍵盤。如果你想跨進程實現屏幕鍵盤，就比較難些了（比如：你想用你的F2窗體上的按鍵，實現QQ聊天內容的輸入、記事本內容的輸入）。這個需要用到 “鍵盤鉤子”技術，有關這方面的資料，你不妨自己找找。 另外，你提的F2焦點老處理不好，我認為F2根本不需要焦點控件（不要用按鈕做控件，而實用Label或圖片就可以了。）

成都創新互聯專注于中方企業網站建設,響應式網站建設,商城建設。中方網站建設公司,為中方等地區提供建站服務。全流程按需制作，專業設計，全程項目跟蹤，成都創新互聯專業和態度為您提供的服務

VB.net做軟鍵盤輸入中文漢字,請問在VB.net不是VB6中.怎么做軟鍵盤輸入漢字.我現在能輸入英文但是漢字不行

既然你可以輸入英文，只要系統切換到中文輸入方式下，例如“谷歌拼音”，不就可以輸入中文了

VB.net 軟鍵盤 制作

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