realbasic - REAL基本的な質問

Question

REALBasic で、Window1 のすべてのオブジェクトをループするにはどうすればよいですか? すべての子を持つ Window1 の配列プロパティはありますか? また、オブジェクトのカスタム プロパティをどのように設定しますか? 例: Me.isFlamingo = true よろしくお願いします!

Answer 1

プッシュボタンのような組み込みクラスへのプロパティの追加は、2つの方法で実行できます。より良い方法は、PushBusttonクラスをサブクラス化し、他のカスタムクラスの場合と同じようにサブクラスにプロパティを追加することです。もう1つのやや醜い方法は、次のようなオーバーロードされた関数のペアを使用することです。

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

(この例では、少なくとも 1 つの ListBox を Window に追加してください。)

プロパティは、ObjectInstance.PropertyName のように設定されます。

オブジェクトがウィンドウにドラッグされた場合は、Me.PropertyName を使用してそのプロパティを変更できます。それ以外の場合は、オブジェクト名を使用します。