|
 |
« : 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
|
Etiketler:
Yuvarlak Pencereler ,
Yuvarlak Pencereler indir ,
Yuvarlak Pencereler download ,
Yuvarlak Pencereler yükle ,
Yuvarlak Pencereler şarkı sözü ,
Yuvarlak Pencereler program ,
Yuvarlak Pencereler yeni ,
Yuvarlak Pencereler msn ,
Yuvarlak Pencereler ifadeleri ,
Yuvarlak Pencereler mp3 ,
Yuvarlak Pencereler sözleri ,
Yuvarlak Pencereler resimleri ,
Yuvarlak Pencereler resim ,
Yuvarlak Pencereler videosu ,
Yuvarlak Pencereler kaydet ,
Yuvarlak Pencereler bedava ,
Yuvarlak Pencereler fotoğrafları ,
Yuvarlak Pencereler albümü ,
Yuvarlak Pencereler full ,
Yuvarlak Pencereler videoları ,
Yuvarlak Pencereler video ,
Yuvarlak Pencereler free ,
Yuvarlak Pencereler forum
İnsanlar söylediklerinizi ya da yaptıklarınızı unutur, ama onlara neler hissettirdiklerinizi asla unutmazlar.
|
|
|
|
|
|
|
|
Webmaster / Web Dizayn Scriptler / Programlama Dilleri
25 Haziran 2007, 18:02:03