87 lines
2.8 KiB
VB.net
87 lines
2.8 KiB
VB.net
Public Class pwDlg
|
|
Inherits System.Windows.Forms.Form
|
|
|
|
#Region " Windows Form Designer generated code "
|
|
|
|
Public Sub New()
|
|
MyBase.New()
|
|
|
|
'This call is required by the Windows Form Designer.
|
|
InitializeComponent()
|
|
|
|
'Add any initialization after the InitializeComponent() call
|
|
|
|
End Sub
|
|
|
|
'Form overrides dispose to clean up the component list.
|
|
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
|
|
If disposing Then
|
|
If Not (components Is Nothing) Then
|
|
components.Dispose()
|
|
End If
|
|
End If
|
|
MyBase.Dispose(disposing)
|
|
End Sub
|
|
|
|
'Required by the Windows Form Designer
|
|
Private components As System.ComponentModel.IContainer
|
|
|
|
'NOTE: The following procedure is required by the Windows Form Designer
|
|
'It can be modified using the Windows Form Designer.
|
|
'Do not modify it using the code editor.
|
|
Friend WithEvents Label1 As System.Windows.Forms.Label
|
|
Friend WithEvents txtPW As System.Windows.Forms.TextBox
|
|
Friend WithEvents btnOK As System.Windows.Forms.Button
|
|
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
|
Me.Label1 = New System.Windows.Forms.Label
|
|
Me.txtPW = New System.Windows.Forms.TextBox
|
|
Me.btnOK = New System.Windows.Forms.Button
|
|
Me.SuspendLayout()
|
|
'
|
|
'Label1
|
|
'
|
|
Me.Label1.Location = New System.Drawing.Point(16, 24)
|
|
Me.Label1.Name = "Label1"
|
|
Me.Label1.Size = New System.Drawing.Size(64, 16)
|
|
Me.Label1.TabIndex = 0
|
|
Me.Label1.Text = "Password:"
|
|
'
|
|
'txtPW
|
|
'
|
|
Me.txtPW.Location = New System.Drawing.Point(72, 24)
|
|
Me.txtPW.Name = "txtPW"
|
|
Me.txtPW.PasswordChar = Microsoft.VisualBasic.ChrW(42)
|
|
Me.txtPW.Size = New System.Drawing.Size(160, 20)
|
|
Me.txtPW.TabIndex = 1
|
|
Me.txtPW.Text = ""
|
|
'
|
|
'btnOK
|
|
'
|
|
Me.btnOK.Location = New System.Drawing.Point(192, 56)
|
|
Me.btnOK.Name = "btnOK"
|
|
Me.btnOK.Size = New System.Drawing.Size(40, 24)
|
|
Me.btnOK.TabIndex = 2
|
|
Me.btnOK.Text = "OK"
|
|
'
|
|
'pwDlg
|
|
'
|
|
Me.AcceptButton = Me.btnOK
|
|
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
|
Me.ClientSize = New System.Drawing.Size(242, 88)
|
|
Me.Controls.Add(Me.btnOK)
|
|
Me.Controls.Add(Me.txtPW)
|
|
Me.Controls.Add(Me.Label1)
|
|
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow
|
|
Me.Name = "pwDlg"
|
|
Me.Text = "Enter Password"
|
|
Me.ResumeLayout(False)
|
|
|
|
End Sub
|
|
|
|
#End Region
|
|
Public pw As String
|
|
Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
|
|
pw = Me.txtPW.Text
|
|
Me.Hide()
|
|
End Sub
|
|
End Class
|