Hvordan lage et tegneprogram

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.