PB 電子会議室
カテゴリ:ユーザオブジェクト
日付:1999年04月15日 11:28 発信者:Mika★
題名:RE(12):PB6.5: TimingオブジェクトにCREATEしてくれたオブジェクトを認識させる方法
大文字のTAKAさん、こんにちは。
えっと、うまく説明できるかわかりませんが・・・(^-^ゞ
Timingオブジェクト(n_Timingという名だとします。もちろん、事前に作成しておきます。)側に
作成したカスタムビジュアルユーザーオブジェクト型のインスタンス変数を宣言しておきます。
(仮に、u_cst_Blinkというオブジェクトだとします。)
u_cst_Blink iu_cst_Blink
Timerイベントには、上記カスタムビジュアルユーザーオブジェクト上に貼り付けてあるテキストを
表示・非表示と交互に切り換えるように、記述しておきます。下記のような感じで。
IF iu_cst_Blink.st_Message.Visible = True THEN
iu_cst_Blink.st_Message.Visible = False
ELSE
iu_cst_Blink.st_Message.Visible = True
END IF
このまま動かしても、iu_cst_Blinkは「Nullオブジェクトの参照」となってしまうので
u_cst_Blink型の引数を1つ持つイベントを作成して(ue_Initと名付けたとします。)
iu_cst_Blink = au_cst_Blink // au_cst_Blinkが引数。
と記述しておきます。
u_cst_Blink側でで、TimingオブジェクトをCREATEした後、Timerを起動する前に
上記のイベントを呼び出せばOKです。(下記は、constructorイベントに書けばいいかな?)
n_Timing in_Timing // インスタンス変数として宣言。
in_Timing = CREATE n_Timing
in_Timing.TRIGGER EVENT ue_Init(This) // 自分自身を引数として渡す。
in_Timing.Start(2)
・・・こんな感じで、2秒おきにテキストがBLINKするオブジェクトができると思います。
おわかりいただければ幸いです。(^-^)
付加情報:
PowerBuilder Version (記載なし)
Client SoftWare
OS Windows98
DBMS (記載なし)
Browser (記載なし)
Server SoftWare
OS (記載なし)
DBMS (記載なし)
WebServer (記載なし)
Copyright © 2013 Power Future Co., Ltd.