پرانے ڈیٹا کو کھنگال رہا تھا اس پر نظر پڑی شاید کسی کے کام آجائے۔اس کوڈ کی مدد سے آپ اپنے پراجیکٹ میں استعمال ہونے والے کنٹرولز میں اردو لکھ سکتے ہیں۔
پراجیکٹ میں ایک نیا مڈیول شامل کریں اور مندرجہ ذیل کوڈ شامل کر دیں۔
اب کنٹرول KeyPress ایونٹ میں مندرجہ ذیل لائنیں لکھ دیں۔
اس کو کسی بھی کنٹرول میں استعمال کیا جا سکتا ہے۔ ٹیکسٹ باکس ، رچ ٹیکسٹ باکس، لسٹ باکس، وغیرہ جمع وغیرہ کچھ مثالیں مندرجہ ذیل ہیں۔
ٹیکسٹ باکس
رچ ٹیکسٹ باکس
پراجیکٹ میں ایک نیا مڈیول شامل کریں اور مندرجہ ذیل کوڈ شامل کر دیں۔
کوڈ:
Module Ascii2Urdu
Public Function AsciiToUrdu(ByVal Number As Integer) As String
Try
Select Case Number
Case 63 : AsciiToUrdu = ChrW(1567) ' ?
Case 65 : AsciiToUrdu = ChrW(&H622) 'A
Case 66 : AsciiToUrdu = ChrW(1555) 'B
Case 67 : AsciiToUrdu = ChrW(1579) 'C
Case 68 : AsciiToUrdu = ChrW(1672) 'D
Case 69 : AsciiToUrdu = ChrW(1617) 'E
Case 70 : AsciiToUrdu = ChrW(1648) 'F
Case 71 : AsciiToUrdu = ChrW(1594) 'G
Case 72 : AsciiToUrdu = ChrW(1581) 'H
'Case 73 : AsciiToUrdu = ChrW()'I
Case 74 : AsciiToUrdu = ChrW(1590) 'J
Case 75 : AsciiToUrdu = ChrW(1582) 'K
'Case 76 : AsciiToUrdu = ChrW() 'L
'Case 77 : AsciiToUrdu = ChrW() 'M
Case 78 : AsciiToUrdu = ChrW(1722) 'N
Case 79 : AsciiToUrdu = ChrW(1577) 'O
Case 80 : AsciiToUrdu = ChrW(1615) 'P
'Case 81 : AsciiToUrdu = ChrW() 'Q
Case 82 : AsciiToUrdu = ChrW(1681) 'R
Case 83 : AsciiToUrdu = ChrW(1589) 'S
Case 84 : AsciiToUrdu = ChrW(1657) 'T
Case 85 : AsciiToUrdu = ChrW(1569) 'U
Case 86 : AsciiToUrdu = ChrW(1592) 'V
Case 87 : AsciiToUrdu = ChrW(1572) 'W
Case 88 : AsciiToUrdu = ChrW(1688) 'X
Case 89 : AsciiToUrdu = ChrW(1747) 'W
Case 90 : AsciiToUrdu = ChrW(1584) 'Z
Case 96 : AsciiToUrdu = ChrW(1611) '`
Case 97 : AsciiToUrdu = ChrW(1575) 'a
Case 98 : AsciiToUrdu = ChrW(1576) 'b
Case 99 : AsciiToUrdu = ChrW(1670) 'c
Case 100 : AsciiToUrdu = ChrW(1583) 'd
Case 101 : AsciiToUrdu = ChrW(1593) 'e
Case 102 : AsciiToUrdu = ChrW(1601) 'f
Case 103 : AsciiToUrdu = ChrW(1711) 'g
Case 104 : AsciiToUrdu = ChrW(1726) 'h
Case 105 : AsciiToUrdu = ChrW(1740) 'i
Case 106 : AsciiToUrdu = ChrW(1580) 'j
Case 107 : AsciiToUrdu = ChrW(1705) 'k
Case 108 : AsciiToUrdu = ChrW(1604) 'l
Case 109 : AsciiToUrdu = ChrW(1605) 'm
Case 110 : AsciiToUrdu = ChrW(1606) 'n
Case 111 : AsciiToUrdu = ChrW(1729) 'o
Case 112 : AsciiToUrdu = ChrW(1662) 'p
Case 113 : AsciiToUrdu = ChrW(1602) 'q
Case 114 : AsciiToUrdu = ChrW(1585) 'r
Case 115 : AsciiToUrdu = ChrW(1587) 's
Case 116 : AsciiToUrdu = ChrW(1578) 't
Case 117 : AsciiToUrdu = ChrW(1574) 'u
Case 118 : AsciiToUrdu = ChrW(1591) 'v
Case 119 : AsciiToUrdu = ChrW(1608) 'w
Case 120 : AsciiToUrdu = ChrW(1588) 'x
Case 121 : AsciiToUrdu = ChrW(1746) 'y
Case 122 : AsciiToUrdu = ChrW(1586) 'z
Case 124 : AsciiToUrdu = ChrW(124) '|
Case 126 : AsciiToUrdu = ChrW(1613)
Case 59 : AsciiToUrdu = ChrW(1563) ';
Case 48 : AsciiToUrdu = ChrW(48) ''
Case 49 : AsciiToUrdu = ChrW(49) '1
Case 50 : AsciiToUrdu = ChrW(50) '2
Case 51 : AsciiToUrdu = ChrW(51) '3
Case 52 : AsciiToUrdu = ChrW(52) '4
Case 53 : AsciiToUrdu = ChrW(53) '5
Case 54 : AsciiToUrdu = ChrW(54) '6
Case 55 : AsciiToUrdu = ChrW(55) '7
Case 56 : AsciiToUrdu = ChrW(56) '8
Case 57 : AsciiToUrdu = ChrW(57) '9
Case 44 : AsciiToUrdu = ChrW(1548)
Case 69 : AsciiToUrdu = ChrW(1553)
Case 46 : AsciiToUrdu = ChrW(1748)
Case 77 : AsciiToUrdu = ChrW(1762)
Case 76 : AsciiToUrdu = ChrW(1554)
Case 81 : AsciiToUrdu = ChrW(1619)
Case 58 : AsciiToUrdu = ChrW(&H3A) ':
Case 34 : AsciiToUrdu = ChrW(&H22) '"
Case 58 : AsciiToUrdu = ChrW(&H3A)
Case 39 : AsciiToUrdu = ChrW(&H27)
Case 47 : AsciiToUrdu = ChrW(&H2F) '/
Case 60 : AsciiToUrdu = ChrW(1616) '<
Case 62 : AsciiToUrdu = ChrW(1614) '>
Case 92 : AsciiToUrdu = ChrW(1618) '\
Case 91 : AsciiToUrdu = ChrW(&H5B) '[
Case 93 : AsciiToUrdu = ChrW(&H5D) ']
Case 123 : AsciiToUrdu = ChrW(&H7B) '{
Case 125 : AsciiToUrdu = ChrW(&H7D) '}
Case 166 : AsciiToUrdu = ChrW(&HA6)
Case 33 : AsciiToUrdu = ChrW(33) '!
Case 64 : AsciiToUrdu = ChrW(64) '@
Case 35 : AsciiToUrdu = ChrW(35) '#
Case 36 : AsciiToUrdu = ChrW(36) '$
Case 37 : AsciiToUrdu = ChrW(37) '%
Case 94 : AsciiToUrdu = ChrW(94) '^
Case 38 : AsciiToUrdu = ChrW(38) '&
Case 42 : AsciiToUrdu = ChrW(42) '*
Case 40 : AsciiToUrdu = ChrW(40) '(
Case 41 : AsciiToUrdu = ChrW(41) ')
Case 95 : AsciiToUrdu = ChrW(95) '_
Case 43 : AsciiToUrdu = ChrW(43) '+
Case 45 : AsciiToUrdu = ChrW(45) '-
Case 61 : AsciiToUrdu = ChrW(&H3D)
Case 32 : AsciiToUrdu = ChrW(&H20)
Case Else
AsciiToUrdu = ChrW(&H0) + ChrW(&H0)
End Select
Catch ex As Exception
Throw New Exception("AsciiToUrdu", ex)
End Try
End Function
End Moduleاب کنٹرول KeyPress ایونٹ میں مندرجہ ذیل لائنیں لکھ دیں۔
کوڈ:
If Not e.KeyChar = vbBack Then
e.KeyChar = ChrW(AscW(Ascii2Urdu.AsciiToUrdu(AscW(e.KeyChar))))
End Ifاس کو کسی بھی کنٹرول میں استعمال کیا جا سکتا ہے۔ ٹیکسٹ باکس ، رچ ٹیکسٹ باکس، لسٹ باکس، وغیرہ جمع وغیرہ کچھ مثالیں مندرجہ ذیل ہیں۔
ٹیکسٹ باکس
کوڈ:
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If Not e.KeyChar = vbBack Then
e.KeyChar = ChrW(AscW(Ascii2Urdu.AsciiToUrdu(AscW(e.KeyChar))))
End If
End Subرچ ٹیکسٹ باکس
کوڈ:
Private Sub RichTextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles RichTextBox1.KeyPress
If Not e.KeyChar = vbBack Then ' AndAlso e.KeyChar = Then
e.KeyChar = ChrW(AscW(Ascii2Urdu.AsciiToUrdu(AscW(e.KeyChar))))
End If
End Sub
