كود تهجئة - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : الأقسام التعليمية - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=90) +--- قسم : مكتبة أمثلة ومشاريع أعضاء المنتدى (http://vb4arb.com/vb/forumdisplay.php?fid=114) +---- قسم : مكتبة مشاريع وبرامج VB 6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=142) +---- الموضوع : كود تهجئة (/showthread.php?tid=5165)

كود تهجئة - asto - 05-10-12 اعمل مشروعا مع 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