Programkod

Skapa händelser Textbox

Nu skall vi sätta programkod bakom knapparna så att det händer saker när man trycker på dem. Dubbelklicka på knappen Button1. Nu kommer redigeringsfönstret fram med första och sista programraderna redan skrivna:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

End Sub

Observera att den första delen skall vara EN rad. Det är på grund av att webbsidan inte räcker på bredden som raden här har delats i två rader.

Vi vill att formens bakgrundsfärg skall ändras när vi klickar på en knapp. Då anger vi först namnet på det objekt som skall påverkas. Därefter en punkt. Nu kommer det en lista öcer de objekt egenskaper man kan ändra. Välj vilken egenskap som skall påverkas, till exempel Visible.

Sätt ett likhetstecken och sist vad som skall ske med egenskapen. När vi har valt Visible och satt ut likhetstecknet, visas de två alternativ som nu går att välja, True och False. Det är bara att klicka på ett av alternativen.

När man vill ändra någon egenskap i Form1, alltså själva formuläret, skriver man Me i stället för Form1. Skall man ändra till exempel bakgrundsfärg, skriver man Color och en punkt. Då öppnas en lista med en massa färger att välja bland.

Skriv alltså följande mellan de två programraderna som skapades när du dubbelklickade på knappen Button1.

Me.BackColor = Color.Red
Button3.Visible = True
Button2.Visible = True
Button1.Visible = False

Det betyder

När man klickar på knappen Button1 skall formens (Me) bakgrundsfärg bli röd. Button3:s synlig är sann liksom Button2:s. Till slut skall Button1:s synlighet vara falsk, det vill säga att Button1 skall bli osynlig.

I den högra av de två textrutorna ovanför programraderna i redigeringsfönstret står namnet på det aktuella objektet - knappen - som skall programmeras, samt att det är händelsen Button1_Click på knappen som aktiverar programraderna. Klickar man på programkoden för en annan knapp, visas i stället namnet på den knappen i textrutan.

Om man vill att någon annan händelse skall utlösa programkoden i stället för att man klickar på knappen, till exempel att muspekaren bara förs över knappen, kan man ändra det genom att först klicka på nedpilen i den vänstra textrutan, där det nu står Form, och sedan välja Button1.

Klickar man sedan på nedpilen i den högra textrutan kan man välja någon annan händelse som skall aktivera programsnutten för Button1, till exempel MouseMove som utlöser koden så fort man för muspekaren över Button1.

När man valt det, visas som vanligt första och sista programraden och det är bara att sätta dit koden som står i Button1_Clic inne i MouseMove i stället.

Skriv programsnuttar för alla knappar enligt nedan, efter att först ha dubbelklickat på dem så att första och sista raden skrivs automatiskt. Jag påminner än en gång om att första delen är EN rad.

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

   Me.BackColor = Color.Green
   Button3.Visible = True
   Button1.Visible = True
   Button2.Visible = False
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

   Me.BackColor = Color.Blue
   Button3.Visible = False
   Button2.Visible = True
   Button1.Visible = True
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

   Label1.ForeColor = Color.Red
   Label3.ForeColor = Color.Red
   Label1.Text = "RÖD"
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesButton5.Click

   Label2.ForeColor = Color.Green
   Label1.ForeColor = Color.Green
   Label2.Text = "GRÖN"
End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

   Label3.ForeColor = Color.Blue
   Label2.BackColor = Color.Blue
   Label3.Text = "BLÅ"
End Sub

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

   End
End Sub

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click

   Me.Opacity = 0.5
End Sub

Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click

   Me.Opacity = 1
End Sub

Observera att när det skall stå en text i ett objekt, till exempel i en label, så måsta man ange den mellan citattecken - "text" - men har man en variabel vars innehåll skall stå i till exempel en label så skall det INTE vara några citattecken.

En rolig sak som kommit med VB.Net är att man kan göra programmet mer eller mindre genomskinligt. I knapp 8 sätts opaciteten till 50%. Värdet sätt alltså mellan 0 och 1 som betyder mellan 0% (osynlig) och 100% (helt ogenomskinlig).

Starta programmet genom att trycka på F5. Ändra koden och experimentera. Vad händer vid olika förändringar?

Skapa händelser Textbox

© SupportData.Net