Skip to main content

AccessTr.neT


Etiketler
Yazar: chopper07 - Cevaplar: 18 - İzleme: 13451
Kayarak Açılan Form
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

Task