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
|