اینو میدونستم،
میخوام که فقط یکبار همون دفعه اول چاپ بشه و اگه دوباره روی command کلیک کردم دیگه چاپ نشه
Printable View
اینو میدونستم،
میخوام که فقط یکبار همون دفعه اول چاپ بشه و اگه دوباره روی command کلیک کردم دیگه چاپ نشه
با یکبار کلیک مقدار اضافه میشه و دکمه غیرفعال .نقل قول:
کد:Private Sub Command1_Click()
s = "Y"
List1.AddItem s
Command1.Enabled = False
End Sub
Private Sub Command2_Click()
a = "X"
List1.AddItem a
Command2.Enabled = False
End Sub
نقل قول:
این طوری هم میشه :
.
.
که دوتا متغیر برای هر کدوم از Command Button هات تعریف کنید و با قرار دادن یک شرط (اگر متغیر مقدار صفر داشت درون شرط اجرا بشه )
چرا مقدار صفر ؟ چون هر متغیریی که از نوع عددی تعریف میشود پیش فرض دارای مقدار صفر است . بعد از اضافه کردن مقادیر به لیست مقدار متغیر رو تغییر میدیم تا دفعه ی بعد دستورات درون شرط اجرا نشه (:8:)
.
.
کد:
Dim cmd1 As Byte, cmd2 As Byte
Private Sub Command1_Click()
If cmd1 = 0 Then
cmd1 = 1
s = "Y"
List1.AddItem s
End If
End Sub
Private Sub Command2_Click()
If cmd2 = 0 Then
cmd2 = 1
a = "X"
List1.AddItem a
End If
End Sub
پایینی تقریبا جواب داده
اگر مشکل یا سوال دیگه ای هم داشتم مطرح میکنم،ممنون