Hallo Leute,
Habe das Problem, das bei einem Mousedown Event auf einem zur Laufzeit
erstellten Controls, nichts durchgereicht wird.
Das Control wird wie folgt auf einem Panel erstellt:
Dim NewOder As New cntrl_ODER
NewOder.Name = "ODER_" & Panel.Controls.Count
NewOder.Location = New Point(Location.X - (40), Location.Y - (50))
Panel.Controls.Add(NewOder)
AddHandler NewOder.MouseDown, AddressOf GenerellesMousedown
AddHandler NewOder.MouseMove, AddressOf GenerellesMouseMove
Das Control an sich wird erkannt, nur das Label usw, was sich auf der
"Controlform" befindet nicht.
Habe schon versucht den AppHandler umzubiegen:
Private Sub cntrl_ODER_Paint(ByVal sender As Object, ByVal e As
System.Windows.Forms.PaintEventArgs) Handles Me.Paint
lbl_BlockNumber.Text = Me.Name
AddHandler lbl_BlockNumber.MouseDown, AddressOf
frm_Main.GenerellesMousedown
AddHandler lbl_Funktion.MouseDown, AddressOf
frm_Main.GenerellesMousedown
AddHandler Panel1.MouseDown, AddressOf
frm_Main.GenerellesMousedown
End Sub
Bekomme aber immer nur das Label,uws. zurück. Nicht die Controlform.
Schade, das das niemang gewusst/geholfen hat.
Habe es nach ewigen probieren selbst herausgefunden:
Bei jedem Control im UserControl muss das Event, das generelle Event in
frm_Main aufrufen.
Private Sub Panel1_MouseDown(ByVal sender As Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseDown
frm_Main.GenerellesMousedown(Me, e)
End Sub
Bitte melde dich an um einen Beitrag zu schreiben. Anmeldung ist kostenlos und dauert nur eine Minute.
Bestehender Account
Schon ein Account bei Google/GoogleMail? Keine Anmeldung erforderlich!
Mit Google-Account einloggen
Mit Google-Account einloggen
Noch kein Account? Hier anmelden.