VB دا كونترولسىز ئۇيغۇرچە كىرگۈزۈشنى ئەمەلگە ئاشۇرۇش

Shahdiyar

ھازىر كومپيۇتېر ئۇچقاندەك تەرەققىي قىلىۋاتقان دەۋىردە ئۇيغۇر تىلىدا يۇمشاق دېتال ياسايدىغانلار ۋە يۇمشاق دېتاللار بارغانسېرى كۆپىيىۋاتىدۇ. بۇنىڭ ئىچىدە يۇنىكودلۇق ياسالغان يۇمشاق دېتاللارمۇ بار، يۇنىكودسىز ياسالغان يۇمشاق دېتاللارمۇ خېلى كۆپ سالماقنى ئېگەللەيدۇ. يۇنىكودلۇق ياسالغان يۇمشاق دېتاللار سىرتتىن يۇنىكودلۇق كونترول قوشۇلغانلىرىمۇ بار، سىرتتىن يۇنىكودلۇق كونترول قوشۇلمايلا پروگرامما كودى ئارقىلىق ھەل قىلىنغانلىرىمۇ بار. يەنە ھازىرقى يېڭى نەشىردىكى NET سۇپىسىدا ياسالغانلىرىمۇ بار (NET سۇپىسىدا ھەر قانداق يەرگە يۇنىكودلۇق بىۋاستە كىرگۈزگىلى بولىدۇ).
باشقۇرۇش خاراكتېرلىك قوللىنىشچان ئۇيغۇرچە يۇمشاق دېتاللاردا چوقۇم ئۇيغۇرچە كىرگۈزۈشكە توغرا كېلىدۇ.
مەسىلەن: ئىسىم كىرگۈزىدىغان يەرگە ئۇيغۇرچە كىرگۈزۈش، ئېلخەت كىرگۈزىدىغان يەرگە لاتىنچە كىرگۈزۈشكە توغرا كېلىدۇ.
بىزنىڭ تۆۋەندە سۆزلىمەكچى بولغىنىمىز، سىرتتىن ھېچقانداق كونترول ئىشلەتمەي تىل سىتونىدىن ئۇيغۇرچە كىرگۈزۈشنىمۇ تاللاپ بەرمەي ئۇيغۇرچە كىرگۈزۈشكە تېگىشلىك بولغان جايلارغا بىۋاستە ئۇيغۇرچە كىرگۈزۈشنى ئەمەلگە ئاشۇرۇش جەريانى بولۇپ، قىززىقسىڭىز تۆۋەندىكىدەك ھەل قىلىۋېلىڭ:
(دىققەت: ئۆزىڭىز ئەمەلىيەتتىن ئۆتكۈزۈپ قىلىشىڭىز ئۈچۈن يېڭى 工程 قۇرۇپ ئاندىن خىزمەت قىلىپ بېقىڭ. بۇ سىناقتىن ئىشەنچلىك ئۆتكەن بولۇپ، ھەل قىلالمىسىڭىز سورىسىڭىز بولىدۇ.)
بىرىنجى: 模块 يەنى Module دىن بىرنى قۇرىمىز، ئۇنىڭغا تۆۋەندىكى كودنى يازىمىز:

1. Public Function Shahdiyar(ByVal Uyvb As Integer) As String
   
2. Dim Kc As Integer
   
3. Kc = Uyvb
   
4. If Kc = 11 Then imu = Not imu
   
5. If imu = True Then
   
6. Select Case Kc
   
7. Case 47: Kc = 1574
   
8. Case 63: Kc = 1567
   
9. Case 44: Kc = 1548
   
10. Case 109, 77: Kc = 1605
    
11. Case 110, 78: Kc = 1606
    
12. Case 98, 66: Kc = 1576
    
13. Case 118, 86: Kc = 1736
    
14. Case 99, 67: Kc = 1594
    
15. Case 120, 88: Kc = 1588
    
16. Case 122, 90: Kc = 1586
    
17. Case 97, 65: Kc = 1726
    
18. Case 115, 83: Kc = 1587
    
19. Case 100: Kc = 1583
    
20. Case 68: Kc = 1688
    
21. Case 102: Kc = 1575
    
22. Case 70: Kc = 1601
    
23. Case 103: Kc = 1749
    
24. Case 71: Kc = 1711
    
25. Case 104: Kc = 1609
    
26. Case 72: Kc = 1582
    
27. Case 106: Kc = 1602
    
28. Case 74: Kc = 1580
    
29. Case 107: Kc = 1603
    
30. Case 75: Kc = 1734
    
31. Case 108, 76: Kc = 1604
    
32. Case 59: Kc = 1563
    
33. Case 113, 81: Kc = 1670
    
34. Case 119, 87: Kc = 1739
    
35. Case 101, 69: Kc = 1744
    
36. Case 114, 82: Kc = 1585
    
37. Case 116, 84: Kc = 1578
    
38. Case 121, 89: Kc = 1610
    
39. Case 117, 85: Kc = 1735
    
40. Case 105, 73: Kc = 1709
    
41. Case 111, 79: Kc = 1608
    
42. Case 112, 80: Kc = 1662
    
43. Case Else: Kc = 0
    
44. End Select
    
45. If Kc <> 0 Then Uyvb = Kc
    
46. Else
    
47. Select Case Kc
    
48. Case 47: Kc = 1574
    
49. Case 63: Kc = 1567
    
50. Case 44: Kc = 1548
    
51. Case 109, 77: Kc = 1605
    
