Public Class Form2
10年積累的成都網(wǎng)站建設(shè)、做網(wǎng)站經(jīng)驗(yàn),可以快速應(yīng)對客戶對網(wǎng)站的新想法和需求。提供各種問題對應(yīng)的解決方案。讓選擇我們的客戶得到更好、更有力的網(wǎng)絡(luò)服務(wù)。我雖然不認(rèn)識(shí)你,你也不認(rèn)識(shí)我。但先網(wǎng)站設(shè)計(jì)后付款的網(wǎng)站建設(shè)流程,更有托克托免費(fèi)網(wǎng)站建設(shè)讓你可以放心的選擇與我們合作。
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
觸摸屏不是哪個(gè)程序的問題,而是屏幕內(nèi)含有一層觸覺反饋系統(tǒng)。所以只要是用按鈕控制的程序,都可以在觸屏系統(tǒng)中運(yùn)行,VB編寫的也一樣,
跟鼠標(biāo)的單擊事件一樣。每個(gè)文本框的單擊事件都調(diào)用軟鍵盤,然后用一個(gè)變量記錄是哪一個(gè)文本框,輸入數(shù)字的時(shí)候檢查變量,來確定往哪一個(gè)文本框內(nèi)輸入。
我現(xiàn)在沒有現(xiàn)成的代碼給你,不過可以給你一些建議。如果你想在同一進(jìn)程內(nèi)實(shí)現(xiàn)屏幕鍵盤,則你只需要再F2打開的時(shí)候,將F1的當(dāng)前焦點(diǎn)控件對象作為參數(shù),傳遞給F2窗體,在F2點(diǎn)擊屏幕控件時(shí),設(shè)置該“控件.Text = 鍵值” 即可,這種我稱之為假屏幕鍵盤。如果你想跨進(jìn)程實(shí)現(xiàn)屏幕鍵盤,就比較難些了(比如:你想用你的F2窗體上的按鍵,實(shí)現(xiàn)QQ聊天內(nèi)容的輸入、記事本內(nèi)容的輸入)。這個(gè)需要用到 “鍵盤鉤子”技術(shù),有關(guān)這方面的資料,你不妨自己找找。 另外,你提的F2焦點(diǎn)老處理不好,我認(rèn)為F2根本不需要焦點(diǎn)控件(不要用按鈕做控件,而實(shí)用Label或圖片就可以了。)
VB中利用shell調(diào)用系統(tǒng)的軟鍵盤
以XP SP3為例:
Shell "C:\WINDOWS\system32\osk.exe",1
既然你可以輸入英文,只要系統(tǒng)切換到中文輸入方式下,例如“谷歌拼音”,不就可以輸入中文了