26-07-13, 12:30 AM
السلام عليكم
اخ 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
اخ 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
