Imports System.Windows.Forms
Public Class CreateNameDialog
Public ReadOnly Property CreatedName() As String
Get
Return txtName.Text
End Get
End Property
Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
Me.DialogResult = System.Windows.Forms.DialogResult.OK
Me.Close()
End Sub
Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.Close()
End Sub
Private Sub CreateNameDialog_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
txtName.Focus()
End Sub
Private Sub txtName_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtName.KeyDown
If Not (Char.IsDigit(Chr(e.KeyValue)) Or Char.IsLetter(Chr(e.KeyValue)) Or e.KeyCode = Keys.Back) Then
e.SuppressKeyPress = True
e.Handled = True
Else
If (e.Alt Or e.Control Or e.Shift) Then
e.SuppressKeyPress = True
e.Handled = True
End If
End If
End Sub
End Class
