Hvordan lage en runde knappen i VB

Et dataprogram er en serie med kommandoer som er utført av den sentrale processing unit . Det er mange forskjellige programmeringsspråk , men de som er mest brukt i dag er C + + , C # og Visual Basic ( VB ) . Visual Basic er et programmeringsspråksom også har et visuelt grensesnitt for å lage programmet grensesnittet , og dette gjør det spesielt nyttig for nybegynnere . Standarden Visual Basic grensesnittet kan bare etableringen av rektangulære knapper , men sirkulære knapper kan lages ved hjelp av en liten mengde code.Things du trenger
Visual Basic på
Vis flere instruksjoner

1

Opprett en ny Visual Basic-prosjekt . Programmet kan startes ved å male på knappen , noe som kan gjøres ved hjelp av " AddEllipse " klasse . Skriv inn følgende i Visual Basic -vinduet :

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)
to

Tegn kanten av knappene . For å sikre glatte kurver er trukket , sette SmoothingMode egenskapen til antialias . Skriv inn følgende kode i Visual Basic -vinduet :

Dim p1 Som Pen
Dim p2 Som Pen
recBorder = Ny RectangleF ( 1 , 1 , Me.Width - 2 , Me.Height - 2 )
' Denne linjen er svært viktig å ha glatte kurver

g.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias ​​
. ' nå må vi tegne 3D-effekten
.

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

Plasser en tekst etikett inne knappen , og skrive hovedkontrollsløyfenfor å finne ut om en knapp er trykket. Skriv inn følgende kode i Visual Basic -vinduet :

' . Mål størrelsen på String for å sentralisere det

' Hvis et bilde er til stede , blir teksten trekkes ved siden av ikonet <. br >

Dim Tekststørrelse Som SizeF = g.MeasureString ( Me.Text , Me.Font )
'Hvis Mouse er trykket trekke tekst og bildet , hvis tilgjengelig , etter

' forskjøvet 2 piksler til høyre for å simulere 3D-effekten
p Hvis Me.mousePressed deretter
Hvis Me._Image Er Ingenting deretter
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 New Point ( ( ( Me.Width + 3 ) /12 ) + 1 , _
( ( Me.Height + 2 - 16) /2 ) + 1 )
Dim recString som ny rektangel ( pt , New Size ( 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
Hvis Me._Image Er Ingenting deretter
g.DrawString ( Me.Text , Me.Font , stringBrush , _
( ( ( Me.Width + 3 ) - textSize.Width ) /2 ) , _
( ( ( Me.Height + 2 ) - textSize.Height ) /2 ) )
Else
Dim pt Som New Point ( ( Me.Width + 3 ) /12 , ( Me.Height + 2 - 16) /2 )
Dim recString som ny rektangel ( pt , New Size ( 16 , 16 ) )
g.DrawImage ( _Image , recString )
g . snøring ( Me.Text , Me.Font , stringBrush , _
recString.X + recString.Width + 3 ,
( ( ( Me.Height + 2 ) - textSize.Height ) /2 ) )
End If
End If
4

Lagre programmet , og kjør programmet . Et vindu skal dukke opp med en serie av sirkulære og elliptiske knapper .