realbasic - REAL基本问题

Question

在 REALBasic 中，如何遍历 Window1 中的所有对象？Window1 的所有子项是否有一些数组属性？另外，如何设置对象的自定义属性：例如 Me.isFlamingo = true 提前谢谢！

Answer 1

可以通过两种方式向内置类（如按钮）添加属性。更好的方法是继承 PushBustton 类并将属性添加到子类，就像使用任何自定义类一样。另一种更丑陋的方法是使用一对重载函数，如下所示：

Function isFlamingo(Extends ByRef pb As PushButton) As Boolean
  Dim flamingo As Boolean
  //Do stuff to figure out if the PushButton is Flamingo-y
  //and Return a Boolean based on the result
  Return flamingo
End Function

和：

Sub isFlamingo(Extends ByRef pb As PushButton, Assigns b As Boolean)
  If b Then
    //Do stuff that makes the PushButton flamingo-y
  Else
    //Do stuff that makes the PushButton not flamingo-y
  End If
End Sub

Answer 2

要遍历窗口上的控件，请使用如下代码：

  ListBox1.DeleteAllRows

  For i As Integer = 0 To Self.ControlCount-1
    ListBox1.AddRow(Self.Control(i).Name)
  Next

（对于这个例子，请确保至少添加一个 ListBox 到 Window。）

属性的设置就像您描述的那样：ObjectInstance.PropertyName。

如果您遇到的对象已被拖到窗口中，那么您可以使用 Me.PropertyName 修改其属性。否则，您将使用对象名称。