OCXプロジェクトで親フォームへのアクセス

質問

VB6.0でOCXプロジェクト作成しています。
親フォームのオブジェクトと
全くリンクしていないオブジェクトから
親フォームのオブジェクトへのアクセスするには
どのようにすればいいのですか？

回答No.1

うぃず（@Wizard_Zero） · ベストアンサー

いまひとつ何をしたいのかがはっきり見えてこない…。

「親フォームのオブジェクト」と「全くリンクしていないオブジェクト」が何を指しているのか分かりません。「全くリンクしていない」という表現もあいまいです。

親フォームのオブジェクトを「Ａ」と仮定
もうひとつのオブジェクトを「Ｂ」と仮定
ＡとＢは「リンクしていない」

Ａ = Form
Ｂ = OCX(UserControl)
リンクしていない = フォームに貼り付けられているが、フォームから呼び出されるメソッドやプロパティがない

と勝手に推測すると、タイトルの「親フォームへのアクセス」という質問につながるのでひとまずこれを前提に。

UserControl内で次のようなコードを実行すると、親フォーム(=UserControlを貼り付けたフォーム)に含まれるコントロールの一覧を列挙します。

Private Sub UserControl_Click()
Dim frmParent As Form
Dim ctlEnum As Control

Set frmParent = UserControl.Parent ' UserControlの親フォームを取得

' 親フォームのコントロールを列挙
For Each ctlEnum In frmParent.Controls
Debug.Print ctlEnum.Name
Next
End Sub