Skip to main content

AccessTr.neT


Kayarak Açılan Form

Kayarak Açılan Form

#1
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 Sub

™Hiç Birimiz, Hepimiz Kadar Akıllı Olamayız...®

Cevapla
#2
teşekkürler kardeş..
Cevapla
#3
rica ederim, ne demek.
™Hiç Birimiz, Hepimiz Kadar Akıllı Olamayız...®

Cevapla
#4
Saol kardeste denedım calısmıyor Lol
Cevapla
#5
Ben denedim 2008 de çalışıyor teşekkürler..
Fakat 08 de Form1 yerlerini silip Me yazıyorsun Img-grin
Cevapla
#6
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
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task