ئۇيغۇرچە يۇنىكودلۇق كىرگۈزگۈچ
ئويغۇرچە ۋە ۋابشقا تىللارنى ئالماشتۇرۇپ ئىشلىتىشكە بولىدۇ
Public imu As Boolean = True
Public Function uyghur(ByVal Hat As String) As String
Dim Kc As Integer = AscW(Hat)
If Kc = 11 Then imu = Not imu
If imu = True Then
Select Case Kc
Case 47 : Kc = 1574
Case 63 : Kc = 1567
Case 44 : Kc = 1548
Case 109,77 : Kc = 1605
Case 110,78 : Kc = 1606
Case 98,66 : Kc = 1576
Case 118,86 : Kc = 1736
Case 99,67 : Kc = 1594
Case 120,88 : Kc = 1588
Case 122,90 : Kc = 1586
Case 97,65 : Kc = 1726
Case 115,83 : Kc = 1587
Case 100 : Kc = 1583
Case 68 : Kc = 1688
Case 102 : Kc = 1575
Case 70 : Kc = 1601
Case 103 : Kc = 1749
Case 71 : Kc = 1711
Case 104 : Kc = 1609
Case 72 : Kc = 1582
Case 106 : Kc = 1602
Case 74 : Kc = 1580
Case 107 : Kc = 1603
Case 75 : Kc = 1734
Case 108,76 : Kc = 1604
Case 59 : Kc = 1563
Case 113,81 : Kc = 1670
Case 119,87 : Kc = 1739
Case 101,69 : Kc = 1744
Case 114,82 : Kc = 1585
Case 116,84 : Kc = 1578
Case 121,89 : Kc = 1610
Case 117,85 : Kc = 1735
Case 105,73 : Kc = 1709
Case 111,79 : Kc = 1608
Case 112,80 : Kc = 1662
Case Else : Kc = 0
End Select
If Kc <> 0 Then
Hat = ChrW(Kc)
End If
End If
uyghur = Hat
End Function
使用：
Private Sub TextBox1_KeyPress(ByVal sender As Object,ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
e.KeyChar = uyghur(e.KeyChar)
End Sub