vb中如何延长text1. setfocus后的输入时间

VB两个setfocus怎么样设置延时

用 Sleep n ，n=毫秒

在线求答案~~关于VB程序的时间添加问题

这样会出现文本变化的死循环吧 建议在timer里检测温度然后输入到text1中 Private Sub Timer1_Timer() Text1.Text = Text1.Text & "T=" & tmp & " " & Now() & vbCrLf End Sub Private Sub Text1_Change() Text1.SelStart = Len(Text1.Text) Text1.SetFocus End Sub

VB登陆界面，text1和text2还有Command1，我想输入三次密码错误后，他就提示休息三分钟并且停止操作三分钟

Static Try_Times As Integer '//设置静态变量，存储不成功的登录次数 If Text1(0).Text = "" Then MsgBox "用户名不能为空！", vbOKOnly + vbInformation, "友情提示" Text1(0).SetFocus Exit Sub End If If Text1(1).Text = "" Then MsgBox "密码不能为空！", vbOKOnly + vbInformation, "友情提示" Text1(1).SetFocus Exit Sub End If Dim strSQl As String strSQ

问一个VB方面的问题，高人解答！

Private Sub Form_Load() Dim user Dim pass user = InputBox("请输入用户名", "用户登录") If user <> "111" Then MsgBox "用户名不正确，你不是合法的用户，程序退出！", vbCritical + vbOKOnly, "错误": End pass = InputBox("请输入密码", "用户登录") If pass <> "111" Then MsgBox "密码不正确，你不是合法的用户，程序退出！", vbCritical + vbOKOnly, "错误": End MsgBox "恭喜，登录成功了！"

用vb执行一个指令

Private Sub Command1_Click() If Text1.Text = CStr(Val(Text1.Text)) Then If Val(Text1.Text) < 0 Or Val(Text1.Text) > 100 Then MsgBox "无效数据" Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) End If Else If Val(Text1.Text) < 1 Or Val(Text1.Text) > 100 Then MsgBox "无效数据" Text1.SetFocus

标签：编程 vb 信息技术 三分钟 登陆界面