🚀 go-pugleaf

Tomy wrote in message <6g2qup$f83$1@news.netsurf.ad.jp>...
>初歩的な質問かもしれなくてすみません。
>
>設計上は１つのフォームを作成しておき、実行時に
>このフォームを複数表示するにはどうすれば良いのでしょうか？
><例＞
>　フォーム１上のボタンを１度押す。
>　　　　->フォーム２が表示される。
>　もう一度フォーム１上のボタンを１度押す。
>　　　　->別のフォーム２が表示される。
>
>フォームに配列とかの考えってあるのでしょうか？
>
>ＶＢ５．０使用
>以上、宜しくお願いいたします。
>
>Ｆｒｏｍ　とみー
>

S.植木と申します。
以下のようにすれば可能です。
フォーム１とフォーム２をプロジェクト上に作成しておき、フォーム１に
コマンドボタン(ここではName="Command1")を乗せます。
フォーム１のコマンドボタン(Command1)を押す毎に新しいフォーム2
が表示されます。
Private Sub Command1_Click()
    Dim frmFrm2 As Form2
    Set frmFrm2 = New Form2    ' 新規インスタンス作成
    frmFrm2.Show    
End Sub

鹿嶋です。

Tomy wrote:
> 
> 初歩的な質問かもしれなくてすみません。
> 
> 設計上は１つのフォームを作成しておき、実行時に
> このフォームを複数表示するにはどうすれば良いのでしょうか？
> フォームに配列とかの考えってあるのでしょうか？
(一部省略)

オブジェクト変数配列を作っておいて、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)