Visual Basic kan användas för att skapa enkla animationer med hjälp av några av de inbyggda grafik och komponenter timer . Den här guiden ger en guide för att skapa en enkel animation där en boll studsar mot kanterna på formen . Instruktioner
1
Skapa ett nytt projekt genom att klicka på " File ", " Nytt projekt ".
2
Skapa en oval komponent i form genom att dra den ovala från verktygslådan i formuläret. Dra hörnen på ett sådant sätt att det ser någorlunda cirkulär .
3
Skapa en timer komponent i form genom att dra den från verktygslådan . Denna komponent kommer inte att vara synlig vid körning , men kommer att ge en tjänst som " fästingar " varje bestämd tid . Dessa fästingar kan vara associerad med en funktion för att utföra vanliga uppgifter , till exempel uppdatera en bildruta av animation .
4
Deklarera och initiera två hastigheter variabler genom att högerklicka på formuläret och välja Visa kod . Deklarera dessa variabler i formuläret klassen men utanför eventuella funktioner som du kanske redan har det . Klistra in följande kod för att göra detta :
Public speed_x = 5Public speed_y = 5
Värdena på hastigheten i varje riktning kan ställas in till något som du gillar och kombineras på olika sätt för att uppnå olika start vinklar och hastigheter . Positiva hastigheter längs X-axeln kommer att resultera i rörelse åt höger av formen medan negativa hastigheter längs X-axeln kommer att resultera i rörelser mot vänster av formuläret. Positiva hastigheter längs y - axeln kommer att resultera i rörelse mot botten och negativa hastigheter mot toppen .
5
Gå tillbaka till formen designer och dubbelklicka på formuläret för att skapa en händelse formulär belastning . Kod inom denna funktion kommer att utföras när programmet skapas först , så det är ett bra ställe att utföra initiering för den studsande bollen animation . Skriv in följande kod :
Timer1.Interval = 100Timer1.Start ( ) katalog
Detta förutsätter att du har kvar din timer med standardnamnet Timer1 . Annars använder det namn du har gett den . Intervallet parametern är antalet millisekunder som passerar mellan varje ram. Hundra millisekunder är faktiskt standardvärdet , men du kan ändra den för att passa dina behov .
6
Gå tillbaka till formen designern genom att klicka på " Form Designer " fliken och dubbelklicka på timern objektet att skapa en " tick" händelse. Skriv följande kod i den :
p Om OvalShape1.Left ( ) < 0 Then speed_x = speed_x * - 1If OvalShape1.Right ( ) > Me.Width Sen speed_x = speed_x * - 1If OvalShape1.Top ( ) < 0 Then speed_y = speed_y * - 1If OvalShape1.Bottom ( ) > Me.Height Sen speed_y = speed_y * -1
OvalShape1.Location = Ny System.Drawing.Point ( OvalShape1.Left ( ) + speed_x , OvalShape1.Top ( ) + speed_y ) katalog
