|
 |
« : 02 Mayıs 2008, 10:25:39 » |
|
API üstüne API ile karşınızda olmaya devam ediyoruz. Sizleri API ye boğmaya karar vermiş biri olarak şimdi de YUVARLAK Bir Form Nasıl Oluşturulur tüm sırları ile beraber sunuyorum. Hiç bir yerde bulamayacağınız çok özel pozları ile karşınızda CreateEllipticRgn ve sevgilisi SetEllipticRgn nun bu pozlar karşısında şok etkisi yaratacak açıklamaları...
'Komple Formun kod bölümüne ekleyin(kopyala-yapıştır) :-)
'API tanımlamaları yapılıyor...
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
'Pencere yüklenirkene formu yuvarlatıyoruz...
Private Sub Form_Load()
Dim hr&, dl&
Dim usew&, useh&
usew& = Me.Width / Screen.TwipsPerPixelX
useh& = Me.Height / Screen.TwipsPerPixelY
' Oluşturuluyor...
hr& = CreateEllipticRgn(0, 0, usew, useh)
' Gösteriliyor...
dl& = SetWindowRgn(Me.hWnd, hr, True)
End Sub
|
|
|
|
|
Logged
|
|
|
|
|
Webmaster / Web Dizayn Scriptler / Programlama Dilleri