摘要：Environment envInteger li_ScreenWidth, li_ScreenHeight //屏幕宽度和高度getEnvironment(env)li_ScreenWidth = PixelsToUnits(env.ScreenWidth, XPixelsToUnits!)li_ScreenHeight = PixelsToUnits(env.ScreenHeight, XPixelsToUnits!) 阅读全文

摘要：实现功能：当用户单击单行编辑框时，选中编辑框内的所有字符，以便用户"替换录入"。实现方法：不能在getfocus()中直接写入代码，需执行以下步骤： ①选择(new Event),创建单行编辑框的自定义单击事件ue_clicked() ，Event ID 为pbm_bnclicked，脚本代码为： this.selecttext( 1, len( this.text ) ) ②getfocus事件的代码为： This.Post Event ue_clicked() 阅读全文

摘要：需求分析：关闭窗口时，如果用户更改了数据窗口中的值，但用户忘了保存，则会丢失用户所做的工作，这时可在关闭时检测用户是否有更改dataWindow中的值，若有更改，在关闭窗口时弹出询问窗口是否保存。可以在窗口的CloseQuery事件中添加如下代码：integer int_returncode//将“漂浮”在数据窗口控件上编辑框的内容放入到数据窗口控件的当前项中(主缓冲区)dw_1.accepttext()if dw_1.deletedcount() + dw_1.modifiedcount() > 0 then int_returncode = messagebox("提示&q 阅读全文