Hvordan lage en runde knappen i VB

Et dataprogram er en serie av kommandoer som blir utført av den sentrale prosessorenheten. Det er mange forskjellige programmeringsspråk, men de som oftest brukes i dag er C ++, C # og Visual Basic (VB). Visual Basic er et programmeringsspråk som 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 koden.

Bruksanvisning

1 Opprett en ny Visual Basic-prosjekt. Programmet kan startes ved å male på knappen, noe som kan gjøres ved hjelp av "AddEllipse" -klassen. 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)

2 Tegn kanten av knappene. For å sikre glatte kurver er tegnet, sett SmoothingMode eiendom 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 trekke 3D-effekten.

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

3 Plasser en tekst etikett inne knappen, og skrive den viktigste reguleringssløyfen for å avgjøre om en knapp er trykket. Skriv inn følgende kode i Visual Basic-vinduet:

"Mål størrelsen av den streng for å sentralisere det.

«Hvis et bilde er til stede, blir teksten trukket ved siden av ikonet.

Dim skrift Som SizeF = g.MeasureString (Me.Text, Me.Font)
'Hvis Mouse trykkes trekke tekst og bilde, hvis tilgjengelig,

'Forskjøvet 2 piksler til høyre for å simulere 3D-effekten

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)

Ellers

Dim pt As New Point(((Me.Width + 3) / 12) + 1, _
((Me.Height + 2 - 16) / 2) + 1)
Dim recString As New Rectangle(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)

Slutt om
Ellers
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))

Ellers

Dim pt As New Point((Me.Width + 3) / 12, (Me.Height + 2 - 16) / 2)
Dim recString As New Rectangle(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))

Slutt om
Slutt om

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