|
||
| 'Ö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 'Çalış... Çalış... Çalış... Loop Unload Me 'Form kapansın End Sub |
||
|
||
hemen kullandım gerçekten güzel ama farklı bir skin fln kullanınca bir kara bir daire oluyo 
|
||
