こんにちは。
XPSP2,VB6です。
同じフォームを複数表示したいため
一つFrmAを作り、メインのFrmMainから
Dim FrmObj(0 To 50) As Object
Private Sub A
Dim i as integer
i = txtNo.text
Set FrmObj(i) = New FrmA
End Sub
というやりかたで同じフォームを複製しています。
ほとんどの場合複製されたフォームは正しく機能していますが
FrmA内の関数FuncA(DoEventsのあるループを含んでいます)を実行すると
FrmAが一つの場合は問題ありませんが、２つになると片方はFuncAの
処理が一時停止してしまいます。
FrmA内でPrivateで定義した変数やFunction,Subはフォーム生成時に
別々にインスタンスが作られると思っているのですが。
間違いないでしょうか?
FrmAのコードは一つになるわけですが、それぞれについて値をモニタしたり
ステップ実行したりする方法はありませんでしょうか?
(値のモニタは各FrmA上のラベルに表示とかさせて、見たとこもんだいなさそうですが)
DoEventsがやらしい気がするのですが、このあたりご存知の方いらっしゃいましたらご教授願います。