ให้ปิด form ที่เปิดอยู่ ก่อนที่จะเปิดฟอร์มใหม่ [VB6.0]

my2alee

[VB6.0]
โปรเจ็คผมมี เป็นแบบ MDIForm
ประกอบด้วย form ลูกหลายฟอร์มด้วยกัน
>> ถ้า สมมุติ ผมคลิกเปิดฟอร์มใดฟอร์มหนึ่งขึ้นมา และไปคลิกเปิดฟอร์มอื่นหรือคลิกเปิดฟอร์มใดๆ โดยที่ยังไม่ปิดฟอร์มที่เปิดอยู่ก่อน-------- อาจจะให้มีข้อความแจ้งเตือนแล้วปิดฟอร์มที่เปิดอยู่อัตโนมัติ ก่อนแสดงฟอร์มที่ต้องการเปิดใหม่ขึ้นมาครับ
ประมาณว่า ให้ปิดฟอร์มที่เปิดอยู่ก่อนจึงจะเปิดฟอร์มอื่นๆได้
>> ขอแนวทางหน่อยครับ อ.

codingza

ไม่รู้ว่าแบบนี้หรือเปล่า
สร้าง Form ขึ้นมา 2 Form
มี Form1 และ Form2
Form1 สร้าง Button ขึ้นมา 1 ตัว เพื่อเปิด Form2 (เมื่อกดเปิด Form2 ให้ Form1 ปิดตัวไป)

1. Public Class Form1
   
2.     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
   
3.         MsgBox("ปิด Form1 แล้วเปิด Form2")
   
4.         Me.Hide()
   
5.         Form2.Show()
   
6.     End Sub
   
7. End Class

คัดลอกไปที่คลิปบอร์ด

Form2 สร้าง Button ขึ้นมา 1 ตัว เพื่อเปิด Form1 (เมื่อกดเปิด Form1 ให้ Form2 ปิดตัวไป)

1. Public Class Form2
   
2.     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
   
3.         MsgBox("ปิด Form2 แล้วเปิด Form1")
   
4.         Me.Close()
   
5.         Form1.Show()
   
6.     End Sub
   
7. End Class

คัดลอกไปที่คลิปบอร์ด

*** Form หลัก ไม่สามารถใช้คำสั่ง Me.Close() ได้ ใช้ได้แค่ Me.Hide() คือซ่อนเท่านั้น

my2alee

codingza ตอบกลับเมื่อ 2019-10-17 10:01
ไม่รู้ว่าแบบนี้หรือเปล่า
สร้าง Form ขึ้นมา 2 Form
มี Form1 แล ...

ลืมบอกไปครับ VB6.0

thongkorn

เป็นโค้ดฟังค์ชั่นในการเช็คว่า หากไม่ใช่ฟอร์ม MDI แสดงว่ามีการโหลดฟอร์มลูกขึ้นมา นำไปประยุกต์เพิ่มเองงล่ะกันครับผม ...

1. Option Explicit
   
2. 
   
3. Private Sub mnuForm1_Click()
   
4.     If CheckForm Then
   
5.         MsgBox "Please Close Child Form"
   
6.     Else
   
7.         Form1.Show
   
8.     End If
   
9. End Sub
   
10. 
    
11. Private Sub mnuForm2_Click()
    
12.     If CheckForm Then
    
13.         MsgBox "Please Close Child Form"
    
14.     Else
    
15.         Form2.Show
    
16.     End If
    
17. End Sub
    
18. 
    
19. Public Function CheckForm() As Boolean
    
20.     Dim Form As Form
    
21.     For Each Form In Forms
    
22.         '/ Not MDI Form
    
23.         If Form.Name <> "MDIForm1" Then
    
24.             CheckForm = True
    
25.             '// หากต้องการปิดฟอร์มอื่นๆที่ไม่ใช่ MDI Form
    
26.             'Unload Form
    
27.         Else
    
28.             CheckForm = False
    
29.         End If
    
30.    Next Form
    
31.    Set Form = Nothing
    
32. End Function

คัดลอกไปที่คลิปบอร์ด

my2alee

ขอบคุณท่าน codingza และ อ.thongkorn ด้วยครับ
ได้แล้วครับ อ. งมอยู่ตั้งนาน