Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
NameBox.Focus()
End Sub
Public frm2 As New Form2
Private Sub ExitButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitButton.Click
Me.Close()
End Sub
Private Sub NameBox_KeyPress1(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles NameBox.KeyPress
If Asc(e.KeyChar) >= 47 And Asc(e.KeyChar) <= 57 Then
e.Handled = True
End If
End Sub
Private Sub PassBox_KeyPress1(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles PassBox.KeyPress
If Asc(e.KeyChar) < 48 Or Asc(e.KeyChar) > 57 Then
e.Handled = True
End If
End Sub
Private Sub LoginButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LoginButton.Click
frm2.NameLabel.Text = NameBox.Text
Me.Hide()
Form2.Show()
End Sub
End Class作者: haohao123 时间: 2010-4-9 11:58 AM
南院电脑系?
哈哈~作者: 宅男-兜着走 时间: 2010-4-9 05:14 PM 回复 2#haohao123
??有什么好笑的??作者: goodday 时间: 2010-4-11 04:36 PM
Public Class Form1