ปิด Form1 แล้วแสดง Form2 อย่างไรครับ

เข้าใจว่าเป็น VB6
Private Sub Command1_Click()
    Form2.Show
    Unload Form1 ' หรือ Unload Me
End Sub


Form1 เป็นฟอร์มแม่ หรือ ฟอร์มหลัก Form2 เป็นฟอร์มลูก ถ้าปิดฟอร์มแม่ ฟอร์มลูกก็อยู่ไม่ได้

ต้องทำเป็น 2 Solutions แยกกัน คือ Solution ลูก และ Solution แม่ แล้วนำมาใช้ร่วมกัน

โดยทั่วไปแล้ว การเปลี่ยนหน้าฟอร์ม ไป - มา จะไม่ค่อยใช้วิธี ปิดฟอร์มเก่า แล้วสั่งเปิดฟอร์มใหม่

ส่วนมากจะใช้ TabControl ในการเปลี่ยนหน้าฟอร์ม ลองทำดูครับ

การเขียนคำสั่งบังคับควบคุมนั้น Object จะควบคุมได้ง่ายกว่า Form

ความรู้ใหม่ๆที่เกิดขึ้น จะไม่มีอยู่ในตำรา แต่มีอยู่ในสมองที่ค้นคิด

Get Events Handle Form2

1.Create new button1
2.Add event handle

Example: Event button
Public Class Form1
    Private form2 As New Form
    Private button1 As New Button
    Private proc As Process
    Public Sub New()
        MyBase.New()
        InitializeComponent()
        button1.Text = "RunApp"
        button1.Location = New Point(100, 100)
        button1.Cursor = Cursors.Hand
        form2.Text = "Form2"
        form2.Controls.Add(button1)
        AddHandler button1.Click, AddressOf button1_Click
        AddHandler form2.FormClosing, AddressOf form2_FormClosing
    End Sub
    Public Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs)
        Dim pList() As System.Diagnostics.Process = _
        System.Diagnostics.Process.GetProcessesByName("calc")
        Dim app As String = Nothing
        For Each proc As System.Diagnostics.Process In pList
            app = proc.ProcessName
        Next
        If app = "calc" Then
            Return
        Else
            proc = Process.Start("Calc.exe")
        End If
    End Sub
    Public Sub form2_FormClosing(ByVal sender As Object, ByVal e As EventArgs)
        Try
            proc.Kill()
        Catch ex As Exception
        End Try
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        form2.StartPosition = FormStartPosition.CenterScreen
        If form2.ShowDialog = Windows.Forms.DialogResult.OK Then
            Me.Dispose()
        Else
            Me.Close()
        End If
    End Sub
End Class