OCXで親フォームのイベントを拾うには？ (ID:80828)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 VB6製OCXを、VB6のフォームに貼り付けて使用する、という前提であれば…。 Option Explicit Private WithEvents ParentForm As VB.Form Private Sub ParentForm_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) UserControl.Cls UserControl.Print Format(Now(), "hh:nn:ss") & " - MouseMove("; UserControl.Print Button; ","; Shift; ","; X; ","; Y; ")" End Sub Private Sub UserControl_Paint() If Not UserControl.Ambient.UserMode Then UserControl.Print UserControl.Ambient.DisplayName End If End Sub Private Sub UserControl_ReadProperties(PropBag As PropertyBag) If UserControl.Ambient.UserMode Then Set ParentForm = UserControl.Extender.Parent End If End Sub