52. Case 110, 78: Kc = 1606
    
53. Case 98, 66: Kc = 1576
    
54. Case 118, 86: Kc = 1736
    
55. Case 99, 67: Kc = 1594
    
56. Case 120, 88: Kc = 1588
    
57. Case 122, 90: Kc = 1586
    
58. Case 97, 65: Kc = 1726
    
59. Case 115, 83: Kc = 1587
    
60. Case 100: Kc = 1583
    
61. Case 68: Kc = 1688
    
62. Case 102: Kc = 1575
    
63. Case 70: Kc = 1601
    
64. Case 103: Kc = 1749
    
65. Case 71: Kc = 1711
    
66. Case 104: Kc = 1609
    
67. Case 72: Kc = 1582
    
68. Case 106: Kc = 1602
    
69. Case 74: Kc = 1580
    
70. Case 107: Kc = 1603
    
71. Case 75: Kc = 1734
    
72. Case 108, 76: Kc = 1604
    
73. Case 59: Kc = 1563
    
74. Case 113, 81: Kc = 1670
    
75. Case 119, 87: Kc = 1739
    
76. Case 101, 69: Kc = 1744
    
77. Case 114, 82: Kc = 1585
    
78. Case 116, 84: Kc = 1578
    
79. Case 121, 89: Kc = 1610
    
80. Case 117, 85: Kc = 1735
    
81. Case 105, 73: Kc = 1709
    
82. Case 111, 79: Kc = 1608
    
83. Case 112, 80: Kc = 1662
    
84. End Select
    
85. If Kc <> 0 Then Uyvb = Kc
    
86. End If
    
87. Shahdiyar = ChrW(Uyvb)
    
88. End Function

مەزمۇننى كۆچۈرۈۋېلىش

ئىككىنجى: Ctrl+T بېرىكمە كونۇپكىسىنى بېسىپ كونترول قوشۇش رامكىسىغا كىرىپ ئۇ يەردىن VB نىڭ ئۆزىدە بار بولغان يۇنىكودنى قوللايدىغان كونترول Microsoft Forms 2.0 Object Library نى تاللاپ مۇقىملاشتۇرىمىز. Form غا بىز يېڭىدىن قوشقان TextBox ناملىق كونترولدىن بىرنى قۇرۇپ  TextBox1 نىڭ نامىنى خاسلىق رايونىدىن Text1 قىلىپ ئۆزگەرتىپ قويىمىز. ئاندىن ئۇنى قوش چېكىپ Click ھادىسىنى KeyPress ھادىسىسىگە تاللاپ بېرىپ كۆرسىتىپ بەرگەن ئورۇنغا تۆۋەندىكى كودنى يازىمىز:

1. If KeyAscii = 11 Then
   
2. aa = Shahdiyar(KeyAscii)
   
3. Else
   
4. Text1.SelText = Shahdiyar(KeyAscii): KeyAscii = 0:
   
5. End If

مەزمۇننى كۆچۈرۈۋېلىش

ئەمدى Text1 نىڭ Font خەت نۇسخىسىنى خالىغان ئۇيغۇرچە خەت نۇسخىسىغا تاللاپ قويۇپ كونۇپكا تاختىسىدىن F5 كونۇپكىسىنى بېسىپ ئۈنۈمىنى كۆرۈپ سىناپ باقسىڭىز بولىدۇ.
بىلەلمىگەن ياكى چۈشىنەلمىگەن جايلار بولسا مۇشۇ تېما ئاستىغا ئىنكاس قالدۇرۇپ قويۇپ سورىسىڭىز بولىدۇ.

alip

ئەينى ۋاقىتتا VB دا مۇشۇنداق ئۇيغۇرچە كىرگۈزۈلمەي، نەچچە كېچە ھەپلىشىپ نەتىجە چىقىرالمىغان ئىدىم.

alip

Kc = 1610 دىكى 1610 ئۇيغۇرچە ھەرپنىڭ قانداق كودى؟ يۇنىكودىمىكىن دىسەم ئوخشىماي تۇرىدۇ

Shahdiyar

ئۇ دېگەن Module غا يازىدىغان قىممەت. Form غا ئەمەس.
ئاندىن بىزنىڭ ئىشلىتىدىغىنىمىز قورال ساندۇقىدىكى بىۋاستە Text كونترولى ئەمەس. 部件 رايونىدىكى Microsoft Forms 2.0 كونترولىدىكى TextBox كونترولىنى ئىشلىتىمىز. قورال ساندۇقىدىكى ئۆزىدە بار بولغان كونترولنى ئىشلەتسەك ئوخشاشلا ؟؟؟؟؟؟ بەلگىسى چىقىۋالىدۇ.

教程学

ئىنكاس قايتۇرۇش Shahdiyar نىڭ يازمىسى

سىزدېگەن مەشغۇلات قېلسام  rum-time error '424'; object required دېگەن ئىككى قاتار خاتالىق ئۇچۇرى چقتى بۇنى قانداق ھەل قېلغلى بۇلىدۇ.

Shahdiyar

بۇنىڭ سىناق مىسال كودىنى يوللاپ قويدۇم.
سىناپ باققۇچىلار بۇ ئەسلى كود ھۆججىتىنى چۈشۈرۈۋالسا بولىدۇ:

Shahdiyar_VB.rar (6.25 KB, چۈشۈرۈش سانى: 195)

2011-4-7 17:04:11 چىقىرىش

چۈشۈرۈش سانى: 195