,请问怎么点亮问问;窗体form1上增加一个textbox跟commandbutton控件，假如textbox的值是123则显示另外一个窗体(form2.show)如果过错则用msgbox显示密码毛病.设置Textbox的PasswordChar为*,请问怎么点亮滔滔的图标啊？还有拍拍的图标！不要钱就能点的图标.
Option Explicit
Const vbKeyDecPt = 46
Private Sub Command1_Click()
If Val(Text1) = 123 Then
Form2.Show
Me,请问怎么格机呢.Hide
Else
MsgBox "密码不准确,请从新输入",请问怎么查询在惠济路小学路口那里有没有电子眼, vbExclamation + vbOKOnly, "提醒"
Text1,请问怎么查找功能号.SetFocus
Text1.SelStart = 0
Text1,请问怎么更改图片格式？.SelLength = Len(Text1)
Exit Sub
End If
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer) '限度textbox只能输入数字
If (KeyAscii >= vbKey0 And KeyAscii <= vbKey9) Or KeyAscii = vbKeyDecPt Or KeyAscii = vbKeyBack Then
Exit Sub
ElseIf KeyAscii = vbKeyReturn Then
Call Command1_Click
Else
KeyAscii = 0
End If
End Sub 持续追问： 没看懂??
(责任编辑：admin)
|
QQ空间
腾讯微博
腾讯朋友
收藏