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

yazrxa

ئەسسالام ئەزىز تورداشلار،مەن VB غا يېڭى ئۈگەنچى، قىزىقىشىپ بويىچە يونىكودلۇق خەت كىرگۈزگۈچتىن بىرنى ياسىغان ئىدىم ،ئەمما خەتنى Photoshop قا ئەڭىرسەم نورمال ئۇلانماي ۋاتىدۇ، يەنى تەتۈر،ھەم ھەرىپلەر ئايرىم ئايرىم.
Enter كۇنۇپكىسىغا ئىشلەتكەن كود:

1. Private Sub TextBox1_KeyDown(KeyCode As _
   
2. MSForms.ReturnInteger, Shift As Integer)
   
3. If KeyCode = 13 Then
   
4. TextBox1.SetFocus
   
5. TextBox1.SelStart = 0
   
6. TextBox1.SelLength = Len(TextBox1.Text)
   
7. TextBox1.Cut
   
8. End If
   
9. End Sub

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

يەنە قانداق كود قوشسام ئاندىن Photoshop دېگەندەك دېتاللاردا نورمال كۈرۈندىغان قىلالايمەن،يول كۆرسەتكەن بولساڭلار.
كۆپ رەھمەت.
ئاللاھ ئاسايىشلىق بەرسۇن.

alip

بۇنىڭ ئىككى خىل ئامالى بار.
بىرىنجى: تەتۈرنى تەتۈر يازسا ئوڭ بولىدۇ. ئادەتتىكى فوتوشوپ يۇنىكودنى قوللىمايدۇ. سىز ياسىغان كىرگۈزگۈچتە ئاساسى رايوندا كىرگۈزدىغان قىلماي، كېڭەيتىلگەن رايوندا تەتۈر كىرگۈزۈش ئىقتىدارىنى ئەمەلگە ئاشۇرسىڭىز ئادەتتىكى فوتوشوپتا ئۇيغۇرچە كىرگۈزۈش مەقسىتىگە يىتەلەيسىز.
ئىككىنجى: يۇنىكودنى قوللايدىغان فوتوشوپ ئىشلىتىڭ. مەسلەن مۇشۇ ئالىپ تورىغا چىقىرىپ قويغان Photoshop CS4 ME

yazrxa

alip يوللانغان ۋاقتى  2011-6-16 23:15
بۇنىڭ ئىككى خىل ئامالى بار.
بىرىنجى: تەتۈرنى تەتۈر ياز ...

1. Text2.Text = StrReverse(Text1.Text)

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

يۇقارقى كود ئارقىلىق، تەتۈر قىلساق بۇلامدۇ؟
كېڭەيتىلگەن رايون دېگىنىڭىز؟
مەن بۇنىڭغا يېڭى بولغاچ ،سەل گاڭگىراپ قالدىم، مەن يالغۇز Photoshop ل ئەمەس ،يەنە  Premiere دېگەندەك دېتاللارنىمۇ ئىشلىتەتتىم. ئۆزەم ياسىغان كىرگۈزگۈچنى شۇنداق ئىشلىتىپ باققىم بار ئىدى.
كۆپ رەھمەت.

bidar

يوقۇرىدا دېگەن  فۇنكىسىيىڭىزنى يەنىلا كېڭەيتىلگەن رايۇندىكى تېكىستلەرنى تەتۈرسىگە ئايلاندۇرۇشقا ئىشلەتسىڭىز بولىدۇ، لېكىن ئارىلاش تېكىستلەر كەلگەندە يەنە ئازىراق ئاۋارچىلىققا ئۇچىرايسىز، سان، ئېنگىلىزچە ۋە ئۇيغۇرچىدىن باشقا تېكىستىلەرمۇ تەتۈر بولۇپ كېتىدۇ، ئۇنىڭغا يەنە ئىش قوشىسىز.
ئۇيغۇرچە ھەرپلىرىمىز يۇنىكود جەدىۋىلىدە ئاساسىي رايون ۋە كېڭەيتىلگەن رايوندىن ئىبارەت 2 رايونغا ئورۇنلاشقان بولۇپ،33 ھەرىپىمىزنىڭ يالغۇز شەكلى يۇنىكود ئاساسىي رايونى بولغان 6-رايونغا تەقسىملەنگەن، 33 ھەرپنىڭ تولۇق شەكلى (باش،ئوتتۇرا.... ) كېڭەيتىلگەن رايۇنغا تەقسىملەنگەن.

alip

ئۇيغۇرچە خەتنى چىقىرىش ئۈچۈن بېسىلدىغان ھەر بىر كۇنۇپكىنىڭ كودىنى چىقىرىڭە كۆرۈپ باقاي.
ئاۋۇ كودىڭىز، ئېنتېر كۇنۇپكىسى بېسىلغاندا TextBox1 دىكى تېكىستنى فوكۇس ئورنىغا يوللايدىغان كودما؟

Premiere نىڭ يېزىق كىرگۈزگۈچىسى يۇنىكودنى قوللىمايدۇ. Edius نىڭ قوللايدۇ.

gheiret

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

سىزVB دە ئۇيغۇرچە كىرگۈزۈش ئۈچۈن قايسى كونتىرولنى ئىشلەتكەنتىڭىز ؟. UniToolBox نى ئىشلەتكەن بولسىڭىزenter كۇنۇپكىسىنى چەككەندە خەت ئاپتۇماتىك كۆچۈرۈلدىغان 复制 قىلغىلى بۇلىدىغان قىلىش تەسكە توختايدۇ.يەنى مائۇس ئارقىلىق 复制 قىلىپ چاپلىسىڭىز بۇلىدۇ .لېكىن ئىشلەتكەن photoshop دېتالىڭىز چۇقۇم يۇنىكودلۇق ھالەتتە ئۇيغۇرچە كىرگۈزگۈلى بۇلىدىغان Me نۇسخىىسى بۇلىشى كىرەك .ئادەتتىكى يۇنىكودىسز(ئۆلچەمسىز)كىزگۈزگۈچلەردە خەت يىزىپ چاپلاپ ئىشلىتىدىغان photoshop بولسا بولمايدۇ .ھەم خەتلەريۇقىردا دىيىلگەندەك .ئۇلانمايدىغان ....????????? چىقىۋالىدىغان ئالامەتلەر كۆرۈلىدۇ .photoshop نىڭ Me نۇسخىىسنى ئىشلىتىڭ ئۇيغۇرچىنى خۇددى word تا خەت يازغاندەك يېزىپ ئشلىتەلەيسىز .
ئەگەر vb  ياسىغان ئۇيغۇرچە كىرگۈزگۈچلەر بولسا .يەنى enter  نى ئۇرۇپ بىۋاستە كۆچۈرۋالىدىغان قىلىمەن دېسىڭىز .
Microsoft  Forms 2.0 Object  Librery  كونتىرولىنى ئىشلىتىڭ

yazrxa

ئۇيغۇرچە خەتنى چىقىرىش ئۈچۈن ئىشلەتكەن كود:

1. Private Sub TextBox1_KeyPress(KeyAscii _
   
2. As MSForms.ReturnInteger)
   
3. Select Case KeyAscii
   
4. Case 97  'a
   
5.   KC = 1726
   
6.   Case 65  'A
   
7.   KC = 1600
   
8.   Case 98  'b
   
9.   KC = 1576
   
10.   Case 66  'B
    
11.   KC = 1576
    
12.   Case 99  'c
    
13.   KC = 1594
    
14.   Case 67  'C
    
15.   KC = 1594
    
16.   Case 100  'd
    
17.   KC = 1583
    
18.   Case 68  'D
    
19.   KC = 1688
    
20.   Case 101  'e
    
21.   KC = 1744
    
22.   Case 69  'E
    
23.   KC = 1744
    
24.   Case 102  'f
    
25.   KC = 1575
    
26.   Case 70  'F
    
27.   KC = 1601
    
28.   Case 103  'g
    
29.   KC = 1749
    
30.   Case 71  'G
    
31.   KC = 1711
    
