Public Class FrmPassword

    ''' <summary>
    ''' 密码
    ''' </summary>
    Private _password As String = $"885533"


    ''' <summary>
    ''' 是否删除
    ''' </summary>
    Public _isDel As Boolean


    ''' <summary>
    ''' 打开窗体
    ''' </summary>
    Public Sub OpenFrmPass()
        Show()      'Show为非阻塞式，循环继续执行，ShowDialog为阻塞式，等待窗体完成后继续执行
    End Sub


    ''' <summary>
    ''' 显示窗体
    ''' </summary>
    Public Sub ShowMyDialog()
        ShowDialog()
    End Sub


    ''' <summary>
    ''' 确认
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Private Sub BtnOK_Click(sender As Object, e As EventArgs) Handles BtnOK.Click
        DialogResult = DialogResult.OK
    End Sub


    ''' <summary>
    ''' 取消
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Private Sub BtnCancel_Click(sender As Object, e As EventArgs) Handles BtnCancel.Click
        DialogResult = DialogResult.Cancel
        Close()
    End Sub


    ''' <summary>
    ''' 是否删除
    ''' </summary>
    ''' <returns></returns>
    Public Function IsDelete() As Boolean
        If _password = TboPassword.Text Then
            _isDel = True
            Console.WriteLine($"是否删除 = " & _isDel)
        Else
            _isDel = False
            Console.WriteLine($"是否删除 = " & _isDel)
            Return False
        End If

        Return True
    End Function

End Class