、用Enter键实现物件
焦点切换 在PowerBuilder中已定义许多事件所对应
MessageID,而在其所提供元件, 大部分有对应
keydown事件,其ID值不定相同,例如在datawindow－>pbm_dwnkey, singlelineedit－>pbm_keydown,其他参考使用手册
因此先对使用元件新增key 使用者事件,当user在元件上按任何按键时,将会触发此keydown事件 你将获得所传
参数key(按键代码)、keyflags(复合键代码),当所按 是Enter时,你就把焦点切换到下
元件或下栏位 1.选择要处理
datawindowcontrol
然後选择menudeclareuserevents, 此时会显示
个使用者事件box； 2.于eventname设定使用者事件名称例如:ue_checkkey,然后在eventID填入
pbm_dwnkey(或从Pasteevent选择),然后按OK；
3.你可在datawindowcontrols
script中selectevent里发现多了个使用者 事件 ue_checkkey,并且此事件会传递2个参数keycodekey,unsignedlongkeyflags；
4.在script中可以如下填写:
choose
key KeyTab!//响应按Tab键 //writeyourcode
KeyEnter!／／响应按Enter键 ／／writeyourcode
KeyEscape!／／响应按Esc键 ／／writeyourcode
end choose
注意:(1)keycode是Enumeratedatatype
可在onlinehelp或browers中获得其属性； (2)你可以设定
value:0或1 如果是在DataWindow上,可参考以下
方式: 在DataWindow宣告
userevent: (1)如ue_enter,将EventID参考至pbm_dwnprocessenter；
(2)在ue_enter加入以下
程式码 send(handle(this),256,9,long(0,0))
2、在MDI视窗内加入其他Controls
并使其在sheets视窗中正确显示 把MDIWindow
ClientArea打开(Resize)ClientArea可视为种ControlPB将 它
名字内定为MDI_1 //Example／／m1,m2,r1,r2areall
eger. //movetheclientareatobeginat(m1,m2).mdi_1.Move(WorkspaceX
＋m1,WorkspaceY＋m2) //Resizetheclientareabasedonthevalue(r1,r2)yougived.mdi_1.Resize(r1,r2)
需要注意
是ClientArea打开後区域内Control会被盖掉 3、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)
4、在 grid中实现列标题覆盖多列
选中某列
标题title点右键选properties\position\layer 选中foreground
这时你可以改变标题大小同时禁止用户在运行
时移动列权利 在脚本中写入:dw_1.Mod
y(“DataWindow.Grid.ColumnMove=No”)
最新评论