Dobrý den,dělám takový program a chci aby když mám zaškrtlý CheckBox nebo OptionButton a stisknu tlačítko provedlo to co chci.Takže nejdříve jsem hledal jestli CheckBox či OptionButton nemají možnost nastavení Checked(Boolean) ale nemají.Tak jsem si vytvořil proměnnou,proměnnou nastavím při zaškrtnutí OptionButtonu nebo CheckBoxu na 2 a při kliknutí na tlačítko kontroluji jestli je proměnná 2 proveď co chci.Proměnná se sice nastaví ale pak se nic neděje nevím si už opravdu rady.Děkuji tady je kód
Private Sub dale_Click() // tlačítko
If vyber = 2 Then
room2.Show
Me.Hide
End If
End Sub
Private Sub Form_Load()
Dim vyber As Integer
vyber = 1
room1.Caption = "abc"
End Sub
Private Sub moznost1_Click() //OptinButton
vyber = 2
End Sub
|