初始化

RCU-10/RCU/FrmPassword.vb

@@ -0,0 +1,69 @@
+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