+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic 6 (https://accesstr.net/forum-visual-basic-6.html)
+--- Forum: Visual Basic 6 Örnekleri ve Uygulamaları (https://accesstr.net/forum-visual-basic-6-ornekleri-ve-uygulamalari.html)
+--- Konu Başlığı: Kayarak Açılan Form (/konu-kayarak-acilan-form.html)
Kayarak Açılan Form - chopper07 - 28/11/2008
Proje çalıştırıldığında form sol üst köşeden sağa ve aşağıya doğru kayarak açılıyor...
Eklenecek nesne; timer1
(Timer1'in Interval özelliğini 1000 yapıyoruz)♫
Kod:
Private Sub Form_Load()
Form1.Height = 0
Form1.Width = 0
For i = 1 To 100
Form1.Width = Form1.Width + i
Form1.Height = Form1.Height + i
Form1.Show
Form1.Refresh
Next i
End SubCvp: Kayarak Açılan Form - karaayhan - 28/11/2008
teşekkürler kardeş..
Cvp: Kayarak Açılan Form - chopper07 - 28/11/2008
rica ederim, ne demek.
Cvp: Kayarak Açılan Form - qrantina - 26/02/2009
Saol kardeste denedım calısmıyor
Cvp: Kayarak Açılan Form - FeyzaTkn - 04/02/2011
Ben denedim 2008 de çalışıyor teşekkürler..
Fakat 08 de Form1 yerlerini silip Me yazıyorsun
Cvp: Kayarak Açılan Form - akd - 04/02/2011
malesef me yazdım yine çalışmadı.
Hata veriyor...
Private Sub Form_Load()
Me.Height = 0
Me.Width = 0
For I = 1 To 100
Me.Width = Me.Width + I
Me.Height = Me.Height + I
Me.Show
Me.Refresh
Next I
End Sub