【PB】在PB中动态调用函数

野性酷女 2022-06-16 09:43 298阅读 0赞

目前流行的大部分应用[程序][Link 1]中都提供了Undo功能，在PowerBuilder中也可以利用Undo()函数实现该功能。Undo()函数可用于DataWindow, EditMask, MultiLineEdit, RichTextEdit和SingleLineEdit 对象，如果只对某一个对象进行Undo操作，只需在Undo菜单项的单击事件中键入如下脚本：Objectname.undo()，但是当窗口中有多个对象，我们在编写脚本时并不知道要对哪个对象执行undo()操作，如何解决这一问题呢？在PowerBuilder中，undo()等函数只能用于可视对象，而所有可视对象均继承自系统对象类GraphicObject。因此我们可以定义一个GraphicObject对象的实例变量go\_object，等到运行时再用getfocus()函数确定具体操作对象。然后用Typeof()函数确定当前对象的类型，再用Choose case语句根据不同的类型引用不同的实例变量，代码如下：  
graphicobject go\_object  
DataWindow dw\_object  
EditMask em\_object  
MultiLineEdit mle\_object  
RichTextEdit rte\_object  
SingleLineEdit sle\_object  
  
go\_object=getfocus()  
choose case TypeOf(go\_object)  
    case DataWindow!  
        dw\_object=go\_object  
        dw\_object.undo()  
    case EditMask!  
        em\_object=go\_object  
        em\_object.undo()  
    case MultiLineEdit!  
        mle\_object=go\_object  
        mle\_object.undo()  
    case RichTextEdit!  
         rte\_object=go\_object  
        rte\_object.undo()  
    case SingleLineEdit!  
        sle\_object=go\_object  
        sle\_object.undo()  
    case else  
        messagebox("Error","Can not undo")  
end choose  
  
　　其实我们可以用动态调用函数的方法简单地解决这一问题(只需三行代码)，即对GraphicObject对象调用undo()函数，然后在函数名前加上关键字Dynamic。因为对象类GraphicObject并没有undo()这个对象函数，如果不加关键字Dynamic，编译时就会出现错误。使用了Dynamic关键字，PowerBuilder在编译时不检查该函数和所用参数的有效性，而到脚本运行时才去检查该函数。代码如下：  
GraphicObject go\_object  
go\_object=getfocus()  
go\_object.dynamic undo()  
  
　　允许动态调用函数是的PowerBuilder5.0的特性之一。在程序[设计][Link 2]中灵活运用动态函数调用的方法有助于提高所设计程序的可维护性、可重用性

[Link 1]: http://dev.yesky.com/
[Link 2]: http://design.yesky.com/