Weten hoe je een tekenprogramma te maken in Microsoft Visual Basic.NET ( VB.NET ) kunt u op weg helpen met graphics in de programmering . VB.NET is een object - georiënteerde programmeertaal gebruikt voor desktop- , web-en mobiele toepassingen te creëren . VB.NET biedt een grafische klasse die kan worden gebruikt voor het tekenen van objecten zoals rechthoeken , cirkels en lijnen . U kunt het ColorDialog controle gebruiken om alle beschikbare kleuren weer voor de gebruiker en het gebruik van de gekozen om uw objecten te tekenen kleur . Wat je nodig hebt
Microsoft Visual Basic Express
Toon Meer Aanwijzingen
1 Start Microsoft Visual Basic Express , klikt u op " New Project ... " aan de linkerkant van uw scherm , selecteer " Windows Forms Application . " Klik op "OK . "
Dubbelklik op " Button " 2 op de " Toolbox " om een nieuwe knop toe te voegen . Dubbelklik op "Check Box " naar een nieuw tekstvak toe te voegen . Voeg twee meer selectievakjes aan het formulier . Dubbelklik op " ColorDialog " om de controle toe te voegen aan het programma . Dubbelklik op " Button1 " om de " Form1.vb " module de volgende code opent
Kopieer 3 en plakken in de " Button1_Click "-procedure te laten de gebruiker een kleur te kiezen : . < br Me.ColorDialog1.ShowDialog ( ) >
Als Me.ColorDialog1.ShowDialog = DialogResult.OK dan clr Einde
= ColorDialog1.Color
Als < br >
Kopieer 4 en plak de volgende onder " Public Class Form1 " om twee globale variabelen gebruikt om de graphics en kleur te creëren : Prive gfx
als afbeeldingen
Prive clr Zoals Kleur
5 Klik op de pijl daling van de linkerbovenhoek keuzelijst en selecteer " ( Form1 Events ) . " Selecteer " Load " om de Form evenement en kopie te maken en plak het volgende in het evenement : gfx
= Me.CreateGraphics ( )
6 Klik op de " FormClosed " evenement te creëren het evenement en kopieer en plak de volgende aan de grafische object beschikken :
gfx.Dispose ( )
7 Klik op de " MouseMove " event om het evenement te creëren , en kopiëren en plakken de onderstaande code om objecten te tekenen wanneer de gebruiker de muis beweegt :
Als e.Button < > Windows.Forms.MouseButtons.Left Then Exit Sub Dim rect
Zoals Rechthoekig ontwerpen Dim myPen Zoals Pen myPen
= Nieuwe Pen ( cLR , 2 ) op Als Me.CheckBox1.Checked dan
Met rect
. X = eX - 1
Y = eY - . . . 1
Breedte = 15
Hoogte Einde = 15 met
gfx.DrawRectangle ( myPen , rect ) Eind
Als
Als Me.CheckBox2.Checked dan
Met rect
. breedte = 15 < br . > Hoogte = 15 Einde
Met gfx.DrawLine
( myPen , eX , eY , eX - 1 , eY - 1 ) End
Als < br > Als Me.CheckBox3.Checked dan myPen = Nieuwe Pen ( cLR , 2 ) op
Met rect
X = eX - . 1
Y = eY - . 1.
Breedte = 15
Hoogte = 15 Einde
Met gfx.DrawEllipse
( myPen , rect ) . End
Als
Druk op " F5 " 8 om uw programma uit te voeren , en klik op ' Button1 " om een kleur voor uw objecten te kiezen . Controleer het eerste vakje om een reeks van rechthoeken te tekenen . Controleer het tweede vakje om lijnen te trekken of kijk op de derde vakje om een reeks van cirkels te tekenen .
|
