تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كود تهجئة
#1
اعمل مشروعا مع 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
الرد }}}
تم الشكر بواسطة:


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم