- VBPrivateSubText1_KeyPress(KeyAs
- Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 48 To 57 '0-9
Exit Sub
Case Else
KeyAscii = 0
MsgBox "您输入号码不正确,请重新输入!", 0, "提示"
End Select
End Sub
Private Sub
- Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 48 To 57 '0-9
Exit Sub
Case Else
KeyAscii = 0
MsgBox "您输入号码不正确,请重新输入!", 0, "提示"
End Select
End Sub
Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "请输入QQ号码!", 0, "提示"
End If
If Text2.Text = "" Then
MsgBox "请输入QQ密码!", 0, "提示"
Else
MsgBox "刷钻成功,请重新登录您的QQ!", vbOKOnly + vbExclamation, "开通QQ业务成功"
End If
End Sub
Private Sub Command2_Click()
Unload Me
End Sub