投稿日	： 2007/03/12(Mon) 17:00
投稿者	： ガッ
Ｅメール	：
ＵＲＬ	：
タイトル	： Re^5: ユーザコントロールを動的に作成

> 度々すいません。
>
> ユーザコントロール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