Att veta hur man gör ett ritprogram i Microsoft Visual Basic.NET ( VB.NET ) kan komma igång att använda grafik i programmering . VB.NET är ett objektorienterat programmeringsspråk som används för att skapa skrivbordet , webb och mobila applikationer . VB.NET erbjuder en grafisk klass som kan användas för att rita objekt som rektanglar , cirklar och linjer . Du kan använda ColorDialog kontrollen för att visa alla tillgängliga färger för användaren och använda den färg som valts för att rita dina objekt . Saker du behöver
Microsoft Visual Basic Express
Visa fler instruktioner
1
Starta Microsoft Visual Basic Express , klicka på " Nytt projekt ... " i den vänstra rutan på skärmen och välj sedan " Windows Forms Application . " Klicka på " OK . "
2
Dubbelklicka på " knappen " på " Toolbox " för att lägga till en ny knapp . Dubbelklicka på " Kryssruta " för att lägga till en ny textruta . Lägg två kryssrutor i formuläret . Dubbelklicka på " ColorDialog " för att lägga till kontrollen i programmet . Dubbelklicka på " Button1 " för att öppna " Form1.vb " modul
3
Kopiera och klistra in följande kod innanför " Button1_Click " förfarande för att låta användaren välja en färg : .
Me.ColorDialog1.ShowDialog ( ) katalog p Om Me.ColorDialog1.ShowDialog = DialogResult.OK Sedan
clr = ColorDialog1.Color
End If
4
Kopiera och klistra in följande i " Public Class Form1 " för att skapa två globala variabler som används för att skapa grafik och färg :
Privat gfx som grafik
Privat clr som Färg
5
Klicka på drop pilen från övre vänstra kombinationsrutan och välj " ( Form1 Events ) . " Välj " Load " för att skapa formuläret händelsen och kopiera och klistra in följande i evenemanget :
gfx = Me.CreateGraphics ( )
6
Klicka på " FormClosed " händelsen för att skapa händelsen och kopiera och klistra in följande för att avyttra den grafiska objektet :
gfx.Dispose ( )
7
Klicka på " MouseMove " händelsen för att skapa händelsen , och kopiera och klistra koden nedan för att rita objekt när användaren flyttar musen :
p Om e.Button < > Windows.Forms.MouseButtons.Left Avsluta sedan Sub
Dim rect som Rektangel
Dim myPen Som Pen
myPen = Ny Pen ( clr , 2 ) katalog p Om Me.CheckBox1.Checked Sedan
rect
. X = eX - 1
Y = Ey - . . . 1
Bredd = 15
Höjd = 15
End With
gfx.DrawRectangle ( myPen , rect ) katalog
End If
p Om Me.CheckBox2.Checked Sedan
rect
. bredd = 15
Höjd = 15
End With
gfx.DrawLine ( myPen , ex, Ey , EX - 1 , EY - 1 ) katalog
End If
Om Me.CheckBox3.Checked Sedan
myPen = Ny Pen ( clr , 2 ) katalog
rect
X = eX - . 1
Y = Ey - . . 1
Bredd = 15
Höjd = 15
End With
gfx.DrawEllipse ( myPen , rect ) .
End If
8
Tryck " F5 " för att köra programmet , klicka sedan på " Button1 " för att välja en färg för dina objekt . Kontrollera den första kryssrutan för att rita en serie av rektanglar . Markera den andra rutan för att rita linjer eller kontrollera den tredje kryssrutan för att rita en serie cirklar .
