VS2010旗舰版的VB.NET数字操作系统主窗体程序代码

EYYLTV

已于 2024-07-12 13:51:33 修改

阅读量70

点赞数 2

文章标签： .net 数据库服务器

于 2024-07-12 11:26:10 首次发布

本文链接：https://blog.csdn.net/qq_32257509/article/details/140374649

版权

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    If Form2.Visible Then
        Form2.Hide()
    Else
        Form2.Show()
    End If
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    If Form3.Visible Then
        Form3.Hide()
    Else
        Form3.Show()
    End If
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    If Form4.Visible Then
        Form4.Hide()
    Else
        Form4.Show()
    End If
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    If Form5.Visible Then
        Form5.Hide()
    Else
        Form5.Show()
    End If
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
    If Form6.Visible Then
        Form6.Hide()
    Else
        Form6.Show()
    End If
End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
    If Form7.Visible Then
        Form7.Hide()
    Else
        Form7.Show()
    End If
End Sub

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
    If Form8.Visible Then
        Form8.Hide()
    Else
        Form8.Show()
    End If
End Sub

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
    If Form9.Visible Then
        Form9.Hide()
    Else
        Form9.Show()
    End If
End Sub

Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
    If Form10.Visible Then
        Form10.Hide()
    Else
        Form10.Show()
    End If
End Sub

Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
    If Form11.Visible Then
        Form11.Hide()
    Else
        Form11.Show()
    End If
End Sub

Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
    If Form12.Visible Then
        Form12.Hide()
    Else
        Form12.Show()
    End If
End Sub

End Class