Comment faire un bouton circulaire dans VB

Un programme d'ordinateur est une série de commandes qui est exécuté par l'unité centrale de traitement . Il ya beaucoup de différents langages de programmation , mais ceux qui sont le plus souvent utilisés aujourd'hui sont C + + , C # et Visual Basic ( VB ) . Visual Basic est un langage de programmation qui possède également une interface visuelle pour la création de l'interface de programme , ce qui le rend particulièrement utile pour le débutant. L'interface Visual Basic standard ne permet que la création de boutons rectangulaires , mais les boutons circulaires peut être créée en utilisant une petite quantité de code.Things Vous devez
Visual Basic
Voir Instructions

1

Créer un nouveau projet Visual Basic . Le programme peut être lancé par la peinture de la touche , ce qui peut être fait en utilisant le " AddEllipse " classe . Tapez la commande suivante dans la fenêtre Visual Basic : Photos

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

dessiner le bord des boutons . Pour assurer des courbes lisses sont tirés , définissez la propriété SmoothingMode AntiAlias ​​. Tapez le code suivant dans la fenêtre Visual Basic : Photos

Dim P1 Pen
Dim p2 Comme recBorder = New RectangleF Pen ( 1 , 1 , Me.Width - 2 , Me.Height - 2 )
'Cette ligne est très important d'avoir des courbes lisses

g.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias ​​
. maintenant, nous devons attirer l' effet 3D
.

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

Placer une étiquette de texte à l'intérieur le bouton , et écrire la boucle de commande principale pour déterminer si un bouton a été pressé . Tapez le code suivant dans la fenêtre Visual Basic : Photos

. Mesurer la taille de la chaîne de centraliser

«Si une image est présente , le texte est tiré à côté de l' icône <. br>

Dim textSize Comme SizeF = g.MeasureString ( Me.Text , Me.Font )
«Si la souris est pressé dessiner le texte et l'image , le cas échéant ,

' décalé 2 pixels vers la droite pour simuler l'effet 3D

Si Me.mousePressed Puis
Si Me._Image n'est rien Puis
g.DrawString ( Me.Text , Me.Font , stringBrush , _
( ( ( Me.Width + 3) - textSize.Width ) /2) + 2 , _
( ( ( Me.Height + 2) - textSize.Height ) /2) + 2)
Autres
Dim pt As New point ( ( ( Me.Width + 3 ) /12 ) + 1 , _
( ( Me.Height + 2 - 16 ) /2 ) + 1 )
Dim recString As New Rectangle ( pt , neuf Taille ( 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

Si Me._Image n'est rien Puis
g.DrawString ( Me.Text , Me.Font , stringBrush , _
( ( ( Me.Width + 3 ) - textSize.Width ) /2 ) , _
( ( ( Me.Height + 2 ) - textSize.Height ) /2 ) )
Autres
Dim pt As New point ( ( Me.Width + 3 ) /12 , ( Me.Height + 2 - 16 ) /2 )
Dim recString As New Rectangle ( pt , neuf Taille ( 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

Enregistrez le programme et exécuter le programme . Une fenêtre devrait apparaître avec une série de boutons circulaires et elliptiques .