オブジェクト参照をオブジェクトインスタンスに設定するんには？ (ID:88923)

名前

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

本文 まことにすみません コードは下記の通りです。 Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click Dim activeForm As MainForm Call Handler '四角形を表示 activeForm.Viewer.InteractiveMode = RasterViewerInteractiveMode.Region activeForm.Viewer.InteractiveRegionType = RasterViewerInteractiveRegionType.Rectangle End Sub Private Sub Handler() AddHandler _viewer.InteractiveModeEnded, AddressOf _viewer_EnterActiveModeEnded ……… Controls.Add(_viewer) _viewer.BringToFront() _viewer.AllowDrop = True End Sub Private Sub _viewer_EnterActiveModeEnded(ByVal sender As Object, ByVal e As EventArgs) If (_viewer.InteractiveMode = RasterViewerInteractiveMode.Region) Then _viewer.RegionToFloater() _viewer.FloaterVisible = True _viewer.AnimateFloater = True _viewer.InteractiveMode = RasterViewerInteractiveMode.Floater _viewer.Image.MakeRegionEmpty() DirectCast(MdiParent, MainForm).UpdateControls() End If End Sub です。