Article View: fj.lang.visualbasic
Article #255Re: 同時にフォームを複数表示するには?
From: Toshihide Kashima
Date: Mon, 06 Apr 1998 00:00
Date: Mon, 06 Apr 1998 00:00
44 lines
1657 bytes
1657 bytes
鹿嶋です。
Tomy wrote:
>
> 初歩的な質問かもしれなくてすみません。
>
> 設計上は1つのフォームを作成しておき、実行時に
> このフォームを複数表示するにはどうすれば良いのでしょうか?
> フォームに配列とかの考えってあるのでしょうか?
(一部省略)
オブジェクト変数配列を作っておいて、Set文でインスタンスを
作っていくのはどうでしょう。
例えば
Private FormCount As Long
Private FormInstance() As Form
Public Sub OpenNewForm()
ReDim Preserve FormInstance(FormCount)
Set FormInstance(FormCount) = New Form1
FormInstance(FormCount).Show
FormCount = FormCount + 1
End Sub
Public Sub Main() 'スタートアップ
OpenNewForm
End Sub
OpenNewFormをボタンが押されたときに呼べばたぶんお望みのことが
できると思いますが。
鹿嶋
--------------------------------------------
KASHIMA Toshihide (kashima@kenken.go.jp)
International Institute of Seismology and
Earthquake Engineering (IISEE),
Building Research Institute (BRI)
Technical Details
Message-ID:
<35283E53.6167F43B@kenken.go.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: Toshihide Kashima <kashima@kenken.go.jp> Subject: Re: 同時にフォームを複数表示するには? Date: 1998/04/06 Message-ID: <35283E53.6167F43B@kenken.go.jp> X-Deja-AN: 341228191 Content-Transfer-Encoding: 7bit References: <6g2qup$f83$1@news.netsurf.ad.jp> Content-Type: text/plain; charset=iso-2022-jp Organization: Building Research Institute, Japan Mime-Version: 1.0 Newsgroups: fj.lang.visualbasic