Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

変数名でフォームを開く(再送)

7 views
Skip to first unread message

Caprice Miya

unread,
Jul 30, 2009, 2:20:40 AM7/30/09
to
違うところに投稿したので再送です。

皆さん教えて下さい。
VB6 Windows XP です。
Form1 から Form201 を開く場合
Form201.Show としますが、開くフォームが多いので変数名でフォームを開きたいと思っています。

Select Case A
Case 1: Form201.Show
Case 2: Form202.Show
Case 3: Form203.Show
Case 4: Form204.Show
・
・
・
End Select

とすれば良いのですが、増える可能性があるので Form201 を変数で扱い

FormName = "Form201"
FormName.Show 'FormNameは変数

のようにしたいのですが上手く行きません、どなたか教えて下さい。
宜しくお願い致します。
Miya

TAKAHASHI Hisanori

unread,
Jul 30, 2009, 6:42:26 AM7/30/09
to

"Caprice Miya" <mitu...@matsuda1911.co.jp> wrote in message news:%23%230Ir3NE...@TK2MSFTNGP05.phx.gbl...

> FormName = "Form201"
> FormName.Show 'FormNameは変数
>
> のようにしたいのですが上手く行きません、どなたか教えて下さい。

Dim FormName As Form2
Set FormName = Forms.Add("Form2")

With FormName
.Visible = True
End With

でいかがでしょう。

--
TAKAHASHI Hisanori

Caprice Miya

unread,
Aug 5, 2009, 8:21:39 PM8/5/09
to

TAKAHASHI Hisanoriさん、有り難う御座います。
初歩的な質問済みません
呼び出すフォームの名前は標準モジュールで定義したLink_F_Nameに格納しています。


Link_F_Name = "Form201"
Link_F_Name = "Form202"
Link_F_Name = "Form203"
Link_F_Name = "Form204"のように

Link_F_Nameのフォームを呼び出す(開く)にはどうすれば良いですか。
宜しくお願い致します。

Miya

"TAKAHASHI Hisanori" <jpa...@microsoft.com> wrote in message
news:enUwyJQE...@TK2MSFTNGP05.phx.gbl...

TAKAHASHI Hisanori

unread,
Aug 6, 2009, 9:23:40 AM8/6/09
to

"Caprice Miya" <mitu...@matsuda1911.co.jp> wrote in message news:O7DwsviF...@TK2MSFTNGP03.phx.gbl...

> 呼び出すフォームの名前は標準モジュールで定義したLink_F_Nameに格納しています。
>
>
> Link_F_Name = "Form201"
> Link_F_Name = "Form202"
> Link_F_Name = "Form203"
> Link_F_Name = "Form204"のように

上記のように書かれているとしたら
Link_F_Name = "Form204"
だけが有効になりますけど…。


> Link_F_Nameのフォームを呼び出す(開く)にはどうすれば良いですか。

Dim Link_F_Name As Form204
Set Link_F_Name = Forms.Add("Form204")
With Link_F_Name


.Visible = True
End With

でしょうか…。

--
TAKAHASHI Hisanori

0 new messages