Radioknappar
Om man vill låta användaren välja mellan några alternativ, kan man använda radioknappar som användaren klickar i. I nedanstående program får man välja mellan tall, gran och björk. När man trycker på OK-knappen ser man formen som gäller för det valda trädslaget.
Skapa ovanstående form. Radioknapp är detsamma som OptionButton, som finns nedanför tryckknappen i verktygslådan. Om man drar ut dom på längden kan man skriva i dom som en Label.
Dessa får namnen Option1, Option2 och Option3. Döp formen till "grund" och skriv "Trädslag" på Caption för formen. Tryck nu med höger musknapp på "forms" i projektfönstret uppe till höger och välj "Add" och "Form".
Nu kommer en tom form upp. Döp den till tall. Gör ytterligare två nya former och döp dem till gran respektive björk. Sätt deras egenskap Visible till False. Då syns de inte när programmet startas - det är meningen att de skall synas först när man har valt en form med radioknapparna.
Dubbelklicka på respektive radioknapp och skriv dit den programtext som följer.
Private Sub Option1_Click()
Option1.Value = True
End Sub
Private Sub Option2_Click()
Option2.Value = True
End Sub
Private Sub Option3_Click()
Option3.Value = True
End Sub
Det betyder att när en OptionButton har blivit i-klickad så är dess värde "True". De andra knapparna är False. Att de andra har värdet "False" behöver man inte programmera.
Programproceduren för tryckknappen blir
Private Sub Command1_Click()
If Option1.Value = True Then
gran.Visible = True
tall.Visible = False
björk.Visible = False
grund.Visible = False
End If
If Option2.Value = True
tall.Visible = True
gran.Visible = False
björk.Visible = False
grund.Visible = False
End If
If Option3.Value = True Then
björk.Visible = True
tall.Visible = False
gran.Visible = False
grund.Visible = False
End If
End Sub
Här sätts formarnas egenskaper Visible till "True" eller "False" beroende på vilken OptionButton som är "True".
Om man nu klickar i projektfönstret, markerar formen björk och trycker på den mellersta knappen "View Object" ovanför det fönstret, så kommer björkformen upp. Gör en tryckknapp i den och ge den programtexten:
Private Sub Command1_Click()
grund.Visible = True
björk.Visible = False
End Sub
Observera att i den nya formen skapas en ny Command1, eftersom den inte vet att samma namn redan finns i en annan form. När man trycker på knappen skall man komma tillbaka till formen "grund". Gör likadant med formerna för tall och gran. I dessa kan man sedan ha fler val som leder till andra former.