MsgBox

En MsgBox är en meddelanderuta av något slag. Det kan vara en fråga, en varning eller en upplysning. Vi skall testa några olika typer av meddelanden. Gör en tryckknapp och skriv följande programrader.

Private Sub Command1_Click() MsgBox "Det är kul att programmera", 64, "HEJ" End Sub

När man trycker på knappen kommer texten inom de första citationstecknen att hamna som meddelande i rutan. Talet anger vilket tecken som skall visas. Här betyder 64 ett "i" som i information. Texten inom de sista citationstecknen hamnar som rubrik i meddelanderutan. Ändra 64 till 16, 32 och 48 för att se vad dessa betyder.

Nu kanske vi vill ha ytterligare några knappar att välja på i meddelanderutan. Detta kan vi också styra med detta magiska tal. Sätter vi 0 eller inget tal alls så får vi en OK-knapp.

1= OK och Avbryt
2= Avbryt, Försök igen och Ignorera
3= Ja, Nej och Avbryt
4= Ja och Nej
5= Försök igen och Avbryt
16= Ikonen kritisk
32= Ikonen fråga
48= Ikonen varning
64= Ikonen information

Om du vill kombinera en ikon med knappar, skall du addera talen. Vill du till exempel ha knapparna Ja och Nej samt ikonen "fråga", adderar du 4 och 32 och skriver 36.

Nu skall vi fånga upp vad användaren väljer för knapp. Vi måste då ha en variabel som vi tilldelar ett värde från MsgBoxen. Vi ändrar programraden så här:

Returvärde = (MsgBox "Det är kul att programmera", 64, "HEJ")

Observera att vi måste lägga till en parentes runt uttrycket efter MsgBox.

Nu finns det fördefinierade returvärden för de olika alternativen. Dessa är

1 OK valdes
2 Avbryt valdes
3 Avbryt i kombinationen Avbryt, Försök igen och Ignorera
4 Försök igen valdes
5 Ignorera valdes
6 Ja valdes
7 Nej valdes

Hela programmet ser då till exempel ut så här:

Private Sub Command1_Click() returvärde = MsgBox ("Det är kul att programmera", 36, "HEJ")

If returvärde = 6 Then MsgBox "Jag håller med", 48, "HEJ" End If

If returvärde = 7 Then End End If

End Sub