如何将对象作为参数传递给 powerbuilder 中的函数

Question

我正在使用 powerbuilder 9 .0.1 Build 7171 我想写一个通用的 函数来处理对象属性，如字体名称。我想改变字体 对象按钮，列表框的想法是我将传递 窗口名称或窗口句柄和函数将获取控制列表，如果 control.type 是列表框或按钮或图片按钮，它会更改其字体。

我不想为每个窗口都编写窗口函数，有吗 我可以操纵 Windows 的属性

FOR n = 1 到 UpperBound(Control[]) IF Control[n].TypeOf() = CommandButton！或 Control[n].TypeOf() = PictureButton!THEN set_button_name(this.Control[n]) 结束如果 下一步

在这种情况下，我必须在每个窗口的打开事件中硬编码此代码 使用 function() 来调用它

Answer 1

因此，您确实遇到了两个问题：

1. 如何获取控件列表（您不会问，但根据代码片段，您会这样做）
2. 如何从 WindowObject 开始并更改与后代关联的属性

控件列表

您已经获得了对窗口的 Control 数组的隐式引用，这是一个很好的第一步，但可能会忽略选项卡和用户对象等对象中的嵌入式 Control 数组。像下面这样的函数（警告：未经测试，仅用于说明）将递归所有控件，并处理选项卡中的选项卡等情况。

function of_getcontrols (windowobject awo_input[], ref windowobject awo_output[]) returns integer

long ll_Input, ll_InputCount, ll_OutputCount, ll_Sub, ll_SubCount
window lw_Control
userobject luo_UserObject
tab ltb_Tab
windowobject lwo_Empty[], lwo_Sub[]

awo_Output = lwo_Empty

ll_InputCount = UpperBound (awo_Input)
FOR ll_Input = 1 TO ll_InputCount
    ll_OutputCount ++
    awo_Output[ll_OutputCount] = awo_Input[ll_Input]

    // look for nested control arrays
    CHOOSE CASE awo_Input[ll_Input].TypeOf()
        CASE UserObject!
            luo_UserObject = awo_Input[ll_Input]
            ll_SubCount = of_GetControls (luo_UserObject.Control, lwo_Sub)
            FOR ll_Sub = 1 TO ll_SubCount
                ll_OutputCount ++
                awo_Output[ll_OutputCount] = lwo_Sub[ll_Sub]
            NEXT

        CASE Tab!
            ltb_Tab = awo_Input[ll_Input]
            ll_SubCount = of_GetControls (ltb_Tab.Control, lwo_Sub)
            FOR ll_Sub = 1 TO ll_SubCount
                ll_OutputCount ++
                awo_Output[ll_OutputCount] = lwo_Sub[ll_Sub]
            NEXT
    END CHOOSE
NEXT

RETURN ll_OutputCount

类型转换

下一个问题是如何访问或操作对象的属性，其中编译器无法识别该属性对该对象类型的所有权。解决方案是转换为编译器能够识别属性关联的类型。您在上面的示例中看到了转换：

userobject luo_UserObject
...
luo_UserObject = awo_Input[ll_Input]
...luo_UserObject.Control...

编译器无法识别 WindowObject 和我试图引用的 Control 数组之间的关联，因此我通过将 WindowObject 分配给 UserObject 类型的变量来将 WindowObject 转换为 UserObject。之后，我可以通过该变量引用 Control 数组。

您将执行与我类似的操作，可能在循环内执行 CHOOSE CASE TypeOf()，然后在每个 CASE 内转换为与类型匹配的特定变量并在那里操作属性。

我猜您希望有一个单行赋值选项，但 PowerScript 中没有。 （如果您在每个函数上调用该函数，则可以使用 DYNAMIC 关键字在 WindowObject 上调用该函数，但您有责任确保该函数在调用之前就存在。）我相信 有一种方法可以直接使用 PBNI 来做到这一点，但我无法帮助你，而且我强烈怀疑它的努力远远超过了它的价值。

祝你好运，

特里。