Miten tehdäpyöreä painike VB

Tietokoneohjelma on sarja komentoja, jotka on suorittaakeskusyksikkö . On olemassa monia eri ohjelmointikieliä , mutta ne, jotka ovat useimmiten käytetään nykyään C + + , C # ja Visual Basic ( VB ) . Visual Basic onohjelmointikieli, joka on myösvisuaalinen käyttöliittymä, jolla luodaanohjelman käyttöliittymän , ja tämä tekee siitä erityisen hyödyllistäaloittelija . Standardi Visual Basic käyttöliittymä sallii vainluomisen suorakaiteen painikkeita , mutta pyöreä painikkeet voidaan luodapieni määrä code.Things tarvitset
Visual Basic
Näytä Enemmän Ohjeet

1

Luouusi Visual Basic-projektin . Ohjelma voidaan käynnistää maalaamallapainiketta , joka voidaan tehdä käyttämällä" AddEllipse " luokka . Kirjoita seuraavaVisual Basic -ikkunassa :

DimAs New System.Drawing.Drawing2D.GraphicsPath
recRegion = Uusi RectangleF ( 0 , 0 , Me.Width , Me.Height )
a.AddEllipse ( recRegion )
Me.Region = uusi vyöhyke ()
2

Piirräreuna-painikkeita . Sujuvan käyrät piirretään , asetaSmoothingMode omaisuutta antialias . Kirjoita seuraava koodiVisual Basic -ikkunassa :

Dim P1 Pen
Dim p2 PEN
recBorder = Uusi RectangleF ( 1 , 1 , Me.Width - 2 , Me.Height - 2 )
" Tämä linja on hyvin tärkeää saada pyöreitä muotoja .

g.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias ​​
" nyt meidän täytyy tehdä3D.

g.DrawArc ( p1 , recBorder , 180 , -180 )
g.DrawArc ( p2 , recBorder , 180 , 180 )
3

Asetatekstinimiön sisällä painiketta ja kirjoitatärkein ohjaussilmukan onkopainiketta on painettu . Kirjoita seuraava koodiVisual Basic -ikkunassa :

" mitata kokoString keskittää sitä .

" Joskuva on läsnä ,teksti vedetään kuvakkeen vieressä .

Dim tekstikoko Kuten SizeF = g.MeasureString ( Me.Text , Me.Font )
" Joshiiri painetaan piirtäätekstiä jakuva , jos saatavilla , kuva

" siirtynyt 2 pikseliä oikealle simuloida3D
p Jos Me.mousePressed Sitten
Jos Me._Image Is Nothing Sitten
g.DrawString ( Me.Text , Me.Font , stringBrush , _
( ( ( Me.Width + 3 ) - textSize.Width ) /2 ) + 2 , _
( ( ( Me.Height + 2 ) - textSize.Height ) /2 ) + 2 )
Else
Dim pt Kuten New Point ( ( ( Me.Width + 3 ) /12 ) + 1 , _
( ( Me.Height + 2-16 ) /2 ) + 1 )
Dim recString uutena suorakaide ( pt , uusi koko ( 16 , 16 ) )
g.DrawImage ( _Image , recString )
g.DrawString ( Me.Text , Me.Font , stringBrush , _
recString.X + recString.Width + 3 ,
( ( ( Me.Height + 2 ) - textSize.Height ) /2 ) + 2 )
End If
Else
Jos Me._Image Is Nothing Sitten
g.DrawString ( Me.Text , Me.Font , stringBrush , _
( ( ( Me.Width + 3 ) - textSize.Width ) /2 ) , _
( ( ( Me.Height + 2 ) - textSize.Height ) /2 ) )
Else
Dim pt Kuten New Point ( ( Me.Width + 3 ) /12 , ( Me.Height + 2-16 ) /2 )
Dim recString uutena suorakaide ( pt , uusi koko ( 16 , 16 ) )
g.DrawImage ( _Image , recString )
g . kiristysnauha ( Me.Text , Me.Font , stringBrush , _
recString.X + recString.Width + 3 ,
( ( ( Me.Height + 2 ) - textSize.Height ) /2 ) )
End Jos
End Jos
4

Save-ohjelman , ja aja ohjelma . Ikkunan pitäisi ponnahtaa joukon pyöreä ja elliptinen painikkeet .