MessageBox

En MsgBox är en meddelanderuta av något slag, från programmet till användaren. Det kan vara en fråga, en varning eller en upplysning. Vi skall testa några olika typer av meddelanden. Lägg ut en knapp och skriv följande programrader för den

MsgBox "Det är kul att programmera", 64, "HEJ"

När man kör programmet och klickar på knappen får man en ruta med text och en knapp.

Texten inom de första citationstecknen i koden hamnar som meddelande i MsgBoxen. Talet anger vilken symbol som skall visas i meddelandet. Här betyder 64 ett "i" som i information. Texten inom de sista citationstecknen hamnar som rubrik i meddelanderutan. Ändra 64 till 16, 32 eller 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 bara 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:

Dim returvärde As Integer Returvärde = (MsgBox "Det är kul att programmera", 36, "HEJ")

Observera att vi måste lägga till en parentes runt uttrycket efter MsgBox när vi vill fånga upp användarens svar.

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:

Dim returvärde As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

© SupportData.Net