06-02-23, 01:14 PM
السلام عليكم
اخوتي الاعزاء
السؤال الاول
كيف امنع المستخدم من استخدام المسافه في صندوق النص
السؤال الثاني
تحويل هذ الكود من vb6 الى vb 2010
ولكم فائق الود والاحترام
اخوتي الاعزاء
السؤال الاول
كيف امنع المستخدم من استخدام المسافه في صندوق النص
السؤال الثاني
تحويل هذ الكود من vb6 الى vb 2010
ولكم فائق الود والاحترام
PHP كود :
List1.Clear
For i = 1 To Len(Text3)
X = Mid$(Text3, i, 1)
If X <> " " Then
str0 = str0 + X
str1 = str1 + " " + X
len1 = len1 + 1
End If
Next
List1.AddItem str1
'-----------------------------------
len2 = len1
If len1 Mod 2 = 0 Then
m = len1 / 2
Else
m = Int(len1 / 2) + 1
End If
10 len2 = len1
For k = 1 To m
X1 = Mid$(str0, len2, 1)
str2 = str2 + " " + X1
str3 = str3 + X1
If k = Int(len1 / 2) + 1 Then GoTo 20
X1 = Mid$(str0, k, 1)
str2 = str2 + " " + X1
str3 = str3 + X1
len2 = len2 - 1
Next
20 If List1.List(0) <> str2 Then
List1.AddItem str2
str0 = str3
str3 = ""
str2 = ""
GoTo 10
End If