form2.vb

vb开发的车间调度程序

Public Class Form2


    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Form1.Visible = False
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        SaveFileDialog1.AddExtension = True
        SaveFileDialog1.DefaultExt = "bmp"
        SaveFileDialog1.CheckPathExists = True
        SaveFileDialog1.Filter = "*.bmp|*.bmp"
        SaveFileDialog1.OverwritePrompt = True
        If Me.SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK And SaveFileDialog1.FileName.Length > 0 Then
            Form1.bmp.Save(Me.SaveFileDialog1.FileName)
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()
        Form1.Show()
    End Sub
End Class