status.vb

来自「一个lbm的程序」· VB 代码 · 共 24 行

Public Class Status
    Public nc As Form1
    Sub New(ByVal ns As Form1)
        InitializeComponent()
        nc = ns
    End Sub
    Private Sub TextBox1_Validated(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.Validated
        
    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
        If Me.TextBox1.Text = "hello moto" Then
            nc.Visible = True
            Me.Dispose()
        End If
    End Sub

    Private Sub Status_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Disposed
        If nc.Visible = False Then
            Dim cu As New Status(nc)
            cu.Show()
        End If
    End Sub
End Class