At vide hvordan man laver en maling program i Microsoft Visual Basic.NET ( VB.NET ) kan få dig i gang ved hjælp af grafik i programmering. VB.NET er et objekt -orienteret programmeringssprog, der anvendes til at skabe desktop , web og mobile applikationer. VB.NET tilbyder en grafisk klasse, der kan bruges til at trække genstande såsom rektangler, cirkler og linjer . Du kan bruge ColorDialog kontrol til at vise alle tilgængelige farver til brugeren og bruge farven valgt til at tegne dine objekter. Ting du skal
Microsoft Visual Basic Express
Vis Flere Instruktioner
1
Start Microsoft Visual Basic Express , klik på " Nyt projekt ... " på den venstre rude på skærmen , og vælg derefter "Windows Forms Application ". Klik på "OK".
2
Dobbeltklik på " Button " på " Toolbox" for at tilføje en ny knap . Dobbeltklik på " Check Box" for at tilføje en ny tekstboks. Tilføj yderligere to afkrydsningsfelter til formularen . Dobbeltklik på " ColorDialog " for at tilføje kontrol til programmet. Dobbeltklik på " Button1 " for at åbne " Form1.vb "-modulet
3
Kopier og indsæt følgende kode inde i " Button1_Click " procedure for at lade brugeren vælge en farve : . < br >
Me.ColorDialog1.ShowDialog ()
p Hvis Me.ColorDialog1.ShowDialog = DialogResult.OK Så
clr = ColorDialog1.Color
End If < br >
4
Kopier og indsæt følgende under " Public Class Form1 " for at oprette to globale variabler, der anvendes til at skabe grafik og farve : Hej
Private gfx som grafik
Private clr Som Color
5
Klik på drop pilen fra øverste venstre combo box og vælg " ( Form1 hændelser). " Vælg " Load " for at oprette formular begivenheden og kopiere og indsætte følgende inde i begivenheden : Hej
gfx = Me.CreateGraphics ()
6
Klik på " FormClosed " begivenhed for at skabe begivenheden og kopiere og indsætte følgende for at bortskaffe den grafiske objekt : Hej
gfx.Dispose ()
7
Klik på " mouseMove " begivenhed for at skabe begivenheden, og kopiere og indsætte koden nedenfor til at tegne objekter , når brugeren bevæger musen : Hej p Hvis e.Button < > Windows.Forms.MouseButtons.Left Så Exit Sub
Dim rect Som rektangel
Dim myPen Som Pen
myPen = Ny Pen ( cLR , 2)
p Hvis Me.CheckBox1.Checked Så
rekt
. X = eX - 1
Y = eY - . . . 1
Bredde = 15
Højde = 15
End With
< p > gfx.DrawRectangle ( myPen , rect )
End If
p Hvis Me.CheckBox2.Checked Så
rekt
. Bredde = 15 < br . >
Højde = 15
End With
gfx.DrawLine ( myPen , eX , eY , eX - 1, eY - 1)
End If < br >
Hvis Me.CheckBox3.Checked Så
myPen = Ny Pen ( cLR , 2)
rect
X = eX - . 1
< p> Y = eY - . . 1
Bredde = 15
Højde = 15
End With
gfx.DrawEllipse ( myPen , rect ) .
End If
8
Tryk på " F5 " for at køre dit program og klik på " Button1 " for at vælge en farve til dine objekter . Kontroller den første afkrydsningsfelt for at tegne en serie af rektangler. Tjek den anden boks til at tegne linjer eller tjek tredje afkrydsningsfeltet for at tegne en serie af cirkler.