Article View: fj.lang.visualbasic
Article #242Re: 同時にフォームを複数表示するには?
From: Syuuichi Ueki
Date: Sat, 04 Apr 1998 00:00
Date: Sat, 04 Apr 1998 00:00
31 lines
1702 bytes
1702 bytes
Tomy wrote in message <6g2qup$f83$1@news.netsurf.ad.jp>...
>初歩的な質問かもしれなくてすみません。
>
>設計上は1つのフォームを作成しておき、実行時に
>このフォームを複数表示するにはどうすれば良いのでしょうか?
><例>
> フォーム1上のボタンを1度押す。
> ->フォーム2が表示される。
> もう一度フォーム1上のボタンを1度押す。
> ->別のフォーム2が表示される。
>
>フォームに配列とかの考えってあるのでしょうか?
>
>VB5.0使用
>以上、宜しくお願いいたします。
>
>From とみー
>
S.植木と申します。
以下のようにすれば可能です。
フォーム1とフォーム2をプロジェクト上に作成しておき、フォーム1に
コマンドボタン(ここではName="Command1")を乗せます。
フォーム1のコマンドボタン(Command1)を押す毎に新しいフォーム2
が表示されます。
Private Sub Command1_Click()
Dim frmFrm2 As Form2
Set frmFrm2 = New Form2 ' 新規インスタンス作成
frmFrm2.Show
End Sub
Technical Details
Message-ID:
<6g3t4e$80e@server1.seafolk.ne.jp>Path:
arc1-ca.pugleaf.net!unknown!not-for-mailReferences:
<6g2qup$f83$1@news.netsurf.ad.jp>Show Full Headers
Complete Article Headers
X-Google-Language: Japanese,JIS X-Google-Thread: 105c2e,648b9220856f1763 X-Google-Attributes: gid105c2e,public From: "Syuuichi Ueki" <kita-002@seafolk.ne.jp> Subject: Re: 同時にフォームを複数表示するには? Date: 1998/04/04 Message-ID: <6g3t4e$80e@server1.seafolk.ne.jp> X-Deja-AN: 340674071 Content-Transfer-Encoding: 7bit References: <6g2qup$f83$1@news.netsurf.ad.jp> Content-Type: text/plain; charset="iso-2022-jp" X-MimeOLE: Produced By Microsoft MimeOLE V4.71.1712.3 Organization: seafolk (TIS SYSTEM SERVICE) Mime-Version: 1.0 Newsgroups: fj.lang.visualbasic