|
|
|
|||||||
 | ||
 |
|
|
Seçenekler | Arama | Stil |
  Yuvarlak Form Oluşturmak | ||||||||||
|
(#1)
|
|||||||||
|
Üye
 
Mesaj Sayısı: 923
Açtığı Konu: 551
Level: 27 [  ]Paylaşım: 130 / 651
Üyelik tarihi: Nov 2007
Kullanıcı No: 191658
Nerden: STARHACk.ORG'dan
Tecrübe Puanı: 38
REP Puanı : 364
REP Seviyesi :
 |
Yuvarlak Form Oluşturmak -
05-08-2008
(General)(Declaration)
Option Explicit 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 Form_Load() ’En ve boy değerleri değiştirilerek eliptik formlar oluşturulabilir Dim ref&, i& Dim en&, boy& en& = Me.Width / Screen.TwipsPerPixelX boy& = Me.Height / Screen.TwipsPerPixelY ref& = CreateEllipticRgn(0, 0, en&, boy&) i& = SetWindowRgn(Me.hWnd, ref&, True) End Sub |
|||||||||
|
||||||||||
 | ||||||||||
|
|
|
| Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
| Seçenekler | Arama |
| Stil | |
|
|
Normal
