السلام عليكم
اخ Lover programming
اخي مثل طريقة الاخ VB_Coder
ولكن ما عليك سوى ان تضع الزر الاول وتسميه cmd من خاصية name ثم تنسخه حسب الرموز التي تريدها مثلا * & ^ % $ # @ ! وتلصقه فتظهر رسالة تظهر لك انك تريد مصفوفة اضغط yes ثم اكتب في كل زر الرمز الذي تريد من خاصية العنونة caption ثم اضغط على اي زر من ازرار الرموز ثم اكتب الكود التالي
Text1.Text = Replace(Text1.Text, " ", Cmd(Index).Caption)
فيكون الكود هكذا
Private Sub Cmd_Click(Index As Integer)
Text1.Text = Replace(Text1.Text, " ", Cmd(Index).Caption)
End Sub
اخي VB_Coder جزاك الله خير وفقك الله لا اعرف كيف اشكرك فجزاك الله كل خير
اخي محمود اكرم وفقك الله اخي الكريم لا اعلم كيف ارد جميلك اشكرك جزيل الشكر على التوضيح الحمدلله مع انني مبتدأ لكن مع شرحك استطعت اعمل البرنامج وتطور مستواي
اخواني استطعت ان اعمل البرنامج وهذا بفصل الله ثم بفصلكم
تحياتي لكم
