PB 電子会議室
発言No. | 更新日 | 題名(クリックすると発言内容と関連するコメントが表示されます) |
---|---|---|
13176 | 00/09/08 19:54:05 | RE(4):PB7.0: EditMaskコントロールのインタフェースをStaticTextと同じにする方法 By yoshida1 |
13173 | 00/09/08 18:02:13 | RE(3):PB7.0: EditMaskコントロールのインタフェースをStaticTextと同じにする方法 By おさむ |
13171 | 00/09/08 16:54:11 | RE(2):PB7.0: EditMaskコントロールのインタフェースをStaticTextと同じにする方法 By yoshida1 |
13166 | 00/09/08 12:30:51 | RE(1):PB7.0: EditMaskコントロールのインタフェースをStaticTextと同じにする方法 By Mika★ |
13164 | 00/09/08 12:09:30 | PB7.0: EditMaskコントロールのインタフェースをStaticTextと同じにする方法 By yoshida1 |
カテゴリ:スクリプトの記述
日付:2000年09月08日 18:02 発信者:おさむ
題名:RE(3):PB7.0: EditMaskコントロールのインタフェースをStaticTextと同じにする方法
yoshida1さん、こんにちは。
mika★さんがDWを使用した方法を説明されていましたが、
私はちょっと違った方法を考えてみました。
ちなみに、未実験の無責任モードです。
yoshida1さん:
>処理を書いたEditMaskとStaticTextの2コントロールを画面上にうまく重ねておき、
>状況に応じて前面表示を切り替え
>る方法も考えたのですが、画面数が多いため現実的に無理な状況です。
これをカスタムユーザオブジェクトで実現する方法です。
userobjectから継承したuo_editmaskを作ります。
uo_editmask上にEditMask\"em_1\"とStaticText\"st_1\"を配置します。
ユーザオブジェクト関数 of_SetEnabled( Boolean ab_enabled )
em_1.Visivle = ab_Enabled
st_1.Visivle = NOT ab_Enabled
uo_editmask:constructorイベント
em_1のX,Yとst_1のX,Yを0に設定。
em_1のWidthとst_1のWidthをTHIS.Widthに設定。
em_1のHeightとst_1のHeightをTHIS.Heightに設定。
of_SetEnabled( TRUE )を実行。(FALSEでも良いですが。)
あとは、uo_editmaskにof_SetDataやof_GetDataを定義してあげれば良いと思います。
マスクをいろいろ使用したいのであれば、uo_editmaskを継承して、各マスク用の
オブジェクトを作るか、of_SetMaskの様な関数を定義します。
まだまだ改善の余地は有りますが、こんな感じで作れそうな気がします。
できなかったら・・・・・ごめんなさい。
付加情報:
PowerBuilder Version (記載なし)
Client SoftWare
OS Windows NT 4.0
DBMS (記載なし)
Browser InternetExplorer5.X
Server SoftWare
OS Windows NT 4.0
DBMS Oracle 8.0
WebServer (記載なし)
Copyright © 2013 Power Future Co., Ltd.