سلام
میخواستم بدونم چطوری میشه یک باتن رو دو حالته کرد (فلیپ فلاپ)؟
در بعضی از کامپونت ها با true کردن checkboxbehavi رنگ باتن در کلیک اول تغییر میکنه و با کلیک دوم به حالت اولیه برمی گرده.
لطفا راهنمایی کنید.
سلام
میخواستم بدونم چطوری میشه یک باتن رو دو حالته کرد (فلیپ فلاپ)؟
در بعضی از کامپونت ها با true کردن checkboxbehavi رنگ باتن در کلیک اول تغییر میکنه و با کلیک دوم به حالت اولیه برمی گرده.
لطفا راهنمایی کنید.
حالت 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
موفق باشید
.: مداحی دلنشین شهیدی که در زادروز ولادتش پرکشید [ تصاویر... ]
.: مداحی دلنشین شهید غلامعلی رجبی [ تصاویر... ]
.: لطفا سوالاتی که قابل طرح در انجمن هستند را در خصوصی ارسال نفرمائید.
ببخشید
منظورم رو بد رسوندم
منظورم اینه که با کلیک اول یک عمل انجام شود و با کلیک دوم عمل دیگه ای انجام بشه
با تشکر
سلام
از کدی مشابه زیر میتوانیم برای این مورد استفاده کنیم:
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
موفق باشید
.: مداحی دلنشین شهیدی که در زادروز ولادتش پرکشید [ تصاویر... ]
.: مداحی دلنشین شهید غلامعلی رجبی [ تصاویر... ]
.: لطفا سوالاتی که قابل طرح در انجمن هستند را در خصوصی ارسال نفرمائید.
متشکر
مشکلم حل شد