Keskustelu: Ohjelmointikysymykset: VB6: Option Button tilan vaihto

Hei

Miten saan Visual Basicin Option Buttonin tilan vaihdettua kun klikkaan sitä hiirellä tuntuu nyt aikas ylivoimaiselta kun ei meinaa onnistua millään.

Option Buttonit on tarkoitettu toimimaan ryhmänä. Kun klikkaat yhtä, se asettuu ja muut nollautuvat ilman mitään koodia. Jos tarvit napin, jonka tila vaihtuu klikatessa, käytä CheckBoxia.

Heippa masman!

Private Sub Option1_MouseDown(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
  If Option1.Value = True Then
    Option1.Tag = True: Exit Sub
  Else
    Option1.Tag = False: Exit Sub
  End If
End Sub

Private Sub Option1_MouseUp(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
  If Option1.Tag = True Then
    Option1.Value = False: Exit Sub
  Else
    Option1.Value = True: Exit Sub
  End If
End Sub

mikäli käytät formilla useampaa radionappia ja tahdot estää niitä vaikuttamasta toisiinsa pistä jokainen erikseen oman framen sisälle...