Ako si vyrobiť Paint program

Vedieť , ako vytvoriť program , farby v aplikácii Microsoft Visual Basic.NET ( VB.NET ) , môže dostať ste začali používať grafiku v programovaní . VB.NET je objektovo orientovaný programovací jazyk používaný na vytváranie desktop, web a mobilné aplikácie . VB.NET ponúka triedu grafiky , ktoré možno použiť na kreslenie objektov , ako sú obdĺžniky , kruhy a čiary . Môžete použiť ovládací prvok ColorDialog zobraziť všetky dostupné farby pre užívateľa a použiť farbu vybraného čerpať svoje objekty . Veci , ktoré budete potrebovať v Microsoft Visual Basic Express
Zobraziť ďalšie inštrukcie Cestuj 1

Spustite program Microsoft Visual Basic Express , kliknite na tlačidlo " Nový projekt ... " V ľavej table obrazovky , potom vyberte "Windows Forms . " Kliknite na tlačidlo " OK " .
2

Double - kliknite na " tlačidlo " na " Toolbox " pridať nové tlačidlo . Double - kliknite na " Zaškrtávacie políčko " pridať nové textové pole . Pridať ďalšie dve zaškrtávacie políčka do formulára . Double - kliknite na " ColorDialog " pridať ovládací prvok do programu . . Double - kliknite na " Button1 " otvorte modul " Form1.vb "
3

Skopírujte a vložte nasledujúci kód vnútri procedúry " Button1_Click " , aby používateľ zvoliť farbu :

Me.ColorDialog1.ShowDialog ( )

Ak Me.ColorDialog1.ShowDialog = DialogResult.OK Potom

clr = ColorDialog1.Color

End If

4

skopírujte a vložte nasledujúci pod " Public Class Form1 " vytvoriť dve globálne premenné použité na vytvorenie grafiky a farbu :

Súkromná GFX ako Grafika

Súkromné ​​clr ako farba
5

Kliknite na rozbaľovaciu šípku od ľavého horného poľa so zoznamom a vyberte " ( Form1 Events ) . " Zvoľte " Load " , na vytvorenie formulára udalosť a skopírujte a vložte nasledujúci vnútri udalosti :

gfx = Me.CreateGraphics ( )
6

Kliknite na " FormClosed " udalosť vytvoriť akcie a skopírujte a vložte nasledujúci nakladať grafika objektu :

gfx.Dispose ( )
7

Kliknite na " MouseMove " udalosť vytvoriť udalosť , a kopírovať a vkladať pod kód kresliť objekty , keď používateľ presunie myš :

Ak e.Button < > Windows.Forms.MouseButtons.Left Potom Exit Sub

Dim rect Ako Rectangle

• Predchádzajúca strana: Ako si vyrobiť Foxfire Doplnky 
• Ďalšia strana: Ako vypočítať počet týždňov medzi dvoma dátumami