[VB.NET] การเปิดฟอร์มลูก (MDI Child Form) ให้แสดงผลแบบอยู่บนสุด (Modal)

thongkorn

หากใครที่ติดตามผลงานของแอดมินมาตลอด ให้สังเกตว่าเวลาที่แอดมินออกแบบหน้าตาโปรแกรม เพื่อให้เกิด ความเป็นมิตรกับผู้ใช้ (User-Friendly) มากที่สุด แอดมินจะสร้างหน้าจอ (ฟอร์ม) ให้ User ใช้งานเพียงหน้าจอเดียว เช่น หน้ารายการขายสินค้า เวลาเลือกรายชื่อลูกค้าเข้ามา ก็จะเกิดการเปิดฟอร์มลูกค้าขึ้นมาเพื่อให้เลือก หรือเพิ่ม หรือแก้ไขได้เลยทันที โดยไม่ต้องปิดฟอร์มการขาย แล้วกลับไปทำรายการลูกค้าก่อน หรือแม้แต่การเลือกรายชื่อสินค้า หรืออื่นๆ ก็จะใช้วิธีเดียวกัน เรื่องแบบนี้มันต้องมีเงี่ยนงำแน่ๆ 5555+ ...

ติ๊บเล็กๆนี้สำคัญมาก ในการทำฟอร์มลูก (MDI Child Form) สามารถแสดงผลฟอร์มแบบอยู่บนสุดได้ หรือที่เราเรียกว่า Modal (หากไม่ใช่เราเรียกว่า Modaless) ซึ่งใน VB6 มันทำไม่ได้ หากเรากำหนดให้มันเป็นฟอร์มลูก (SDI - Single Document Inteface) ของ MDI Form (Multiple Document Interface) แต่สำหรับ VB.NET กลับทำได้ง่ายดายมาก ความสำคัญมันอยู่ที่ตอนนำไปใช้งาน ...

มาดูโค้ด(ง่ายๆ)กันเถอะ ... (สำหรับ MDI Form)

1. Public Class MDIForm
   
2. 
   
3.     Private Sub ToolStripButton1_Click(sender As System.Object, e As System.EventArgs) Handles ToolStripButton1.Click
   
4.         '// แจ้งว่าไม่ใช่เกิดการเรียกฟอร์มแบบ Modal
   
5.         blnSubForm = False
   
6.         '// มีการเปิดฟอร์มค้างไว้บนหน้าจอหรือไม่
   
7.         If Application.OpenForms().OfType(Of Form1).Any Then
   
8.             With Form1
   
9.                 .Focus()
   
10.             End With
    
11. 
    
12.             '// ไม่มีการเปิดฟอร์ม ก็ทำการเปิดขึ้นมาใหม่ โดยกำหนดให้เป็น Form1 เป็นฟอร์มลูกของ MDIForm
    
13.         Else
    
14.             With Form1
    
15.                 '// กำหนดฟอร์ม Form1 ให้เป็นฟอร์มลูกของฟอร์มหลัก
    
16.                 .MdiParent = Me
    
17.                 .Show()
    
18.             End With
    
19.         End If
    
20.     End Sub
    
21. 
    
22.     Private Sub ToolStripButton2_Click(sender As System.Object, e As System.EventArgs) Handles ToolStripButton2.Click
    
23.         blnSubForm = False
    
24.         '/
    
25.         If Application.OpenForms().OfType(Of Form2).Any Then
    
26.             With Form2
    
27.                 .Focus()
    
28.             End With
    
29.         Else
    
30.             With Form2
    
31.                 .MdiParent = Me
    
32.                 .Show()
    
33.             End With
    
34.         End If
    
35.     End Sub
    
36. 
    
37. End Class

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

โค้ดสำหรับการเรียกเปิดจากฟอร์มลูก (MDI Child Form) ...

1. Public Class Form1
   
2. 
   
3.     Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
   
4.         '// หากเป็นฟอร์มแบบ Modal ให้ปิดการมองเห็นของปุ่ม
   
5.         If blnSubForm Then
   
6.             Button1.Visible = False
   
7.         Else
   
8.             Button1.Visible = True
   
9.         End If
   
10.     End Sub
    
11. 
    
12.     Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    
13.         '// เปิดฟอร์มแบบ Modal
    
14.         blnSubForm = True
    
15.         '// สร้าง Instance Name ของ Form2 ขึ้นมาใหม่
    
16.         Dim frm As New Form2
    
17.         '// โชว์ฟอร์มแบบ Modal
    
18.         frm.ShowDialog()
    
19.     End Sub
    
20. End Class

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

สิ่งที่สำคัญคือ การใช้ตัวแปรแบบ Public ในการกำหนดการแสดงผล เวลาที่ฟอร์มลูกมันถูกเรียกขึ้นมาใช้งานในแต่ละครั้ง ...

1. Module Module1
   
2.     Public blnSubForm As Boolean
   
3. End Module

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

ดาวน์โหลดโค้ด VB.NET (2010) ได้ที่นี่ ...

araban

ขอบคุณครับอาจารย์

jaricha5

ขบคุณครับ

hot2

ขอบคุณครับ ตอนนี้ไล่อ่าน vb.net มันยากใช้ได้เลยครับ

thongkorn

hot2 ตอบกลับเมื่อ 2020-7-8 19:20
ขอบคุณครับ ตอนนี้ไล่อ่าน vb.net มันยากใช้ได้เลยครับ

ผมก็ต้องใช้เวลาพอสมควรครับ ... เป็นปี 5555+

hot2

คงเวียนๆมาถามบ่อยๆละครับ