|
Public Class Form1
Dim ShiftB = False
Dim Ek As String = "`1234567890-=\qwertyuiop[]asdfghjkl;'zxcvbnm,./~!@#$%^&*()_+|QWERTYUIOP{}ASDFGHJKL:ZXCVBNM<>?" & """"
Dim Uk As String = "`1234567890–=\چۋېرتيۇڭوپ»«ھسداەىقكل؛'زشغۈبنم،.ئ" & "~!@#$%^&*)(—+|】【〕〔ء¥‰÷×●}{ـ§ژفگخجۆل:""℃✓✕№※›‹؟" & """"
Dim UighurImeUN AsBoolean =True
PrivateSub TextBox1_KeyDown(ByVal sender AsObject,ByVal eAs System.Windows.Forms.KeyEventArgs)Handles TextBox1.KeyDown
If e.KeyCode = Keys.ShiftKey Then ShiftB = True
EndSub
PrivateSub TextBox1_KeyPress(ByVal sender As System.Object,ByVal eAs System.Windows.Forms.KeyPressEventArgs)Handles TextBox1.KeyPress
ShiftB = False
If UighurImeUN = TrueThen
Dim cc As Integer = InStr(Ek, e.KeyChar)
If cc > 0 Then e.KeyChar = Mid(Uk, cc, 1)
EndIf
EndSub
PrivateSub TextBox1_KeyUp(ByVal sender AsObject,ByVal eAs System.Windows.Forms.KeyEventArgs)Handles TextBox1.KeyUp
If e.KeyCode = Keys.ShiftKey And ShiftB = TrueThen
ShiftB = False
UighurImeUN = Not UighurImeUN
EndIf
EndSub
End Class | 
