[vb6] วิธีการสร้าง ฟอร์ม ปิด-เปิด เเบบย่อจอ

[HOMA]

ขั้นแรก เพิ่มปุ่ม 1 ปุ่ม
add timer มา3 ตัว

ตัวแรกตั้ง interval ไว้ที่ 100 สถานะเป็น True
ตัว2 ตั้ง interval ไว้ที่ 100 สถานะเป็น false
ตัว3 ตั้ง interval ไว้ที่ 1000 สถานะเป็น false

แล้วลองเพิ่มโค้ดนี้ลงไปดู

[HIDE="10"][HIDE-THANKS]Private Sub Command1_Click()
Timer2.Enabled = True
End Sub

Private Sub Form_Load()
Me.Width = 100
Me.Height = 5
End Sub

Private Sub Timer1_Timer()
Me.Width = Me.Width + 400
Me.Height = Me.Height + 400
If Me.Height > 3500 Then Timer1.Enabled = False
End Sub

Private Sub Timer2_Timer()
Me.Width = Me.Width - 400
Me.Height = Me.Height - 400
Timer3.Enabled = True
End Sub

Private Sub Timer3_Timer()
End
End Sub[/HIDE-THANKS][/HIDE]