AccessTr.neTVisual Basic 6Visual Basic 6 Örnekleri ve Uygulamaları

Kayarak Açılan Form

1 2 3 4
28/11/2008, 20:48

chopper07

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
28/11/2008, 22:25

karaayhan

teşekkürler kardeş..
28/11/2008, 22:42

chopper07

rica ederim, ne demek.
26/02/2009, 21:05

qrantina

Saol kardeste denedım calısmıyor
04/02/2011, 19:59

FeyzaTkn

Ben denedim 2008 de çalışıyor teşekkürler..
Fakat 08 de Form1 yerlerini silip Me yazıyorsun
04/02/2011, 22:09

akd

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
1 2 3 4