🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: fj.lang.visualbasic
Article #242

Re: 同時にフォームを複数表示するには?

#242
From: Syuuichi Ueki
Date: Sat, 04 Apr 1998 00:00
31 lines
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-mail
References: <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