[محمود صالح]

اطلعي

http://arabteam2000-forum.com/index.php?...9-unicode/

وممكن تستخدمي كود استاذ [b]عبدالله الدوسري[/b]
وتكوني شفرات خاصة بكي كمثال ضعي اثنان (textbox)

PHP كود :

   Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
        Dim Output As String
        For Each Chrstr As Char In TextBox1.Text
            Output &= conv_txt(Chrstr)
        Next
        TextBox2.Text = Output
    End Sub
    Function conv_txt(ByVal str As String)
        Dim Out_txt As String
        Select Case str
            Case Is = "ا"
                Out_txt = "x-opu"
            Case Is = "ب"
                Out_txt = "x-lkj"
            Case Is = "ج"
                Out_txt = "x-vbn"
        End Select
        Return Out_txt
    End Function