76 lines
2.0 KiB
VB.net
76 lines
2.0 KiB
VB.net
Public Class PasswordDialog
|
|
Inherits Form
|
|
|
|
Private lblPrompt As Label
|
|
Private txtPassword As TextBox
|
|
Private btnOK As Button
|
|
Private btnCancel As Button
|
|
|
|
Public ReadOnly Property PasswordText As String
|
|
Get
|
|
Return txtPassword.Text
|
|
End Get
|
|
End Property
|
|
|
|
Public Sub New(prompt As String, title As String)
|
|
Me.Text = title
|
|
Me.FormBorderStyle = FormBorderStyle.FixedDialog
|
|
Me.StartPosition = FormStartPosition.CenterParent
|
|
Me.MaximizeBox = False
|
|
Me.MinimizeBox = False
|
|
Me.Width = 300
|
|
Me.Height = 150
|
|
|
|
lblPrompt = New Label() With {
|
|
.Text = prompt,
|
|
.AutoSize = True,
|
|
.Left = 10,
|
|
.Top = 10
|
|
}
|
|
Me.Controls.Add(lblPrompt)
|
|
|
|
txtPassword = New TextBox() With {
|
|
.Left = 10,
|
|
.Top = lblPrompt.Bottom + 10,
|
|
.Width = 260,
|
|
.UseSystemPasswordChar = True ' 关键：开启星号掩码
|
|
}
|
|
Me.Controls.Add(txtPassword)
|
|
|
|
btnOK = New Button() With {
|
|
.Text = "确定",
|
|
.DialogResult = DialogResult.OK,
|
|
.Left = 110,
|
|
.Top = txtPassword.Bottom + 15,
|
|
.Width = 75
|
|
}
|
|
Me.Controls.Add(btnOK)
|
|
|
|
btnCancel = New Button() With {
|
|
.Text = "取消",
|
|
.DialogResult = DialogResult.Cancel,
|
|
.Left = btnOK.Right + 10,
|
|
.Top = txtPassword.Bottom + 15,
|
|
.Width = 75
|
|
}
|
|
Me.Controls.Add(btnCancel)
|
|
|
|
Me.AcceptButton = btnOK
|
|
Me.CancelButton = btnCancel
|
|
End Sub
|
|
|
|
Private Sub InitializeComponent()
|
|
Me.SuspendLayout()
|
|
'
|
|
'PasswordDialog
|
|
'
|
|
Me.ClientSize = New System.Drawing.Size(168, 25)
|
|
Me.Name = "PasswordDialog"
|
|
Me.ResumeLayout(False)
|
|
|
|
End Sub
|
|
|
|
Private Sub PasswordDialog_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
|
|
End Sub
|
|
End Class |