Wie man eine kreisförmige Schaltfläche in VB Stellen

Ein Computerprogramm ist eine Reihe von Befehlen , die von der zentralen Verarbeitungseinheit ausgeführt wird . Es gibt viele verschiedene Programmiersprachen , aber die, die heute am häufigsten verwendet werden, sind C + +, C # und Visual Basic (VB) . Visual Basic ist eine Programmiersprache, die auch eine visuelle Schnittstelle für die Erstellung der Programmschnittstelle , und dies macht es besonders geeignet für den Anfänger. Die Standard- Visual Basic -Schnittstelle ermöglicht nur die Erstellung von rechteckigen Tasten , aber kreisförmige Tasten können mit einer kleinen Menge von code.Things Sie brauchen
Visual Basic
Weitere Anweisungen anzeigen

1

erstellen Sie ein neues Visual Basic-Projekt . Das Programm kann von der Malerei auf die Schaltfläche gestartet werden , die mit dem " AddEllipse " getan werden kann, Klasse. Geben Sie den folgenden in die Visual Basic -Fenster :

Dim a As New System.Drawing.Drawing2D.GraphicsPath
recRegion = New RectangleF ( 0, 0, Me.Width , Me.Height )
a.AddEllipse ( recRegion )
Me.Region = New Region ( a)
2

zeichnen Sie die Kante der Tasten . Um sicherzustellen, glatte Kurven gezeichnet werden , setzen Sie die Eigenschaft auf Smoothingantialias. Geben Sie den folgenden Code in der Visual Basic- Fenster :

Dim P1 Pen
p2 Dim Als Pen
recBorder = New RectangleF ( 1, 1, Me.Width - 2, Me.Height - 2 )
" Diese Linie ist sehr wichtig, um glatte Kurven haben

g.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias ​​
. " Jetzt müssen wir den 3D-Effekt zu ziehen
.

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

Platzieren Sie ein Textetikett innen die Taste und schreiben Sie den Hauptregelkreis zu bestimmen, ob eine Taste gedrückt wurde. Geben Sie den folgenden Code in der Visual Basic- Fenster :

. " Messen Sie die Größe der String um es zu zentralisieren

" Wenn ein Bild vorhanden ist , wird der Text neben dem Symbol gezeichnet <. br>

Dim textsize = Wie SizeF g.MeasureString ( Me.Text , Me.Font )
' Wenn die Maus gedrückt wird, ziehen Sie den Text und das Bild , wenn verfügbar,

' verschoben 2 Pixel nach rechts, um den 3D-Effekt zu simulieren

Wenn Me.mousePressed Dann
Wenn Me._Image nichts dann
g.DrawString ( Me.Text , Me.Font , stringBrush , _
( ( ( Me.Width + 3) - textSize.Width ) /2 ) + 2 , _
( ( ( Me.Height + 2) - textSize.Height ) /2 ) + 2 )
Else
Dim pt As New Point ( ( ( Me.Width + 3 ) /12) + 1 , _
( ( Me.Height + 2 - 16 ) /2 ) + 1)
recString Dim 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 )
End If Else

Wenn Me._Image nichts dann
g.DrawString ( Me.Text , Me.Font , stringBrush , _
((( Me.Width + 3) - textSize.Width ) /2 ) , _
((( Me.Height + 2) - textSize.Height ) /2) ) Else

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

4

speichern Sie das Programm , und starten Sie das Programm . Ein Fenster sollte Pop-up mit einer Reihe von kreisförmigen und elliptischen Tasten.