社区
脚本语言
帖子详情
关于cb_1 clicked的问题
wmboy0155
2004-04-15 10:51:59
各位大侠,我现在遇到了这样一个问题,我在编写命令按纽的脚本时,在Script的事件中定义了这样一行:cb_1 clicked ;在保存时,说是有错误:Sytax error
请各位指导一下,怎样解决!!!
...全文
50
19
打赏
收藏
关于cb_1 clicked的问题
各位大侠,我现在遇到了这样一个问题,我在编写命令按纽的脚本时,在Script的事件中定义了这样一行:cb_1 clicked ;在保存时,说是有错误:Sytax error 请各位指导一下,怎样解决!!!
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
19 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
sjx1972
2004-04-28
打赏
举报
回复
楼主愿意应该在其它地方调用cb_1的clicked事件吧。
如果是,楼上应该说明的够详细了;
在代码处立即触发:cb_1.TriggerEvent(clicked!)
把该事件放到消息队列的最后,可用:cb_1.post event Clicked()
如果不是,请楼主说得详细一点。
feixianzhi
2004-04-28
打赏
举报
回复
cb_1.event clicked()
jjjnedved
2004-04-28
打赏
举报
回复
学习学习
joss
2004-04-27
打赏
举报
回复
在cb_1控件的clicked event之外可写
cb_1.post event Clicked()
如果在cb_1控件的clicked中则直接写要执行的命令和脚本!不能调用自身!
如果有其他特殊的功能可自定义事件或函数来调用执行!
tianjing00
2004-04-27
打赏
举报
回复
学习经验
sky2311
2004-04-26
打赏
举报
回复
“在Script的事件中定义了这样一行:cb_1 clicked ”
你是想触发cb_1的单击事件吗?如果是 用cb_1.triggerevent(clicked!)没问题
听你的意思是再脚本中写cb_1 clicked,这样肯定就不对了,会有Sytax error的提示
如果你想建立单击事件,双击cb_1就会自动进入clicked事件(默认)里,可以写你想的代码
请你说明你想实现的目的,这样大家才能帮你
就是要定义!! cb_1 clicked ;在保存时,说是有错误:Sytax error(不用加;号)
10975037
2004-04-20
打赏
举报
回复
cb_1.TriggerEvent(Clicked!) //是在你的Script的事件调用cb_1事件
请把所有代码贴出来!可能是别的地方出错!我用PB 9 定义:cb_4 clicked 没有错误!
jackmtlee
2004-04-19
打赏
举报
回复
学习中~~~~~~~
xyzliuin
2004-04-19
打赏
举报
回复
“在Script的事件中定义了这样一行:cb_1 clicked ”
-------------------------------------------
你是想触发cb_1的单击事件吗?如果是 用cb_1.triggerevent(clicked!)没问题
-------------------------------------------
听你的意思是再脚本中写cb_1 clicked,这样肯定就不对了,会有Sytax error的提示
如果你想建立单击事件,双击cb_1就会自动进入clicked事件(默认)里,可以写你想的代码
请你说明你想实现的目的,这样大家才能帮你
fulongbiao
2004-04-19
打赏
举报
回复
认真检查语法
lzheng2001
2004-04-18
打赏
举报
回复
请把所有代码贴出来,可能是其它位置有错呀
zysys
2004-04-18
打赏
举报
回复
cb_1.postEvent(Clicked!)。
intuition444
2004-04-16
打赏
举报
回复
你是在哪个控件的哪个事件的脚本里写的?
如果存在cb_1控件,你直接在clicked事件里写不就可以了吗?何必定义一个 cb_1 clicked呢?
如果不是在cb_1的clicked事件里,你想调用这个事件的脚本的话,直接写cb_1.TriggerEvent(Clicked!)就可以了。
前提条件是 ,存在cb_1这个控件!!!
jeffjiang
2004-04-16
打赏
举报
回复
天遥的做法可以实现
guojing590
2004-04-16
打赏
举报
回复
楼上说得不错!
daijintao
2004-04-16
打赏
举报
回复
搂主表达的不清楚啊
thelazyman
2004-04-15
打赏
举报
回复
"我在编写命令按纽的脚本时,在Script的事件中定义了这样一行:cb_1 clicked "
命令按纽不会是cb_1吧!???
"cb_1 clicked "
你是想执行命令按钮的clicked事件吗?
如果是,按 天遥 做法,cb_1.TriggerEvent(Clicked!)
"不行啊,还同样的问题啊",请认真检查语法错在哪里,是不是自己写错了??
wmboy0155
2004-04-15
打赏
举报
回复
这位仁兄啊,不行啊,还同样的问题啊
blazingstar
2004-04-15
打赏
举报
回复
cb_1.TriggerEvent(Clicked!)
动态创建菜单、树
pb动态创建树和菜单 forward global type w_tv from window end type type
cb
_2 from commandbutton within w_tv end type type
cb
_1 from commandbutton within w_tv end type type sle_1 from singlelineedit within w_tv end type type st_1 from statictext within w_tv end type end forward global type w_tv from window integer width = 1381 integer height = 620 boolean titlebar = true string title = "Untitled" boolean controlmenu = true windowtype windowtype = response! long backcolor = 67108864 string icon = "AppIcon!" boolean center = true
cb
_2
cb
_2
cb
_1
cb
_1 sle_1 sle_1 st_1 st_1 end type global w_tv w_tv on w_tv.create this.
cb
_2=create
cb
_2 this.
cb
_1=create
cb
_1 this.sle_1=create sle_1 this.st_1=create st_1 this.Control[]={this.
cb
_2,& this.
cb
_1,& this.sle_1,& this.st_1} end on on w_tv.destroy destroy(this.
cb
_2) destroy(this.
cb
_1) destroy(this.sle_1) destroy(this.st_1) end on event open;String ls_Parm, ls_temp, ls_Name, ls_title ls_Parm = Trim( Message.StringParm ) ls_temp = Right( ls_Parm, 1 ) ls_Name = Left( ls_Parm, Lenw( ls_Parm ) - 2 ) IF ls_temp = 'T' THEN ls_title = '添加 ' + ls_Name + ' 的同类' END IF IF ls_temp = 'Z' THEN ls_title = '添加 ' + ls_Name + ' 的子类' END IF IF ls_temp = 'M' THEN ls_title = '修改 ' Sle_1.text = ls_Name Sle_1.SelectText( 1, Len( ls_Name ) ) END IF title = ls_title end event type
cb
_2 from commandbutton within w_tv integer x = 727 integer y = 360 integer width = 457 integer height = 128 integer taborder = 20 integer textsize = -12 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Arial" string text = "退出(&E)" boolean cancel = true end type event
cli
cke
d;CloseWithReturn( Parent, '' ) end event type
cb
_1 from commandbutton within w_tv integer x = 165 integer y = 360 integer width = 457 integer height = 128 integer taborder = 30 integer textsize = -12 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Arial" string text = "确定(&O)" boolean default = true end type event
cli
cke
d;String ls_Name ls_Name = Trim( sle_1.text ) CloseWithReturn( Parent, ls_Name ) end event type sle_1 from singlelineedit within w_tv integer x = 64 integer y = 156 integer width = 1234 integer height = 128 integer taborder = 10 integer textsize = -12 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Arial" long textcolor = 33554432 borderstyle borderstyle = stylelowered! end type type st_1 from statictext within w_tv integer x = 64 integer y = 40 integer width = 457 integer height = 72 integer textsize = -12 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Arial" long textcolor = 33554432 long backcolor = 67108864 string text = "类别名称" boolean focusrectangle = false end type
PB实现微信、支付宝、新大陆星POS支付-9.0.rar
PB新大陆星POS扫码支付源码,调用C#动态库,简单实现接口,采用POWERBUILDER9.0开发 string ls_url string ls_data string ls_dd string ls_zfqd //【交易类型--传入平台用】 if rb_1.che
cke
d = true then ls_zfqd = "WXPAY" end if if rb_2.che
cke
d = true then ls_zfqd = "ALIPAY" end if if rb_3.che
cke
d = true then ls_zfqd = "YLPAY" end if //【生成请求地址===从配置参数中维护请求地址的一部分】 ls_url = gs_pos_requesturl + "sdkBarcodePay.json" //【判断输入金额是否符合要求】 if dec(em_1.text) <= 0.00 then messagebox("系统提示【MYSOFT】","所输金额不正确!~r~n请重新输入!") em_1.setfocus() return end if //【判断商户订单号是否为空】 if sle_4.text = "" then messagebox("系统提示【MYSOFT】","订单号不能为空!") return end if //【判断是否扫描付款码】 if sle_code.text = "" then messagebox("系统提示【MYSOFT】","付款码不能为空!") sle_code.setfocus() return end if //【判断是否扫描付款码】 if len(sle_code.text) = 0 then messagebox("系统提示【MYSOFT】","请扫描服务对象付款码... ...") sle_code.setfocus() return -1 end if //【判断订单号是否为空】 if len(sle_4.text) = 0 then messagebox("系统提示【MYSOFT】","订单号不能为空!") sle_4.setfocus() return -1 end if //【初始化伪随机数发生器,让应用程序每次运用不同的伪随机数序列。】 randomize(0) //【清除is_keys[] is_value[]】 inv_wxpay.of_clear() //====================生成公共请求参数============================================================== //【操作系统:3-直连】 inv_wxpay.of_add_pos("opSys","3") //【字符集:00-GBK】 inv_wxpay.of_add_pos("characterSet","00") //【机构号,从配置参数维护】 inv_wxpay.of_add_pos("orgNo",gs_pos_orgno) //【商户号,从配置参数维护】 inv_wxpay.of_add_pos("mercId",gs_pos_mercid) //【设备号,从配置参数维护】 inv_wxpay.of_add_pos("trmNo",gs_pos_trmno) //【商户单号,不能重复,若重复则返回:数据库错误】 inv_wxpay.of_add_pos("tradeNo",sle_4.text) //【设备端交易时间:yyyymmddhhmmss】 inv_wxpay.of_add_pos("txnTime",string(now(),"yyyymmddhhmmss")) //【签名方式:MD5】 inv_wxpay.of_add_pos("signType","MD5") //【版本号:默认V1.0.0】 inv_wxpay.of_add_pos("version","V1.0.0") //==================生成商户主扫请求参数============================================================ //【实付金额:分为单位】 inv_wxpay.of_add_pos("amount",string(long(dec(em_1.text) * 100))) //【订单总金额:分为单位】 inv_wxpay.of_add_pos("total_amount",string(long(dec(em_1.text) * 100))) //【扫码支付授权码】 inv_wxpay.of_add_pos("authCode",sle_code.text) //【支付渠道:WXPAY,ALIPAY,YLPAY】 inv_wxpay.of_add_pos("payChannel",ls_zfqd) //【请求参数数据签名,并生成JSON格式数据】 mle_1.text = inv_wxpay.of_get_json() ls_data = trim(mle_1.text) mle_2.text = "" //【POST数据到平台,并接收返回数据:JSON格式】 mle_2.text = inv_wxpay.of_post_pos(ls_url,ls_data) //【返回JSON数据转换为XML数据,用于交易解析】 mle_2.text = inv_wxpay.of_json_to_xml(mle_2.text) //===================================以下判断订单交易情况============================================= if gf_xml_resolve_pos(mle_2.text,"returnCode") = "000000" and gf_xml_resolve_pos(mle_2.text,"result") = "S" then if dw_2.rowcount() = 1 then //【请求数据XML】 dw_2.object.in_xml[1] = mle_1.text //【交易金额】 dw_2.object.amount[1] = dec(em_1.text) //【交易时间】 dw_2.object.zf_date_wx[1] = gf_xml_resolve_pos(mle_2.text,"sysTime") //【订单状态--保存本地数据库】 dw_2.object.trade_state[1] = "支付成功" //【支付渠道订单号,可用于退款】 dw_2.object.dd_code[1] = gf_xml_resolve_pos(mle_2.text,"orderNo") //【付款码】 dw_2.object.fk_code[1] = sle_code.text dw_2.object.zffs[1] = 1 //【更新交易到数据库】 if dw_2.update() = 1 then commit using sqlca; dw_2.retrieve(trim(sle_4.text)) else rollback using sqlca; end if end if //【执行查单操作】
cb
_21.triggerevent(
cli
cke
d!) //【刷新本地数据】
cb
_7.triggerevent(
cli
cke
d!) return end if //========================================以下判断交易执行情况================================================== if gf_xml_resolve_pos(mle_2.text,"returnCode") = "000000" and gf_xml_resolve_pos(mle_2.text,"result") = "A" then messagebox("支付提示【MYSOFT】","状态:【A-等待授权】~n~n【特别注意】:请等候服务对象输入密码确认成功后点[确定]...~n~n还可通过【查询订单状态】检查订单支付情况!") if dw_2.rowcount() = 1 then dw_2.object.in_xml[1] = mle_1.text dw_2.object.amount[1] = dec(em_1.text) dw_2.object.dd_code[1] = "" dw_2.object.fk_code[1] = sle_code.text dw_2.object.zffs[1] = 1 dw_2.object.trade_state[1] = "订单未支付" if dw_2.update() = 1 then commit using sqlca; dw_2.retrieve(trim(sle_4.text)) else rollback using sqlca; end if end if
cb
_21.triggerevent(
cli
cke
d!)
cb
_7.triggerevent(
cli
cke
d!) return end if if gf_xml_resolve_pos(mle_2.text,"returnCode") = "000000" and gf_xml_resolve_pos(mle_2.text,"result") = "A" then messagebox("支付提示【MYSOFT】","订单等待授权~n~n支付单号:【" + gf_xml_resolve_pos(mle_2.text,"orderNo") + "】~n~n支付状态:【" + gf_xml_resolve_pos(mle_2.text,"result") + "】~n~nA-等待授权,S-交易成功,F-交易失败,Z-交易未知,D-订单已撤销!~n~n请重新支付!~n~n系统返回message:" + inv_wxpay.of_utf8togb3212(gf_xml_resolve_pos(mle_2.text,"message"))) return end if if gf_xml_resolve_pos(mle_2.text,"returnCode") = "000000" and gf_xml_resolve_pos(mle_2.text,"result") = "F" then messagebox("支付提示【MYSOFT】","订单交易失败~n~n支付单号:【" + gf_xml_resolve_pos(mle_2.text,"orderNo") + "】~n~n支付状态:【" + gf_xml_resolve_pos(mle_2.text,"result") + "】~n~nA-等待授权,S-交易成功,F-交易失败,Z-交易未知,D-订单已撤销!~n~n请重新支付!~n~n系统返回message:" + inv_wxpay.of_utf8togb3212(gf_xml_resolve_pos(mle_2.text,"message"))) return end if if gf_xml_resolve_pos(mle_1.text,"returnCode") = "000000" and gf_xml_resolve_pos(mle_1.text,"result") = "D" then
gtk gtkmm示例1 c++
gtkmm入门 使用Gtk.Builder引入glade的UI文件 #include #include #include config.h /* For testing propose use the local (not installed) ui file */ /* #define UI_FILE PACKAGE_DATA_DIR/ui/gtk_foobar.ui */ #define UI_FILE src/gtk_foobar.ui void button1_
cli
cke
d_
cb
() { std::cout << hello << std::endl; } int
MFC制作的MP3
使用MFC制作MP3打开vc6.0,建立如图所示mfc工程文件 选择基于对话框的确定 删除所有空间,建立如图所示对话框 属性如下: 播放 IDC_open; 添加 IDC_fileopen; 暂停 IDC_pause; 删除 IDC_del; 停止 IDC_stop; 退出 IDC_exit; 音乐名编辑框 IDC_filename; 音量控制滑块 IDC_SLIDER1; 音量控制编辑框 IDC_vol; 建立类向导对应如下: 在工程文件,右键,插入,bitmap位图 引入你想插入的背景图,必须是bmp格式的 进入你的dlg.cpp文件 在onpaint函数下
Python tkinter label 更新方法
网上看的两个例子关于tkinter界面更新的,简单易懂,分享一下。 例子_1: 代码_1: from tkinter import Tk, Checkbutton, Label from tkinter import StringVar, IntVar root = Tk() text = StringVar() text.set('old') status = IntVar() def change(): if status.get() == 1: # if
cli
cke
d text.set('new') else: text.set('old')
cb
= Checkbut
脚本语言
740
社区成员
8,036
社区内容
发帖
与我相关
我的任务
脚本语言
PowerBuilder 脚本语言
复制链接
扫一扫
分享
社区描述
PowerBuilder 脚本语言
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章