フォーム複製時のデバック


次郎  2007-12-13 20:57:38  No: 138405

こんにちは。
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が一つの場合は問題ありませんが、2つになると片方はFuncAの
処理が一時停止してしまいます。

FrmA内でPrivateで定義した変数やFunction,Subはフォーム生成時に
別々にインスタンスが作られると思っているのですが。
間違いないでしょうか?

FrmAのコードは一つになるわけですが、それぞれについて値をモニタしたり
ステップ実行したりする方法はありませんでしょうか?
(値のモニタは各FrmA上のラベルに表示とかさせて、見たとこもんだいなさそうですが)

DoEventsがやらしい気がするのですが、このあたりご存知の方いらっしゃいましたらご教授願います。


※返信する前に利用規約をご確認ください。




  


  このエントリーをはてなブックマークに追加