[hassan]

تفضل هاذي فكرتك بالانقليزي

PHP كود :

Public Class Form1
    Dim stringg As String
    Dim q1 As Integer = 1
    Dim w2 As Integer = 2
    Dim e3 As Integer = 3
    Dim r4 As Integer = 4
    Dim t5 As Integer = 5
    Dim y6 As Integer = 6
    Dim U7 As Integer = 7
    Dim I8 As Integer = 8
    Dim O9 As Integer = 9
    Dim P10 As Integer = 10
    Dim a11 As Integer = 11
    Dim s12 As Integer = 12
    Dim d13 As Integer = 13
    Dim f14 As Integer = 14
    Dim g15 As Integer = 15
    Dim h16 As Integer = 16
    Dim j17 As Integer = 17
    Dim k18 As Integer = 18
    Dim l19 As Integer = 19
    Dim z20 As Integer = 20
    Dim x21 As Integer = 21
    Dim c22 As Integer = 22
    Dim v23 As Integer = 23
    Dim b24 As Integer = 24
    Dim n25 As Integer = 25
    Dim m26 As Integer = 26


  
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        For Each aa As String In TextBox1.Text.ToString
            If aa = "q" Then
                TextBox2.SelectedText = q1
            ElseIf aa = "w" Then
                TextBox2.SelectedText = w2
            ElseIf aa = "e" Then
                TextBox2.SelectedText = e3
            ElseIf aa = "r" Then
                TextBox2.SelectedText = r4
            ElseIf aa = "t" Then
                TextBox2.SelectedText = t5
            ElseIf aa = "y" Then
                TextBox2.SelectedText = y6
            ElseIf aa = "U" Then
                TextBox2.SelectedText = U7
            ElseIf aa = "I" Then
                TextBox2.SelectedText = I8
            ElseIf aa = "O" Then
                TextBox2.SelectedText = O9
            ElseIf aa = "P" Then
                TextBox2.SelectedText = P10
            ElseIf aa = "a" Then
                TextBox2.SelectedText = a11
            ElseIf aa = "s" Then
                TextBox2.SelectedText = s12
            ElseIf aa = "d" Then
                TextBox2.SelectedText = d13
            ElseIf aa = "f" Then
                TextBox2.SelectedText = f14
            ElseIf aa = "g" Then
                TextBox2.SelectedText = g15
            ElseIf aa = "h" Then
                TextBox2.SelectedText = h16
            ElseIf aa = "j" Then
                TextBox2.SelectedText = j17
            ElseIf aa = "k" Then
                TextBox2.SelectedText = k18
            ElseIf aa = "l" Then
                TextBox2.SelectedText = l19
            ElseIf aa = "z" Then
                TextBox2.SelectedText = z20
            ElseIf aa = "x" Then
                TextBox2.SelectedText = x21
            ElseIf aa = "c" Then
                TextBox2.SelectedText = c22
            ElseIf aa = "v" Then
                TextBox2.SelectedText = v23
            ElseIf aa = "b" Then
                TextBox2.SelectedText = b24
            ElseIf aa = "n" Then
                TextBox2.SelectedText = n25
            ElseIf aa = "m" Then
                TextBox2.SelectedText = m26
            End If
        Next
    End Sub

    
End Class 


اذا هاذي الطريقه المطلوبه فقط قم بتغيير الاحرف الى عربي

طبعنا في طرق ابصط 

وشكرا