إقتباس :كيف اشترط على المستخدم إدخال في التكست إدخال قيمة تحتوي على علامة مئوية.ممكن أى مثال صغير ؟
إقتباس :(للاستخدام مع التكست يخزن قيماً رقمية كنسب مئوية).؟؟ممكن مع نفس المثال السابق توضح المقصود هنا
(11-04-20, 07:10 PM)اسلام الكبابى كتب : [ -> ]إقتباس :كيف اشترط على المستخدم إدخال في التكست إدخال قيمة تحتوي على علامة مئوية.ممكن أى مثال صغير ؟
إقتباس :(للاستخدام مع التكست يخزن قيماً رقمية كنسب مئوية).؟؟ممكن مع نفس المثال السابق توضح المقصود هنا
Dim Str1 As String = "ABCD" ' c
Dim Str2 As String = "1234" ' c
IsNumeric(Str1) = False
IsNumeric(Str2) = TrueIf IsNumeric(TextBox1.Text)= True Then
TextBox1.Text += "%" ' just for correcting text allignment
End IfIf IsNumeric(TextBox1.Text)= True Then
TextBox1.Text = FormatPercent(TextBox1.Text,2) ' if textbox1.text=1234 the result will be 1234.00%
End IfPrivate Sub Command1_Click()
AAA = Trim(Text1.Text)
LENN = Len(AAA)
INS = InStr(AAA, "%")
If INS < LENN Then MsgBox "", vbCritical, " %من فضلك أدخل كنسبة مئوية . رقم وبعده العلامة": GoTo 100
BBB = Replace(AAA, "%", "")
If Not IsNumeric(BBB) Then MsgBox "", vbCritical, "من فضلك أدخل كنسبة مئوية . ضع قبل العلامة % رقم": GoTo 100
X = BBB / 100
Print "X= "; X
100 End SubPrivate Sub Command1_Click()
If InStr(1, Text1.Text, "%", vbTextCompare) = 0 Then
Text1.Text = ""
End If
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim s As String
s = "1234567890%." & vbBack
If InStr(s, Chr(KeyAscii)) = 0 Then
KeyAscii = 0
End If
End Sub