扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条
作者:51cto.com整理 来源:51cto.com 2007年9月15日
关键字: PowerBuilder 编程 软件
一、用Enter键实现物件的焦点切换
在PowerBuilder中已定义许多事件所对应的MessageID,而在其所提供的元件, 大部分有对应的keydown事件,其ID值不一定相同,例如在datawindow->pbm_dwnkey, singlelineedit->pbm_keydown,其他参考使用手册。因此先对使用的元件新增key 的使用者事件,当user在元件上按任何按键时,将会触发此keydown事件。
你将获得所传的参数key(按键代码)、keyflags(复合键代码),当所按的是Enter时,你就把焦点切换到下一元件或下一栏位。
1.选择要处理的datawindowcontrol,然後选择menu的declare的userevents, 此时会显示一个使用者事件box;
2.于eventname设定使用者事件名称例如:ue_checkkey,然后在eventID填入pbm_dwnkey(或从Pasteevent选择),然后按OK;
3.你可在datawindowcontrols的script中selectevent里发现多了一个使用者事件 ue_checkkey,并且此事件会传递2个参数keycodekey,unsignedlongkeyflags;
4.在script中可以如下填写:
choose case key
case KeyTab!//响应按Tab键
//writeyourcode
case KeyEnter!//响应按Enter键
//writeyourcode
case KeyEscape!//响应按Esc键
//writeyourcode
end choose
注意:(1)keycode是Enumeratedatatype,可在onlinehelp或browers中获得其属性;
(2)你可以设定returnvalue:0或1。
如果是在DataWindow上,可参考以下的方式:
在DataWindow宣告一userevent:
(1)如ue_enter,将EventID参考至pbm_dwnprocessenter;
(2)在ue_enter加入以下的程式码
send(handle(this),256,9,long(0,0))
return
二、在MDI视窗内加入其他Controls,并使其在sheets视窗中正确显示
把MDIWindow的ClientArea打开(Resize)。ClientArea可视为一种Control,PB将它的名字内定为MDI_1。
//Example//m1,m2,r1,r2areallinteger.
//movetheclientareatobeginat(m1,m2).mdi_1.Move(WorkspaceX()+m1,WorkspaceY()+m2)
//Resizetheclientareabasedonthevalue(r1,r2)yougived.mdi_1.Resize(r1,r2)
需要注意的是ClientArea打开後,区域内的Control会被盖掉。
三、PowerBuilder与CommPort的连接
1.使用可以控制CommPort的OCX,例如MicrosoftCommunicationsControl或pdqComm。
2.InitiatetheOCX。
//Script如下,ole_1为OCXName
ole_1.object.CommPort=2
ole_1.object.Settings=“9600,N,8,1”
ole_1.object.PortOpen=true
ole_1.object.InputLen=0
3.GetData or PutData。
//GetData
ole_1.object.input()
//PutData
ole_1.object.output=‘ATDT4125678’+char(13)
四、在 grid中实现列标题覆盖多列
选中某列的标题title,点右键,选properties\position\layer,选中foreground。这时你可以改变标题的大小。同时禁止用户在运行程序时移动列的权利,在脚本中写入:dw_1.Modify(“DataWindow.Grid.ColumnMove=No”)
婵犵數濮烽。浠嬪焵椤掆偓閸熷潡鍩€椤掆偓缂嶅﹪骞冨Ο璇茬窞闁归偊鍓涢悾娲⒑闂堟单鍫ュ疾濠婂嫭鍙忔繝濠傜墛閸嬨劍銇勯弽銊с€掗柟钘夊暣閺岀喖鎮滈埡鍌涚彋閻庤娲樺畝绋跨暦閸洖鐓涢柛灞剧矋濞堟悂姊绘担绛嬪殐闁搞劋鍗冲畷銏ゅ冀椤愩儱小闂佹寧绋戠€氼參宕伴崱妯镐簻闁靛牆鎳庢慨顒€鈹戦埥鍡椾簼婵犮垺锚铻炴俊銈呮噺閸嬪倹绻涢崱妯诲碍閻庢艾顦甸弻宥堫檨闁告挾鍠庨锝夘敆娓氬﹦鐭楁繛鎾村焹閸嬫捇鏌e☉娆愬磳闁哄本绋戦埞鎴﹀川椤曞懏鈻婄紓鍌欑劍椤ㄥ懘鎯岄崒鐐靛祦閹兼番鍔岄悞鍨亜閹烘垵顏╅悗姘槹閵囧嫰寮介妸褎鍣ョ紓浣筋嚙濡繈寮婚悢纰辨晣鐟滃秹鎮橀懠顒傜<閺夊牄鍔庣粻鐐烘煛鐏炶姤鍠橀柡浣瑰姍瀹曠喖顢橀悩铏钒闂備浇宕垫慨鎶芥⒔瀹ュ鍨傞柦妯猴級閿濆绀嬫い鏍ㄧ☉濞堟粓姊虹涵鍛【妞ゎ偅娲熼崺鈧い鎺嗗亾闁挎洩濡囧Σ鎰板籍閸繄顓洪梺缁樺姇瀵剙螖閸涱喚鍘搁梺鍓插亽閸嬪嫰鎮橀敃鍌涚厱閻庯綆鍋嗘晶顒傜磼閸屾稑绗ч柟鐟板閹煎湱鎲撮崟闈涙櫏闂傚倷绀侀幖顐も偓姘卞厴瀹曞綊鏌嗗鍛紱閻庡箍鍎遍ˇ浼村磿瀹ュ鐓曢柡鍥ュ妼婢ь垰霉閻樿秮顏堟箒闂佹寧绻傚Λ妤呭煝閺囥垺鐓冪憸婊堝礈濮樿泛钃熼柕濞у嫷鍋ㄩ梺缁樺姇椤曨參鍩㈤弴銏″€甸柨婵嗗€瑰▍鍥ㄣ亜韫囨稐鎲鹃柡灞炬礋瀹曢亶顢橀悢濂変紦
现场直击|2021世界人工智能大会
直击5G创新地带,就在2021MWC上海
5G已至 转型当时——服务提供商如何把握转型的绝佳时机
寻找自己的Flag
华为开发者大会2020(Cloud)- 科技行者