Anasayfa > Kodlar > Visual Basic 6 ile Yuvarlak form yapmak

Visual Basic 6 ile Yuvarlak form yapmak


Bu kodlarla formunuzu yuvarlak haline getirebilirsiniz...

'Önce bir commandbutton oluşturun
'Ve formun borderstyle'ını 0-none yapın
'Ardından bu kodu kullanın
'İhtiyacımız olan API'leri alalım
Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, _
ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, _
ByVal bRedraw As Long) As Long
Private Sub Command1_Click()
On Error Resume Next 'Hata görmek istemiyorum
a = 0 'Bu a sayısı formun ne kadar her seferde ne kadar küçüleceğini gösteriyor
Do Until Form1.Height < 300
b = (Form1.Height * Form1.Width) / 1000000 'b sayısı formla orantılı küçülme için
a = a + b 'a sayısı artmalı ki formumuzun küçülmesi giderek hızlansın
'Bu satırlar yuvarlağın orantılı şekilde küçülmesi için. İyi anlamak için bunları çıkarıp deneyin
Form1.Top = Form1.Top + a / 2
Form1.Left = Form1.Left + a / 2
Form1.Height = Form1.Height - a 'Bu formun uzunluğunu azaltır
Form1.Width = Form1.Width - a 'Bu da genişliğini azaltır
'Bunlar formun yuvarlak olması için
Dim hr&, dl&
Dim usew&, useh&
usew& = Me.Width / Screen.TwipsPerPixelX
useh& = Me.Height / Screen.TwipsPerPixelY
hr& = CreateEllipticRgn(0, 0, usew, useh)
dl& = SetWindowRgn(Me.hWnd, hr, True)
DoEvents
Loop
Unload Me 'Form kapansın
End Sub

'Uğur Cem TÜRKER


TD Software


  1. okan
    17/06/2011, 06:25

    Harikasın Dostum bu çok işime yarayacak 🙂

    Beğen

  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: