1,077
社区成员
发帖
与我相关
我的任务
分享PB中按钮控件的按回车这个事件在哪里可以找到啊？
为什么当焦点在确定键的时候，按回车却没反应，一定要用鼠标点才行，非常不方便。
是不是要定义一个事件的啊？有现成的吗，还是需要自定义啊？谢谢了！！！
是不是要定义一个事件的啊？有现成的吗，还是需要自定义啊？谢谢了！！！
...全文
请发表友善的回复…
发表回复
libra801016 2004-11-15
- 打赏
- 举报
谢谢！这个问题解决的非常顺利！
tcchong 2004-11-13
- 打赏
- 举报
在sle_1中录入文本后，按回车出发cb_1的clicked事件，可以实现这个目的
步骤：
1、进入sle_1的script界面，在declare菜单中选择user events。
2、在events-sle_1的窗口中，添加eventname: ue_keydown eventid: pbm_keydown
3、然后回到sle_1的script界面，在select events下拉框中选择刚才建立的用户事件ue_keydown
4、添加代码：if key = keyenter! then
cb_1.triggerevent(clicked!)
end if
完毕
步骤：
1、进入sle_1的script界面，在declare菜单中选择user events。
2、在events-sle_1的窗口中，添加eventname: ue_keydown eventid: pbm_keydown
3、然后回到sle_1的script界面，在select events下拉框中选择刚才建立的用户事件ue_keydown
4、添加代码：if key = keyenter! then
cb_1.triggerevent(clicked!)
end if
完毕
兔子-顾问 2004-11-13
- 打赏
- 举报
pbm_keydown，自定义这个事件就号了
青锋-SS 2004-11-13
- 打赏
- 举报
在窗口中自定义事件,ID:pbm_keydwon,用KeyDown(KeyEnter!)判断,若焦点在"确定"按钮上,就触发按钮的Click事件.
我自逍遥01 2004-11-13
- 打赏
- 举报
ding
planks 2004-11-13
- 打赏
- 举报
例:按钮为cb_1
定义CB_1的自定义事件.ue_keydown,并选择id:pbm_dwnkey可id:pbm_keydown
然后在该ue_keydown事件中输入代码
if keydown(keyenter!) then this.triggerevent(clicked!)
定义CB_1的自定义事件.ue_keydown,并选择id:pbm_dwnkey可id:pbm_keydown
然后在该ue_keydown事件中输入代码
if keydown(keyenter!) then this.triggerevent(clicked!)
wwwafa9 2004-11-12
- 打赏
- 举报
设置它的Default属性为True。
aichangfeng 2004-11-12
- 打赏
- 举报
自定义ue_enter,事件id:pbm_dwnprocessenter
//************************************************
//事件名称: ue_enter
将当前数 写入缓冲区
If This.AcceptText() = -1 Then Return 1
// 判断Current Colum是否为当前行最後column
//If This.GetColumn() = long(This.Object.DataWindow.Column.Count) Then
// IF (is_mode = "newrow" or is_mode = 'modifyrow') and getrow() = rowcount() Then
// This.TriggerEvent("ue_save")
// IF ib_save = False Then Return 1 //存档失败...
// IF messagebox("讯息","存档成功，是否继~续新增?",Question!,YesNo!,1) = 1 then
// This.TriggerEvent("ue_newrow")
// END IF
// End If
//ELSE
// // Enter键取代Tab键
Send( Handle(This), 256, 9, long(0,0) )
//End If
RETURN 1
//************************************************
//事件名称: ue_enter
将当前数 写入缓冲区
If This.AcceptText() = -1 Then Return 1
// 判断Current Colum是否为当前行最後column
//If This.GetColumn() = long(This.Object.DataWindow.Column.Count) Then
// IF (is_mode = "newrow" or is_mode = 'modifyrow') and getrow() = rowcount() Then
// This.TriggerEvent("ue_save")
// IF ib_save = False Then Return 1 //存档失败...
// IF messagebox("讯息","存档成功，是否继~续新增?",Question!,YesNo!,1) = 1 then
// This.TriggerEvent("ue_newrow")
// END IF
// End If
//ELSE
// // Enter键取代Tab键
Send( Handle(This), 256, 9, long(0,0) )
//End If
RETURN 1
qyqtn 2004-11-12
- 打赏
- 举报
cb_1.PostEvent(clicked!)
li_d_s 2004-11-12
- 打赏
- 举报
自定义key,事件id:pbm_keydown
libra801016 2004-11-12
- 打赏
- 举报
default属性为true确实可以在按enter后实现clicked的功能，不过如果有多项数据要输入的话就不行了呀，因为我按一次enter 它就当我按了一次那个按钮呀。。。
老板卤两个蛋蛋 2004-11-12
- 打赏
- 举报
焦点在孔件上按空格键也行 这是默认的，不用设置
pan_fenf 2004-11-12
- 打赏
- 举报
pbm_keydown
中
