Salzburger

Public Class UserControl1
 
    Dim WithEvents MyUCButton As New Button With {.Parent = Me, .Top = 10, _
      .Left = 10, .Text = "Demo"}
 
    Public Event UCButtonClicked(sender As Object, e As EventArgs)
 
    Private Sub MyUCButton_Click(sender As Object, e As EventArgs) Handles _
      MyUCButton.Click
        RaiseEvent UCButtonClicked(Me, EventArgs.Empty)
    End Sub
 
    Private Sub UserControl1_Load(sender As Object, e As EventArgs) Handles _
      MyBase.Load
 
    End Sub
End Class

Public Class frmUCEventDemo
 
    Dim WithEvents uc1 As New UserControl1 With {.Parent = Me}
 
    Private Sub uc1_UCButtonClicked(sender As Object, e As EventArgs) Handles _
      uc1.UCButtonClicked
        MsgBox("UC-Button ist gedrückt worden")
    End Sub
 
End Class

Salzburger

Salzburger

Salzburger

Public Class BindingControl
 
    Public Event MoveFirst(sender As Object, e As EventArgs)
    Public Event MoveLast(sender As Object, e As EventArgs)
 
    Private Sub BindingNavigatorMoveFirstItem_Click(sender As Object, e As _
      EventArgs) _
        Handles BindingNavigatorMoveFirstItem.Click
 
        RaiseEvent MoveFirst(Me, EventArgs.Empty)
 
    End Sub
 
    Private Sub BindingNavigatorMoveLastItem_Click(sender As Object, e As _
      EventArgs) _
        Handles BindingNavigatorMoveLastItem.Click
 
        RaiseEvent MoveLast(Me, EventArgs.Empty)
    End Sub
 
    'usw ....
End Class

Zitat:

"Wenn ich das richtig verstanden habe, möchtest Du eine Aktion des Anwenders, die zum Aulösen eines ToolstripButton-Events im Usercontrol geführt hat, als Ereignis des Usercontrol an das Parent-Formular melden." Aber dafür gibt es wohl keine Möglichkeit. Auch ein Screenshot wäre eventuell schon hilfreich... Grüße - Dietrich

Salzburger

Salzburger

Salzburger

Dim WithEvents fn As New FileNavigator With {.Parent = Me, .Top = 500, .Height _
  = 250}

Private Sub fn_MoveFirst(sender As Object, e As EventArgs) Handles fn.MoveFirst
'....    
End Sub

Salzburger

Salzburger