Programkod | |
![]() |
![]() |
![]() | |
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 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 Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Me.BackColor = Color.Blue Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Label1.ForeColor = Color.Red Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesButton5.Click Label2.ForeColor = Color.Green Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click Label3.ForeColor = Color.Blue Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click End Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click Me.Opacity = 0.5 Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click Me.Opacity = 1 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? | |
![]() |
![]() |
![]() | |
© SupportData.Net |