VB.NET 维吾尔语输入法函数

VB.NET 维吾尔语输入法函数,第1张

概述 ئۇيغۇرچە يۇنىكودلۇق كىرگۈزگۈچ ئويغۇرچە ۋە ۋابشقا تىللارنى ئالماشتۇرۇپ ئىشلىتىشكە بولىدۇ Public imu As Boolean = True     Public Function uyghur(ByVal Hat As String) As String         Dim Kc As Intege

ئۇيغۇرچە يۇنىكودلۇق كىرگۈزگۈچ

ئويغۇرچە ۋە ۋابشقا تىللارنى ئالماشتۇرۇپ ئىشلىتىشكە بولىدۇ

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

总结

以上是内存溢出为你收集整理的VB.NET 维吾尔输入法函数全部内容,希望文章能够帮你解决VB.NET 维吾尔语输入法函数所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错,欢迎将内存溢出网站推荐给程序员好友。

欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/langs/1294501.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2022-06-10
下一篇 2022-06-10

发表评论

登录后才能评论

评论列表(0条)

保存