32.   Case 104  'h
    
33.   KC = 1609
    
34.   Case 72  'H
    
35.   KC = 1582
    
36.   Case 105  'i
    
37.   KC = 1709
    
38.   Case 73  'I
    
39.   KC = 1569
    
40.   Case 106  'j
    
41.   KC = 1602
    
42.   Case 74  'J
    
43.   KC = 1580
    
44.   Case 107  'k
    
45.   KC = 1603
    
46.   Case 75  'K
    
47.   KC = 1734
    
48.   Case 108  'l
    
49.   KC = 1604
    
50.   Case 76  'L
    
51.   KC = -261
    
52.   Case 109  'm
    
53.   KC = 1605
    
54.   Case 77  'M
    
55.   KC = 0
    
56.   Case 110  'n
    
57.   KC = 1606
    
58.   Case 78  'N
    
59.   KC = 0
    
60.   Case 111  'o
    
61.   KC = 1608
    
62.   Case 79  'O
    
63.   KC = 0
    
64.   Case 112  'p
    
65.   KC = 1662
    
66.   Case 80  'P
    
67.   KC = 0
    
68.   Case 113  'q
    
69.   KC = 1670
    
70.   Case 81  'q
    
71.   KC = 0
    
72.   Case 114  'r
    
73.   KC = 1585
    
74.   Case 82  'R
    
75.   KC = 0
    
76.   Case 115  's
    
77.   KC = 1587
    
78.   Case 83  'S
    
79.   KC = 0
    
80.   Case 116  't
    
81.   KC = 1578
    
82.   Case 84  'T
    
83.   KC = 1578
    
84.   Case 117  'u
    
85.   KC = 1735
    
86.   Case 85  'U
    
87.   KC = 1735
    
88.   Case 118  'v
    
89.   KC = 1736
    
90.   Case 86  'V
    
91.   KC = 1736
    
92.   Case 119  'w
    
93.   KC = 1739
    
94.   Case 87  'W
    
95.   KC = 1739
    
96.   Case 120  'x
    
97.   KC = 1588
    
98.   Case 88  'X
    
99.   KC = 1588
    
100.   Case 121  'y
     
101.   KC = 1610
     
102.   Case 89  'Y
     
103.   KC = 1610
     
104.   Case 122  'z
     
105.   KC = 1586
     
106.   Case 90  'Z
     
107.   KC = 1586
     
108.    Case 44 ',
     
109.         KC = 1548
     
110.     Case 62 '>
     
111.         KC = 187
     
112.     Case 41 ')
     
113.         KC = 40
     
114.     Case 60 '>
     
115.         KC = 62
     
116.     Case 40 '(
     
117.         KC = 41
     
118.     Case 47 '/
     
119.         KC = 1574
     
120.     Case 63 '?
     
121.         KC = 1567
     
122.     Case 59 ';
     
123.         KC = 1563
     
124.      Case 39 '  '
     
125.         KC = 44
     
126.     Case 34 '  "
     
127.         KC = 34
     
128.     Case 91 '[
     
129.         KC = 93
     
130.     Case 123 '{
     
131.         KC = 125
     
132.     Case 93 ']
     
133.         KC = 91
     
134.     Case 125 '}
     
135.        KC = 123
     
136. End Select
     
137. If KC <> 0 Then KeyAscii = 0
     
138. TextBox1.Text = TextBox1.Text + ChrW(KC)
     
139. End Sub

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

Enterكۇنۇپكىسىنى باسقاندا خەتنى كىسىپ چاپلاش تاختىسىغا كۈچۈرۈش، textbox نى تازلاش ئۈچۈن ئىشلەتكەن كود:

1. Private Sub TextBox1_KeyDown(KeyCode As _
   
2. MSForms.ReturnInteger, Shift As Integer)
   
3. If KeyCode = 13 Then
   
4. TextBox1.SetFocus
   
5. TextBox1.SelStart = 0
   
6. TextBox1.SelLength = Len(TextBox1.Text)
   
7. TextBox1.Cut
   
8. End If
   
9. End Sub

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

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