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

[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]

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