A компютърна програма е поредица от команди, които се изпълняват от централния процесор. Има много различни езици за програмиране , но тези, които най-често се използват днес са C + + , C # и Visual Basic ( VB ) . Visual Basic е език за програмиране, който също има визуален интерфейс за създаване на интерфейс на програмата, и това го прави особено полезно за начинаещи . Стандартният Visual Basic интерфейс позволява само създаването на правоъгълни бутони , но кръгли бутони могат да бъдат създадени с помощта на малко количество code.Things ви е нужно
Visual Basic MarketBook.bg: Покажи повече инструкции
<Бразилски > 1

Създаване на нов Visual Basic проект. Програмата може да се стартира от боядисване на бутона , който може да се извършва с помощта на “ AddEllipse “ клас . Въведете следното в прозореца Basic Visual :

Дим А, както New System.Drawing.Drawing2D.GraphicsPath
recRegion = New RectangleF ( 0 , 0, Me.Width , Me.Height ) <Бразилски /> a.AddEllipse ( recRegion )
Me.Region = Нов регион ( а)

2

Draw ръба на бутоните. За да се осигури нормалното криви са изготвени , задайте SmoothingMode свойството да Заглаждане . Въведете следния код в Basic прозореца Visual :

Дим P1 като Pen
Дим p2 Както Pen
recBorder = New RectangleF ( 1 , 1, Me.Width – 2 , Me.Height – 2 )
“ Тази линия е много важно да има гладки криви

g.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias ​​
. “ сега ние трябва да се направи 3D ефект
.

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

Поставете етикет текст вътре бутона , и да напише основната управляващия контур да се определи дали един бутон е натиснат . Въведете следния код в Basic прозореца Visual :

“ . Измерете размера на низа да я централизира

“ Ако изображението е налице, текстът е изготвен до иконата <. Бразилски>

Dim Големина на шрифта по SizeF = g.MeasureString ( Me.Text , Me.Font )
“ Ако мишката е натиснат изготви текста и изображението , ако е налична , продажба

„, прехвърлени 2 пиксела на правото да се симулира 3D ефект

Ако Me.mousePressed Тогава
Ако Me._Image нищо Тогава
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 правоъгълник ( 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
Ако Me._Image нищо Тогава
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 As New правоъгълник ( pt , New Size ( 16 , 16) )
g.DrawImage ( _Image , recString )
грама . шнур ( Me.Text , Me.Font , stringBrush , _
recString.X + recString.Width + 3 ,
((( Me.Height + 2 ) – textSize.Height ) /2 ) )
End If End If

4

Запазване на програмата, и стартирайте програмата . A прозорец трябва да се появи със серия от кръгли и елипсовидни бутони.