[リストへもどる]
一括表示

投稿時間:2003/07/15(Tue) 16:47
投稿者名:CTI
Eメール:
URL :
タイトル:
オブジェクトの表示タイミング
はじめまして、早速ですがご質問させていただきます。
VBのフォーム画面でオブジェクト(アイコンのこと)を
表示させるタイミングを変更する方法がわからず、
頭を抱えています。コマンドボタンを押すと
タイマーオブジェクトやテキストボックスオブジェクトが
使用できるような処理を作成したいのですが。。
ご教授よろしくお願いいたします。

投稿時間:2003/07/15(Tue) 19:53
投稿者名:yuriusu
Eメール:
URL :
タイトル:
Re: オブジェクトの表示タイミング
> はじめまして、早速ですがご質問させていただきます。
> VBのフォーム画面でオブジェクト(アイコンのこと)を
> 表示させるタイミングを変更する方法がわからず、
> 頭を抱えています。コマンドボタンを押すと
> タイマーオブジェクトやテキストボックスオブジェクトが
> 使用できるような処理を作成したいのですが。。
> ご教授よろしくお願いいたします。

フォームのロード時にオブジェクトのEnabledの設定をFalseにしておいて、コマンドボタンが押されたら
Trueに変更するようにすればよいのではないでしょうか。

投稿時間:2003/07/16(Wed) 15:51
投稿者名:CTI
Eメール:
URL :
タイトル:
Re^2: オブジェクトの表示タイミング
yuriusuさん、アドバイスありがとうございますm(__)m
オブジェクトの設定なのですが、あらかじめ用意をしないで
何かしらのイベントが発生したら動的にオブジェクトを生成するような仕組みが
望ましいのですが、そのような命令はVBに用意されていますでしょうか?

投稿時間:2003/07/17(Thu) 03:55
投稿者名:yuriusu
Eメール:
URL :
タイトル:
Re^3: オブジェクトの表示タイミング
> yuriusuさん、アドバイスありがとうございますm(__)m
> オブジェクトの設定なのですが、あらかじめ用意をしないで
> 何かしらのイベントが発生したら動的にオブジェクトを生成するような仕組みが
> 望ましいのですが、そのような命令はVBに用意されていますでしょうか?

もしかしたらお望みのものとずれてしまっているかも知れませんが一応

フォームにコマンドボタンがある状態で
Private Sub Command1_Click()
    Dim temp As CommandButton
    
    Set temp = Form1.Controls.Add("VB.CommandButton", "temp")
    
    temp.Caption = "test"
    temp.Height = 1000
    temp.Width = 1000
    temp.Left = 1000
    temp.Top = 1000
    temp.Visible = True
    
End Sub

このようにすればボタンをクリックすると、testと書かれたコマンドボタンが出現します
横幅や高さなどの値は適当です。

投稿時間:2003/07/17(Thu) 13:20
投稿者名:Say
Eメール:
URL :
タイトル:
Re^4: オブジェクトの表示タイミング
補足
> Private Sub Command1_Click()
>     Dim temp As CommandButton
モジュールレベルで
Dim WithEvents temp As CommandButton
としないと、たとえば
Private Sub temp_Click()
でイベントが拾えないでしょう。

投稿時間:2003/07/17(Thu) 21:19
投稿者名:yuriusu
Eメール:
URL :
タイトル:
Re^5: オブジェクトの表示タイミング
> 補足
> > Private Sub Command1_Click()
> >     Dim temp As CommandButton
> モジュールレベルで
> Dim WithEvents temp As CommandButton
> としないと、たとえば
> Private Sub temp_Click()
> でイベントが拾えないでしょう。

そうでした。ご指摘ありがとうございます。

投稿時間:2003/07/18(Fri) 13:57
投稿者名:CTI
Eメール:
URL :
タイトル:
解決しました(^^)v
yuriusuさん、Sayさん ご協力ありがとうございました。 
動的にオブジェクトを作成することができました。
初歩的な質問をして恐縮ですが、
大変助かりました。多謝