Her köşedende formu kapatan program
Son güncelleme: 14.03.2007 14:48
-
Private Sub Cmd1çıkış_Click()
'Code thought up for no reason at all by VisualBlind
'No matter what height/width your form is, it will always
'shrink the form
'This would be great for a about windows after the user closes it
'you should put this in the form/unload procedure...
Do Until Form1.Height = 405 And Form1.Width = 1680
Form1.Height = Form1.Height - 1
Form1.Width = Form1.Width - 1
Loop
Unload Me
End Sub
Private Sub Form_Load()
Form1.Caption = "Form Move"
Form1.Height = 0
Form1.Width = 1680
Timer1.Interval = 200
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
On Error Resume Next
For x = 0 To Form1.Height + 2000
Form1.Height = x
Next x
For y = 100 To Form1.Width + 1500
Form1.Width = y
Next y
Timer1.Enabled = False
End Sub
- ben bu programlama dilini öğrenmek istiyorum yani daha yeniyim. şimdi ben bu kodları nasıl program yapacam biraz bilgi verebilirmisiniz
- Her köşedende formu kapatan program Konusuna Benzer Konular
- DreamBox PROGRAMLARI 04.03.2004
- Ezan Programı 12.03.2004
- Foto Montaj Programı FunHause 20.03.2004
- 2 Tane Bağlama Programı 20.03.2004
- Izzet Yildizhan ATV programina ara verdi 21.03.2004