🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: fj.lang.visualbasic
Article #255

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

#255
From: Toshihide Kashima
Date: Mon, 06 Apr 1998 00:00
44 lines
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-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: 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