投稿日	： 2007/03/13(Tue) 10:51
投稿者	： ムキア
Ｅメール	：
ＵＲＬ	：
タイトル	： Re^6: ユーザコントロールを動的に作成

> > 度々すいません。
> >
> > ユーザコントロール1を表示してからユーザコントロール2を表示させる際、
> > UserControl1.Visible=False ではなくアンロードさせたい場合、
> > なにか手はあるのでしょうか。
> 横から失礼します；
> Option Explicit
> 'Form1：
> '１　ユーザコントロール UserControl1 及び UserControl2 をプロジェクトに追加
> '２　プロジェクトのプロパティで、使用しないActiveXコントロールについての情報を削除する　をオフに
> '３　実行
> Private WithEvents btn      As CommandButton
> Private WithEvents ctl      As VBControlExtender
>
> Private Sub Form_Load()
>     'ボタンを追加
>     Set btn = Me.Controls.Add("VB.CommandButton", "btn")
>     With btn
>         .Move 0, 0, 1000, 1000
>         .Caption = "Click"
>         .Visible = True
>     End With
> End Sub
>
> Private Sub btn_Click()
>     Static flag             As Boolean
>    
>     'コントロールを削除
>     On Error Resume Next
>         Call Me.Controls.Remove("ctl")
>     On Error GoTo 0
>    
>     'コントロールを追加
>     If flag Then
>         Set ctl = Me.Controls.Add("Project1.UserControl1", "ctl")
>     Else
>         Set ctl = Me.Controls.Add("Project1.UserControl2", "ctl")
>     End If
>     With ctl
>         .Move 0, 1000, 1000, 1000
>         .Visible = True
>     End With
>    
>     flag = Not flag
> End Sub
>
> 多分こんな感じです

動作確認問題なく出来ました。
ありがとうございました。

★ - ユーザコントロールを動的に作成 - ムキア 03/10-13:54No.8633
• Re: ユーザコントロールを動的に作成 - ダンボ 03/10-17:02 No.8635
  • Re^2: ユーザコントロールを動的に作成 - ムキア 03/12-11:03 No.8638
    • Re^3: ユーザコントロールを動的に作成 - ダンボ 03/12-11:34 No.8639
      • Re^4: ユーザコントロールを動的に作成 - ムキア 03/12-12:57 No.8640
      • Re^4: ユーザコントロールを動的に作成 - ムキア 03/12-16:16 No.8644
        • Re^5: ユーザコントロールを動的に作成 - ガッ 03/12-17:00 No.8645
          • Re^6: ユーザコントロールを動的に作成 - ムキア 03/13-10:51 No.8651
        • Re^5: ユーザコントロールを動的に作成 - ダンボ 03/12-17:02 No.8646
          • Re^6: ユーザコントロールを動的に作成 - ムキア 03/13-10:51 No.8652