Hvordan lage et tegneprogram
Å vite hvordan å lage et tegneprogram i Microsoft Visual Basic.NET (VB.NET) kan få deg i gang ved hjelp av grafikk i programmering. VB.NET er et objektorientert programmeringsspråk som brukes til å lage desktop, web og mobile applikasjoner. VB.NET tilbyr en grafikk klasse som kan brukes for å tegne objekter som rektangler, sirkler og linjer. Du kan bruke ColorDialog kontrollen for å vise alle tilgjengelige farger til brukeren og bruke den valgte å trekke dine gjenstander farge.
Bruksanvisning
1 Start Microsoft Visual Basic Express, klikk på "Nytt prosjekt ..." på ruten til venstre på skjermen, og velg deretter "Windows Forms Application". Klikk på "OK".
2 Dobbeltklikk på "Button" på "Toolbox" for å legge til en ny knapp. Dobbeltklikk på "boksen" for å legge til en ny tekstboks. Legg to avmerkingsboksene til skjemaet. Dobbeltklikk på "ColorDialog" for å legge kontrollen til programmet. Dobbeltklikk på "Button1" for å åpne "Form1.vb" modul.
3 Kopier og lim inn følgende kode på innsiden av "button1_click" prosedyre for å la brukeren velge en farge:
Me.ColorDialog1.ShowDialog ()
If Me.ColorDialog1.ShowDialog = DialogResult.OK Then
CLR = ColorDialog1.Color
Slutt om
4 Kopier og lim inn følgende under "Public Class Form1" for å lage to globale variabler som brukes til å lage grafikk og farge:
Private gfx As Graphics
Private CLR Som Color
5 Klikk på rullepilen fra det øverste venstre kombinasjonsboks og velg "(Form1 hendelser)." Velg "Load" for å lage Form hendelsen og kopier og lim inn følgende på innsiden av arrangementet:
gfx = Me.CreateGraphics ()
6 Klikk på "FormClosed" hendelse for å opprette arrangementet og kopier og lim inn følgende til å disponere grafikken innvende:
gfx.Dispose ()
7 Klikk på "mousemove" hendelse for å skape hendelsen, og kopiere og lime inn koden under for å tegne objekter når brukeren beveger musen:
If e.Button <> Windows.Forms.MouseButtons.Left Then Exit Sub
Dim rect Som rektangel
Dim myPen Som Pen
myPen = Ny penn (CLR, 2)
Hvis Me.CheckBox1.Checked Deretter
med rect
.X = EX - 1
.Y = Ey - 1
.Width = 15
.Height = 15
End With
gfx.DrawRectangle (myPen, rect)
Slutt om
Hvis Me.CheckBox2.Checked Deretter
med rect
.Width = 15
.Height = 15
End With
gfx.DrawLine (myPen, eX, ey, eX - 1, EY - 1)
Slutt om
Hvis Me.CheckBox3.Checked Deretter
myPen = Ny penn (CLR, 2)
med rect
.X = EX - 1
.Y = Ey - 1
.Width = 15
.Height = 15
End With
gfx.DrawEllipse (myPen, rect)
Slutt om
8 Trykk "F5" for å kjøre programmet, og klikk deretter på "Button1" for å velge en farge for stedene. Sjekk den første boksen for å tegne en serie av rektangler. Sjekk den andre boksen for å trekke linjer eller sjekk den tredje boksen for å tegne en serie med sirkler.