关于窗口文本框焦点的问题。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有3221人关注过本帖树形打印复制链接主题：关于窗口文本框焦点的问题。

Bin

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/9/22 15:35:00 [只看该作者]

If Val(e.Sender.Text) < Val(e.Form.Controls("textbox6").Text) Then

coolbhb

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：60 积分：490 威望：0 精华：0 注册：2014/7/11 9:16:00

Post By：2014/9/22 15:37:00 [只看该作者]

下面代码没有效果，不知为何，另外想实现的就是如果比较结果前者比后者小的话就弹出对话框并且不能离开控件。

If e.Sender.text < e.Form.Controls("textbox6").text Then

Messagebox.Show("交费金额不能小于违约金的金额!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

End If

有点甜

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/9/22 15:42:00 [只看该作者]

那看11楼。

coolbhb

小大 14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：60 积分：490 威望：0 精华：0 注册：2014/7/11 9:16:00

Post By：2014/9/22 15:55:00 [只看该作者]

今天最后一个问题。下面有两个代码写在同一个文本框，一个是写在Validating，另一个是写在KeyDown 中，现在的问题是，在Validating中弹出窗口要弹出两次，这个怎么解决（按回车的时候）？

validating中的代码

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

keydown中的代码

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

[此贴子已经被作者于2014-9-22 15:56:35编辑过]

Bin

小大 15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/9/22 15:56:00 [只看该作者]

代码一起写到KeyDown里面去

lsy

小大 16楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

下一主题 >> << 上一主题

总数 16 上一页 1 2

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