私は3つのユーザーコントロールとメインフォームを有するメインフォームコード

Question

を参照することができず、私はうまくメインフォームからユーザーコントロールと使用方法を参照することができる：主にユーザコントロールから参照

Dim ReviewPanel As New ReviewPanel 
Controls.Add(ReviewPanel) 
ReviewPanel.BringToFront() 
ReviewPanel.Go(-8, 0) 

しかしフォームが正常に動作しません。

Private Sub SelectionPanelClick(sender As Object, e As EventArgs) Handles MyBase.Click, picCover.Click, lblTitle.Click 
    Dim _Main As New Form1 
    _Main.DisplayReview() 
End Sub 

コードは正常に動作しています。私はメインフォームメソッドでメッセージボックスを追加することができ、彼らはまだ表示されます。しかし、ラベルがユーザー名で更新されないような視覚的な変化はありません。

私はそれを解決しようとしましたが、回避策を見つけましたが、何も問題はありません。

Answer 1

はParentForm()プロパティを使用し、Form1にキャスト：

' ... in your UserControl ... 
Dim frm As Form = Me.ParentForm 
If Not IsNothing(frm) AndAlso TypeOf frm Is Form1 Then 
    Dim f1 As Form1 = DirectCast(frm, Form1) 
    f1.DisplayReview() 
End If