کمک کمک کمک

[xsalamx]

سلام
4 تا کامند با یه تکست باکس بزار بعد کدهای زیر رو وارد کن:
Dim a As String
Dim b As String
Private Sub Form_Load()
Command1.Caption = "a1"
Command2.Caption = "a2"
Command3.Caption = "b1"
Command4.Caption = "b2"
End Sub
Private Sub Command1_Click() 'a1
If b = "" Then
a = "a00111011"
Text1.Text = a
End If
If b <> "" Then
a = "a00111011"
Text1.Text = a + "," + b
a = ""
b = ""
End If
End Sub
Private Sub Command2_Click() 'a2
Text1.Text = "a11111111"
End Sub
Private Sub Command3_Click() 'b1
If a = "" Then
b = "b00111011"
Text1.Text = b
End If
If a <> "" Then
b = "b00111011"
Text1.Text = a + "," + b
a = ""
b = ""
End If
End Sub
Private Sub Command4_Click() 'b2
Text1.Text = "b11111111"
End Sub
a1 و b1 برای این است که دو تا عدد رو داخل یک تکست باکس بنویسید(a00111011,b00111011) و a2 و b2 هم برای این که اعداد رو بصورت جدا جدا بنوسید(یکی از اعداد a11111111 یا b11111111 ).این دستورات برای 4 تا کامند شما می تونی برای بقیه کوپی کنی
خداحافظ