Hur man gör en runda knappen i VB

Ett ​​datorprogram är en serie kommandon som utförs av centralenheten . Det finns många olika programmeringsspråk , men de som oftast används idag är C + + , C # och Visual Basic ( VB ) . Visual Basic är ett programmeringsspråk som också har ett visuellt gränssnitt för att skapa programmets gränssnitt , vilket gör det särskilt användbart för nybörjaren . Standarden Visual Basic gränssnitt tillåter endast att skapa rektangulära knappar , men runda knappar kan skapas med hjälp av en liten mängd code.Things du behöver
Visual Basic
Visa fler Instruktioner

1

Skapa ett nytt Visual Basic-projekt . Programmet kan startas genom att måla på knappen , vilket kan göras med hjälp av " AddEllipse " klass. Skriv följande i Visual Basic -fönstret :

Dim en som ny System.Drawing.Drawing2D.GraphicsPath
recRegion = Ny RectangleF ( 0 , 0 , Me.Width , Me.Height )
a.AddEllipse ( recRegion )
Me.Region = Ny Region ( a )
2

Rita kanten av knapparna . För att säkerställa jämna kurvor ritas , ange SmoothingMode egendom till Antialias . Skriv följande kod i Visual Basic -fönstret :

Dim p1 Som Pen
Dim p2 Som Pen
recBorder = Ny RectangleF ( 1 , 1 , Me.Width - 2 , Me.Height - 2 )
" Denna linje är mycket viktigt att ha mjuka kurvor

g.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias ​​
. " nu måste vi dra 3D-effekten
.

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

Placera en textetikett på insidan knappen och skriva huvudkontrollslinganför att avgöra om du har tryckt på en knapp . Skriv följande kod i Visual Basic -fönstret :

" . Mät storleken på String för att centralisera den

" Om en bild är närvarande , är texten dras bredvid ikonen <. br>

Dim Textstorlek Som SizeF = g.MeasureString ( Me.Text , Me.Font )
" Om musen trycks dra texten och bilden , om det finns tillgängligt ,

' skiftade 2 pixlar till höger för att simulera 3D-effekten
p Om Me.mousePressed Då
Om Me._Image är ingenting Sen
g.DrawString ( Me.Text , Me.Font , stringBrush , _
((( Me.Width + 3 ) - textSize.Width ) /2 ) + 2 , _
((( Me.Height + 2 ) - textSize.Height ) /2 ) + 2 )
Else
Dim pt som Ny Point ((( Me.Width + 3 ) /12 ) ^ 1 , _
( ( Me.Height + 2 - 16) /2 ) + 1 )
Dim recString som ny rektangel ( pt , Ny storlek ( 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
Om Me._Image är ingenting Sedan
g.DrawString ( Me.Text , Me.Font , stringBrush , _
((( Me.Width + 3 ) - textSize.Width ) /2 ) , _
((( Me.Height + 2 ) - textSize.Height ) /2 ) )
Else
Dim pt som Ny punkt ( ( Me.Width + 3 ) /12 , ( Me.Height + 2 - 16) /2 )
Dim recString som ny rektangel ( pt , Ny storlek ( 16 , 16 ) )
g.DrawImage ( _Image , recString )
g. . drawstring ( Me.Text , Me.Font , stringBrush , _
recString.X + recString.Width + 3 ,
((( Me.Height + 2 ) - textSize.Height ) /2 ) )
End If
End If
4

spara programmet , och kör programmet . Ett fönster ska dyka upp med en serie av cirkulära och elliptiska knapparna . Addera