第14章用户定义的对象.pptVIP

PowerBuilder实用教程;第14章 使用用户对象 ;教学目标;教学重点;教学过程;第14章 用户自定义对象;第14章 用户自定义对象;14.1可视用户对象;; 选择new|object|standard visual，单击ok按钮，在弹出的标题为“select stand visual type”的窗口，选择所要的对象类型，这里选commandbutton来定制一个命令按钮用户对象。在用户对象画板中设计commandbutton的属性、时间、函数。 这个例子中，我们给该用户对象定义一个用户事件以响应用户的回车键操作。用户事件名为“ue_enter”，事件号选“pbm_keydown”，在该事件中输入如下代码： if keydown(keyenter!) then this.triggerevent(clicked!) End if 保存改用户对象名为u_commandbutton。;使用可视用户对象;14.3用户对象使用编程实例; 2)创建标准可视用户对象、，它从datawindow数据窗口继承而来。为之增加两个自定义事件。 ①自定义事件ue_keyenter,事件号pbm_dwnprocessenter。该事件功能是按回车键可以跳到下一个输入项。在最后一行的最后一列按回车键，将增加一个空行。 代码如下： int col, colnum long row colnum=integer(this.Object.DataWindow.Column.Count)//求数窗的列数 col=getcolumn()//求当前列 row=getrow()//求当前行 if colcolnum then //当前列不是最后一列 setcolumn(col+1)//将下一列变为当前列 else if rowrowcount() then//当前列是最后一列，但当前行不是最后一行 setrow(row+1)//将下一行的第一列变为当前列 scrolltorow(row+1) setcolumn(1) else//当前列是最后一列且当前行是最后一行 row=insertrow(0)//增加一行 setrow(row)//将新行的第一列变为当前列 scrolltorow(row) setcolumn(1) end if end if return 1//放弃原来的操作; ②用户事件ue-keyarrow，事件号为pbm_dwntabdownout，该事件的主要功能：在最后一行按向下的箭头键时，增加一个空行。代码如下： long row row=insertrow(0) setrow(row) scrolltorow(row);创建定制可视用户对象; 例如，我们创建一个定制可视用户对象，用来操作数据窗口中的数据。如下图窗口中右边的控件组合就是自定义定制可视用户对象。; 外部可视用户对象包含一个来自外部的动态链接库(DLL)的可视控件，也可以像窗口??其他控件一样使用。是使用PowerBuilder以外的工具创建的对象，实际上就是在pb中使用第三方控件。使用外部控件通常是为了完成pb本身难以完成的功能。 选择new|object|external visual，单击ok按钮，将打开外部可视用户对象画板（如下所示）。在图中，在libraryname中输入外部用户对象所在的dll文件名，或者单击browse按钮选择dll文件；在class name编辑框中键入dll中的注册类名；在text编辑框中输入显示在控件上的文本；根据需要设置其他属性；说明用户对象所需要的函数、事件、变量、结构；编写用户对象的各种事件处理程序；最后保存用户对象。;14.2类用户对象;;2.使用类用户对象; 定制类用户对象是用户自己设计的对象，用于封装不需要可视特性的处理过程。这些对象不继承某个对象或控件，完全由用户通过定义势力变量、函数、事件来实现。定制类用户对象只有两个系统预定义事件：constructor和destructor。其创建过程和使用方法完全类似于标准类用户对象。 删除用户对象，可在library工作区实现。