25-03-16, 12:20 PM
25-03-16, 02:24 PM
03-04-16, 07:31 PM
جزاك الله خير اخي
ولاكن عند الضغط عليها اكثر من مرة يتم تكرار الرقم
ولاكن عند الضغط عليها اكثر من مرة يتم تكرار الرقم
03-04-16, 08:48 PM
أهلا أخي الكريم , كود أخي أمير لاغبار عليه , فقط قم بنقل تعريف المتغير Test_String والمتغير Str إلى داخل كود الزر وتنتهي المشكله وأقصد بالتعريف هذا الجزء :
ضعه داخل كود الزر ليصبح كود الفورم هكذا :
PHP كود :
Dim Test_String As String
Dim Str As Integer
ضعه داخل كود الزر ليصبح كود الفورم هكذا :
PHP كود :
Private Sub Command1_Click()
Dim Test_String As String
Dim Str As Integer
For Str = 1 To Len(Text1)
If Not InStr("0123456789+-/*", Mid$(Text1, Str, 1)) = 0 Then
Test_String = Test_String + Mid$(Text1, Str, 1)
End If
Next Str
Text1 = Test_String
End Sub
04-04-16, 10:55 AM
جزاكم الله خير