| ■6848 / ) |
テキストボックスが隠れません・・・
|
□投稿者/ くおんたむ -(2012/02/06(Mon) 18:26:42)
| タイトル通りに、テキストボックスが隠れません。。。
疑似ファンクションバーを作っています。
サンプルファイルをアップしてあります。
一応、形は出来ています。
タイトルの意味はですね。
フォームが展開中（まぁ、作業中ですね）に「Pause」ボタンを押しますと、
オリジナルのファンクションキーを使用することが出来るように切り替える
ものです。
問題は、初めに開いたときに必要なテキストのみを表示させたいのですが、
必要ない（つまり、空変数の）テキストを非表示にしたいのです。
ところが、テキストが消えず、テキストボックスの幅を0にしたときに、
線みたいになりますよね。その状態になるのです。
拡張（F12）を押して、画面を切り替えて、また、F12を押して、元の画面
に戻ると、完全に消えています（この状態を初めに「Pause」キーを押した
時の動作として希望しているのです）。
挙動的には、問題はないのですが、見た目が引っ掛かるような気がしてな
らないのです。
順番の問題なのかなぁ。。。いっそ、線を背景の色と強引に合わせて見え
なくしようかと思案中です。
サンプルをアップしておきますので、解決できるのであれば教えてください。
また、もっとスマート的に出来るのならば、是非、教えてください。
サンプルを一回、やって頂ければ、内容の意味がお分かり頂けると
思います。
Ps
＊ここの手続きの部分です。表示に必要な部分は、以下の部分です。
&変数なんらやら = ""
↑が入っていれば、必要と判断し、表示されます。
Proc FunctionButtonSet( 参照 長整数 &FunFlg )
Switch
Case ( &FunFlg = 0 )
&PF01Name = "参照"
&PF02Name = ""
&PF03Name = "終了"
&PF04Name = ""
&PF05Name = "次件"
&PF06Name = "前件"
&PF07Name = "検索"
&PF08Name = "抽出"
&PF09Name = "次頁"
&PF10Name = "前頁"
&PF11Name = ""
&PF12Name = "拡張"
Case ( &FunFlg = 1 )
&PF01Name = ""
&PF02Name = ""
&PF03Name = ""
&PF04Name = ""
&PF05Name = ""
&PF06Name = "拡張検索"
&PF07Name = "拡張抽出"
&PF08Name = ""
&PF09Name = ""
&PF10Name = ""
&PF11Name = ""
&PF12Name = ""
End
End
|
|
