荔园在线

荔园之美,在春之萌芽,在夏之绽放,在秋之收获,在冬之沉淀

[回到开始] [上一篇][下一篇]


发信人: lvyou (让我生命再等候), 信区: Database
标  题: PowerBuilder编程技巧四则.
发信站: 荔园晨风BBS站 (Mon Jul  2 19:10:04 2001), 转信

  一、用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”)


--
                          欢迎访问我的网站:

                          http://192.168.28.29

※ 来源:·荔园晨风BBS站 bbs.szu.edu.cn·[FROM: 192.168.28.29]


[回到开始] [上一篇][下一篇]

荔园在线首页 友情链接:深圳大学 深大招生 荔园晨风BBS S-Term软件 网络书店