Program komputerowy jestszereg poleceń , które są wykonywane przez jednostki centralnej . Istnieje wiele różnych języków programowania , ale te, które są najczęściej używane są dziś w C + + , C # i Visual Basic ( VB ) . Visual Basic jestjęzykiem programowania , który posiada również interfejs graficzny do tworzenia interfejsu programu , a to sprawia, że jest szczególnie przydatne dla początkujących . Podstawowy standardowy interfejs graficzny pozwala tylko na tworzenie przycisków prostokątnych , ale okrągłe przyciski mogą być tworzone przy użyciu niewielkiej ilości code.Things musisz
Visual Basic
Pokaż więcej instrukcji
1
Tworzenie nowego projektu Visual Basic . Program można uruchomić poprzez malowanie przycisk , co można zrobić za pomocą ” AddEllipse ” klasa . Wpisznastępujące wartości w oknie Visual podstawowego :
Dimjak nowa System.Drawing.Drawing2D.GraphicsPath
recRegion = new RectangleF ( 0, 0, Me.Width , Me.Height ) < br /> a.AddEllipse ( recRegion )
Me.Region = Nowy Region ()
2
narysować krawędź przycisków . Aby zapewnić gładkie krzywe są rysowane , ustawić właściwość SmoothingMode do Wygładzanie . Wpisz następujący kod w Visual oknie podstawowe :
Dim p1 Jak Pen
Dim p2 Jak Pena
recBorder = new RectangleF (1, 1, Me.Width – 2, Me.Height – 2 )
” Ta linia jest bardzo ważne, aby mieć gładkie krzywe
g.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias
. ” teraz musimy wyciągnąć efekt 3D
.
g.DrawArc ( p1 , recBorder , 180 , -180 )
g.DrawArc ( p2 , recBorder , 180 , 180 )
3
Umieść etykietę tekstową wewnątrz przycisk i napisz główną pętlę sterowania do określenia, czy został naciśniętyprzycisk . Wpisz następujący kod w Visual oknie podstawowe :
” . Zmierz rozmiar String to scentralizować
” Jeśliobraz jest obecny tekst jest rysowany obok ikony < . br>
Dim TEXTSIZE Jak SizeF = g.MeasureString ( Me.Text , Me.Font )
” Jeślimysz jest wciśnięty wyciągnąć tekst i obraz , jeśli są dostępne , Obrazy
” przesunięte 2 piksele w prawo, aby symulować efekt 3D
Me.mousePressed Następnie
Jeśli Me._Image Is Nothing Następnie
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 )
Dim recString As New Rectangle (pt , nowy rozmiar ( 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 )
Else End If
Jeśli Me._Image Is Nothing Następnie
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 )
Dim recString As New Rectangle (PT, nowy rozmiar ( 16, 16 ) )
g.DrawImage ( _Image , recString )
g . DrawString ( Me.Text , Me.Font , stringBrush , _
recString.X + recString.Width + 3
((( Me.Height + 2) – textSize.Height ) /2) ) < br /> End If
End If
4
Zapisz program i uruchom program . Powinno pojawić się okno z szeregu przycisków okrągłych i eliptycznych . Imperium