دو حالته کردن باتن

[ho3ein282]

سلام
میخواستم بدونم چطوری میشه یک باتن رو دو حالته کرد (فلیپ فلاپ)؟
در بعضی از کامپونت ها با true کردن checkboxbehavi رنگ باتن در کلیک اول تغییر میکنه و با کلیک دوم به حالت اولیه برمی گرده.
لطفا راهنمایی کنید.:لبخندساده:

[m.4.r.m]

حالت Style باتون رو بزارید روی گرافیک بعد این هم دستورات

Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.BackColor = vbYellow
End Sub

Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.BackColor = &H8000000F
End Sub

[محسن واژدی]

سلام علیکم
میتوانید از CheckBox هم برای این منظور استفاده کنید، به عبارتی خاصیت Style این کنترل را بر روی Graphical تنظیم کرده سپس از کدی مانند زیر استفاده کنید:

Private Sub Check1_Click()
If Check1.Value Then Check1.BackColor = vbRed Else Check1.BackColor = vbButtonFace
End Sub

موفق باشید

[ho3ein282]

ببخشید
منظورم رو بد رسوندم
منظورم اینه که با کلیک اول یک عمل انجام شود و با کلیک دوم عمل دیگه ای انجام بشه
با تشکر

[محسن واژدی]

سلام
از کدی مشابه زیر میتوانیم برای این مورد استفاده کنیم:

Private Sub Command1_Click()
Static iClk_num%
iClk_num% = iClk_num% + 1
If iClk_num% = 1 Then
Caption = "Click1"
Else
Caption = "Click2"
iClk_num% = 0
End If
End Sub

موفق باشید

[ho3ein282]

متشکر
مشکلم حل شد