Welcome Guest [Log In] [Register]
Welcome to VITINHTHANHSON. We hope you enjoy your visit.


You're currently viewing our forum as a guest. This means you are limited to certain areas of the board and there are some features you can't use. If you join our community, you'll be able to access member-only sections, and use many member-only features such as customizing your profile, sending personal messages, and voting in polls. Registration is simple, fast, and completely free.


Join our community!


If you're already a member please log in to your account to access all of our features:

Username:   Password:
Add Reply
Viết cho sự kiện bàn Phím
Topic Started: Jul 10 2006, 11:24 PM (375 Views)
Dinhvanquanglk
Member Avatar
Tổng thư ký
Administration
Private Sub txtAge_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
KeyAscii = 0 ' Swallow Key Enter to avoid side effect
' Make sure the Name field is not blank
If txtName.Text = "" Then
MsgBox "Please enter Name"
Exit Sub ' Terminate this Sub
End If
' Make sure a number is supplied for Age
If Not IsNumeric(txtAge.Text) Then
MsgBox "Please enter a number for Age"
Exit Sub ' Terminate this Sub
End If
End If
End Sub

Posted Image

[size=5]Nhà 0 số-Mố Cầu Long Biên-Long Biên-Hà Nội[/size]
Offline Profile Quote Post Goto Top
 
1 user reading this topic (1 Guest and 0 Anonymous)
« Previous Topic · Visual Basic · Next Topic »
Add Reply