PB 電子会議室
| 発言No. | 更新日 | 題名（クリックすると発言内容と関連するコメントが表示されます） |
|---|---|---|
| 4359 | 98/12/11 20:34:17 | RE(7):ウィンドウのOpenイベントについて By M.M |
| 4358 | 98/12/11 19:39:01 | RE(6):ウィンドウのOpenイベントについて By てとらぽっと |
| 4357 | 98/12/11 18:54:47 | RE(5):ウィンドウのOpenイベントについて By M.M |
| 4354 | 98/12/11 17:22:51 | RE(4):PB6: ループ処理について教えてください。 By たこちゃん |
| 4353 | 98/12/11 16:32:15 | RE(3):こんな方法もあります By Taka |
| 4351 | 98/12/11 15:45:19 | RE(2):PB6: ループ処理について教えてください。 By てとらぽっと |
| 4348 | 98/12/11 14:33:38 | RE(1):PB6: ループ処理について教えてください。 By こてちゅ |
| 4344 | 98/12/11 13:16:55 | PB6: ループ処理について教えてください。 By たこちゃん |
カテゴリ：スクリプトの記述
日付：1998年12月11日 14:33 発信者：こてちゅ
題名：RE(1):PB6: ループ処理について教えてください。
どうもです。
＞ 複数のエディットマスクに値を入れたいのですが、その時にループをかけて処理したいのです。
同一のウィンドウ上にあるコントロールであれば、
Control[]というプロパティで参照できます。
コントロールの数だけループさせ、そのオブジェクトがエディットマスクだった場合、テキストを入れるようにすれば、できると思います。
PowerObject control_
Long cnt_,idx
cnt_ = UpperBound(Parent.Control)
For idx = 1 to cnt_
control_ = Parent.Control[idx]
If control_.TypeOf() = Edit! Then
control_.Text = \"XXXX\"
end If
Loop
とかとすればいいと思います。
なお、このスクリプトは、実際に使ったものではないので、コンパイルが通るかは試していません。（無責任でごめんなさい）
付加情報：
PowerBuilder Version (記載なし)
Client SoftWare
OS Windows95
DBMS Oracle SQL*Net 2.3
Browser (記載なし)
Server SoftWare
OS (記載なし)
DBMS Oracle 7.3
WebServer (記載なし)
Copyright © 2013 Power Future Co., Ltd.