70 lines
1.5 KiB
VB.net
70 lines
1.5 KiB
VB.net
|
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
|