Bir bilgisayar programı, merkezi işlem birimi tarafından yürütülen komutlar dizisidir . Birçok farklı programlama dilleri vardır , ancak en sık günümüzde kullanılanolanlar C + + , C # ve Visual Basic ( VB ) vardır . Visual Basic deprogram arayüzü oluşturmak için bir görsel arayüze sahip bir programlama dilidir ve buyeni başlayanlar için özellikle kullanışlı hale getirir . Standart Visual Basic arayüzü sadece dikdörtgen düğmelerioluşturulmasını sağlar , fakat dairesel düğmeleri
Visual Basic

ihtiyacınız olacak code.Things küçük bir miktar kullanılarak oluşturulabilir > 1 yeni bir Visual Basic projesi oluşturun

. Program» AddEllipse » kullanılarak yapılabilir , hangidüğmeye boyayarak başlamış olabilir sınıf. Visual Basic penceresine aşağıdaki komutu yazın :
br / recRegion = Yeni RectangleF ( 0 , 0 , Me.Width , Me.Height ) gibi bir Dim

> a.AddEllipse ( recRegion )
Me.Region = Yeni Bölge ( a )
2

düğmelerininkenarını çizin . Yumuşak eğrileri çizilir sağlamak için, yumuşatması içinSmoothingMode özelliğini ayarlayın . Visual Basic penceresineaşağıdaki kodu yazın : Kalem Pen’in
recBorder = Yeni RectangleF ( 1 , 1 , Me.Width gibi p2 Dim
olarak
p1 Dim

– 2 , Me.Height – 2 )
‘ Bu satır düzgün eğriler için çok önemlidir

g.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias ​​
. ‘ Şimdi3D efekti çizmek gerekir güzelleşir.

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

içine bir metin etiketini yerleştirin düğme ve bir düğmeye basıldığında olup olmadığını belirlemek içinana kontrol döngü yazmak . Visual Basic penceresineaşağıdaki kodu yazın : bir görüntü varsa

‘ . MerkezileştirmeyeStringboyutunu ölçün

‘ ,metin sonrakisimgesinin çizilir <. br > Dim TEXTSIZE

SizeF = g.MeasureString
( Me.Text , Me.Font ) ‘Fare varsa ,metin veresim çizmek basılırsa ,

‘ değiştirdiklerinde 3D efekti simüle etmek içinsağa 2 piksel

Me.mousePressed Sonra
Me._Image şey ise o
g.DrawString ( Me.Text , Me.Font , stringBrush , _
( ( ( 3 Me.Width + ) – textSize.Width ) /2) + 2 , _
( ( ( Me.Height + 2) – textSize.Height ) /2) + 2) ( – 16 ) /2 ) + 1 ( ( Me.Width + 3 ) /12 ) + 1 , _
( ( Me.Height + 2 )
Else
Dim pt New Point gibi
Dim Yeni Dikdörtgen olarak recString ( pt , Yeni Boyut ( 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
Else If
Me._Image şey ise o
g.DrawString ( Me.Text , Me.Font , stringBrush , _
( ( ( Me.Width + 3 ) – textSize.Width ) /2 ) , _
( ( ( Me.Height + 2 ) – textSize.Height ) /2 ) )
Else
Dim pt New Point ( As ( Me.Width + 3 ) /12 , ( Me.Height + 2 – 16) /2 )
g Yeni Dikdörtgen ( pt , Yeni Boyut ( 16 , 16 ) )
g.DrawImage ( _Image , recString ) gibi recString Dim
. DrawString ( Me.Text , Me.Font , stringBrush , _
recString.X recString.Width + + 3 ,
( ( ( Me.Height + 2) – textSize.Height ) /2) ) ‘ br /> End If End

4

programı kaydedin veprogramı çalıştırın. Bir pencere , dairesel ve eliptik , bir dizi düğme ile açılır olmalıdır.