- PR -

VB6でのフォームの制御について

«前のページへ 1|2|3
投稿者投稿内容
Tdnr_Sym
ぬし
会議室デビュー日: 2005/09/13
投稿数: 464
お住まい・勤務地: 明石・神戸
投稿日時: 2005-10-12 08:56
こんにちは。

次のようコードでどうでしょう。

コード:

    Static frm As Form

    

    If frm Is Nothing Then

        Set frm = New Form1

    End If

    

    frm.Show


変数frmの宣言はPublicや標準モジュールへなどに移すなど、適切なスコープで宣言してやってください。


[ メッセージ編集済み 編集者: Tdnr_Sym 編集日時 2005-10-12 09:02 ]

[ メッセージ編集済み 編集者: Tdnr_Sym 編集日時 2005-10-12 09:12 ]
YUKO
会議室デビュー日: 2005/10/11
投稿数: 8
投稿日時: 2005-10-12 09:37
みなさん、いろいろとありがとうございました。
みなさんからの教えを総合して下のいずれかの方法でやってみることにしました。
ほんとうにありがとうございました。
なにぶん素人ですので、今後もよろしくおねがいします。

Static frm As Form
①-----------------------------------------------------
For I = 0 To Forms.Count - 1
If Forms(I).Caption = "Form1のコピーだよ" Then
Forms(I).SetFocus
Exit Sub
End If
Next I
②-----------------------------------------------------
If Not frm Is Nothing Then
frm.SetFocus
Exit Sub
End If
-------------------------------------------------------
Set frm = New Form1
frm.Caption = "Form1のコピーだよ"
frm.Visible = True

«前のページへ 1|2|3

スキルアップ／キャリアアップ（JOB@IT）