投稿日 | : 2007/03/12(Mon) 11:03 |
投稿者 | : ムキア |
Eメール | : |
URL | : |
タイトル | : Re^2: ユーザコントロールを動的に作成 |
> > メイン画面に全てのユーザコントロールを貼り付けユーザコントロールのVisibleをFalse。
> > 押下されたボタンに従いVisibleをTrue。
> > bUtton1 = UserControl1表示 bUtton2 = UserControl2表示
> > としていたのですが、どうしても起動時に時間がかかってしまいます。
>
> ロジックや画面構成を見直した後でも時間がかかるとしたら、それは仕方が無いことで。
> 逃げ手は「暇なときにロードする」例えば起動時にすべてのユーザコントロールをVisibleをFalse
> でロードしておきます。
起動時に全てのユーザコントロールをロードすると数分かかってしまいます。
その中にはユーザーによっては不要なユーザコントロールもある為、
ボタン押下時に必要なユーザコントロールを作成する手法を考えております。
Private Sub btnAdd_Click()
Set extObj = Controls.Add("VB.CommandButton", "btnNew")
With Controls("btnNew")
.Caption = "NEWボタン"
.Width = 1000
.Height = 500
.Visible = True
End With
End Sub
みたく、ボタンをユーザコントロールにしたいのですが、どうすれば良いのかと。
言葉が足らず申し訳ありませんでした。
よろしくお願いします。