Foxtable(狐表)用户栏目专家坐堂 → 关于窗口文本框焦点的问题。


  共有3568人关注过本帖树形打印复制链接

主题:关于窗口文本框焦点的问题。

帅哥哟,离线,有人找我吗?
lsy
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2014/9/22 14:28:00 [显示全部帖子]

If e.KeyCode = Keys.Enter Then
    e.Cancel = True
    e.Form.Controls("TextBox4").Select
End If

 回到顶部
帅哥哟,离线,有人找我吗?
lsy
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2014/9/22 16:11:00 [显示全部帖子]

If e.KeyCode = Keys.Enter Then
    If Val(e.Sender.Text) < Val(e.Form.Controls("textbox2").Text) Then
        Messagebox.Show("交费金额不能小于违约金的金额!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        e.Cancel = True
        e.Sender.Select
    Else
        e.Cancel = True
        e.Form.Controls("TextBox3").Select
    End If
End If

 回到顶部