Skapa grafik och former i Visual Basic ( VB ) börjar med de nödvändiga programmeringsstegen att rita enkla element såsom punkter, linjer , rektanglar, cirklar , ellipser och bågar . Genom att kombinera dessa element på olika sätt och former , kan komplicerade grafik visas på din datorskärm . Processen kräver skriva mödosam datakod i avsaknad av avancerade grafikprogram , men är fullt möjligt med de byggstenar som beskrivs här . Saker du behöver Review, Visual Basic 6.0
Visa fler instruktioner
1
Öppna ett nytt Visual Basic-projekt med hjälp av " Standard EXE " mall , ett av de val som visas när du väljer ett nytt projekt . Spara projektet och formen när du uppmanas som MyGraphicsDemo . Ställ in " Form1 " Höjd i fönstret Egenskaper för 5400 och bredden till 6800 .
2
Dubbelklicka på " CommandButton " -ikonen i den vänstra kolumnen Toolbox för att lägga till formuläret . Detta är en liten rektangel normalt beläget i den högra kolumnen av verktyg och tredje från toppen. Etiketten visas när du sätter markören på det . Klicka på knappen för att fokusera på sina "Egenskaper" i fönstret till höger och ändra " Caption " egendom för att läsa " Visa mig några färgade poäng ! " Utan att ange citattecken . Ändra Höjd egenskapen till 500 och bredden fastigheten till 3000 . Addera 3
Öppna en kod genom att klicka på " Visa " och sedan " Code " i den översta nivån Visual Basic menyn . Ställ in läge pekar på skärmen , storleken och färgen först med illustrativa koden . Sedan varierar inställningarna för att lära sig vad som är möjligt med bara enstaka punkter . I detta nummer av " pset " linjer skapar olikfärgade prickar , medan de kodrader som innehåller " Rnd " duplicate många punkter i slumpmässiga färger och lägen . När du är klar , tryck på " F5 " för att se resultatet
Private Sub Command1_Click ( ) BackColor = vbRedPSet ( 0 , 0 ) pset ( 15 , 5 ) , vbCyanPSet ( 20 , 10 ) , vbYellowCurrentX = 500 : . Currenty = 500For i = 1 Till 20PSet Step ( 0 , 0 ) NextFor i = 1 till 500DrawWidth = Rnd * 5 + 1PSet ( Rnd * ScaleWidth , Rnd * ScaleHeight ) , RGB ( Rnd * 255 , Rnd * 255 , Rnd * 255 ) NextDrawWidth = 1End Sub
4
Skapa en stor triangel med " line" Visual Basic -kommandot , som använder platsinställningar att dra triangeln . Lägg en färgad rektangel med kommandoraden genom att använda olika markerade punkter . Lägg två ytterligare CommandButtons till den form som i steg 2 . Ändra bildtexten egenskaper för att läsa " Rita en triangel " och " Rita en rektangel " resp . Du kan behöva vidga rutorna som i steg 2 . Skriv sedan in följande kod under de föregående kodrader . När du är klar , tryck på " F5 " för att visa
Private Sub Command2_Click ( ) Line ( 1500 , 3000 ) - . Steg (1000 , 0 ) , vbBlackLine - Step ( 0 , 1000 ) , vbBlackLine - ( 1500 , 3000 ) , vbBlackEnd SubPrivate Sub Command3_Click ( ) line ( 1200 , 1500 ) - Step ( 2100 , 1100 ) , vbGreen , Bend Sub
5
Rita en cirkel med följande kodrader . Rita ellipser och bågar använder samma process , du bara ändra dimensionerna och där cirklarna börjar och slutar . Genom att bredda en aspekt av cirkeln , vänder du den till en ellips och genom att inte stänga cirkeln , du gör en båge . För att ställa in detta , lägg till ytterligare en CommandButton , märkning här " rita en cirkel " .
Private Sub Command4_Click ( ) DrawWidth = 5FillStyle = vbFSSolidFillColor = vbCyanCircle ( 2000 , 2000 ) , 1000 , vbBlueEnd Sub
Addera ditt
