اعمل مشروعا مع 2 تكست بوكس اساسين
و العدد الذي تريده من التكست بوكس أخرى
و اكتب الكود :
[HTML]Private Sub Text1_Change()
d = 0
charlen% = Len(Text1.Text)
For i% = 1 To charlen%
d = d + 1
Letters$ = Mid(Text1.Text, i%, 1)
Encrypt$ = Encrypt$ & Chr(Asc(Letters$))
If d = 1 Then
Text3.Text = Encrypt$
End If
If d = 2 Then
Text4.Text = Chr(Asc(Letters$))
End If
If d = 3 Then
Text5.Text = Chr(Asc(Letters$))
End If
If d = 4 Then
Text6.Text = Chr(Asc(Letters$))
End If
If d = 5 Then
Text7.Text = Chr(Asc(Letters$))
End If
''''''''''''''''''''''''''''''''
Next i
Text2.Text = Encrypt$
End Sub[/HTML]
هنا المثال عن اول خمسة احرف و اذا اردت احرفا اكثر زد تكست بوكسات و كرر مكان ''''''''''''''''' الكود التالي:
If d = 6 Then
Text8.Text = Chr(Asc(Letters$))
End If
حيث ان ال d تزداد بقدار (1) و التكست بوكس يبدل بتكست بوكس آخر
و هذا هو الملف :
http://www.gulfup.com/?UIWUQj
و العدد الذي تريده من التكست بوكس أخرى
و اكتب الكود :
[HTML]Private Sub Text1_Change()
d = 0
charlen% = Len(Text1.Text)
For i% = 1 To charlen%
d = d + 1
Letters$ = Mid(Text1.Text, i%, 1)
Encrypt$ = Encrypt$ & Chr(Asc(Letters$))
If d = 1 Then
Text3.Text = Encrypt$
End If
If d = 2 Then
Text4.Text = Chr(Asc(Letters$))
End If
If d = 3 Then
Text5.Text = Chr(Asc(Letters$))
End If
If d = 4 Then
Text6.Text = Chr(Asc(Letters$))
End If
If d = 5 Then
Text7.Text = Chr(Asc(Letters$))
End If
''''''''''''''''''''''''''''''''
Next i
Text2.Text = Encrypt$
End Sub[/HTML]
هنا المثال عن اول خمسة احرف و اذا اردت احرفا اكثر زد تكست بوكسات و كرر مكان ''''''''''''''''' الكود التالي:
If d = 6 Then
Text8.Text = Chr(Asc(Letters$))
End If
حيث ان ال d تزداد بقدار (1) و التكست بوكس يبدل بتكست بوكس آخر
و هذا هو الملف :
http://www.gulfup.com/?UIWUQj