Powerbuilder語法。如何我可以使用i = 1到3環在此聲明替換這些數字

Question

CBX代表複選框，我想用for循環，以儘量減少代碼，但不知道該語法PB認識上發言串連

IF cbx_1.Checked = TRUE THEN 
    fw_generate(1, cbx_1.Text) 

END IF 

IF cbx_2.Checked = TRUE THEN 
    fw_generate(2, cbx_2.Text) 

END IF 

IF cbx_1.Checked = TRUE THEN 
    fw_generate(3, cbx_3.Text) 

END IF 

Answer 1

您將需要構建一組CheckBox對象，然後您可以循環。例如，

聲明一個實例變量的窗口

CheckBox boxes[] 

在你的窗戶開着事件通過收集循環需要的對象添加代碼：

integer i 
for i = 1 to UpperBound(this.control) 
    if TypeOf(this.control[i]) = CheckBox! Then 
     boxes[UpperBound(boxes) + 1] = this.control[i] 
    end if 
next 

注，你可以在列表中使用任何你想包含（或不包含）給定控件的邏輯。在這裏我添加了每個複選框，如果你只需要一些複選框，你可能需要在IF條件下進行更多的測試。

循環控制數組以完成您所需的任何操作。例如，在一個按鈕點擊事件中，以下內容將翻轉選中的狀態。

integer i 
for i = 1 to UpperBound(boxes) 
    boxes[i].Checked = NOT boxes[i].Checked 
next 

順便說一句，IF cbx_1.Checked = TRUE THEN是多餘的...的Checked屬性是布爾值，因此IF cbx_1.Checked THEN就足夠了。