2 Fragen zu Mousedown

In VB.NET 2003 gibt es keine eingebaute Möglichkeit, einem Control direkt ein „MouseDown“-Ereignis vorzutäuschen, da Ereignisse wie `MouseDown` normalerweise nur durch echte Benutzereingaben ausgelöst werden. Allerdings kannst du das gewünschte Verhalten auf zwei Arten erreichen: **1. Die Ereignisbehandlung direkt aufrufen** Du kannst die Ereignisbehandlungsroutine für `MouseDown` direkt aus dem `MouseEnter`-Ereignis aufrufen. Beispiel: ```vb.net Private Sub MyControl_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyControl.MouseEnter ' MouseEventArgs mit gewünschten Werten erzeugen Dim mouseArgs As New MouseEventArgs(MouseButtons.Left, 1, 0, 0, 0) MyControl_MouseDown(sender, mouseArgs) End Sub Private Sub MyControl_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs) Handles MyControl.MouseDown ' Dein Code für MouseDown End Sub ``` **2. Windows-API verwenden, um ein echtes Ereignis zu simulieren** Du kannst mit der Windows-API ein echtes Mausklick-Ereignis simulieren. Das ist allerdings aufwändiger und kann Nebenwirkungen haben, da es wirklich einen Mausklick an der aktuellen Cursorposition auslöst: ```vb.net Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Integer, ByVal dx As Integer, ByVal dy As Integer, ByVal cButtons As Integer, ByVal dwExtraInfo As Integer) Const MOUSEEVENTF_LEFTDOWN As Integer = &H2 Private Sub MyControl_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyControl.MouseEnter mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0) End Sub ``` **Achtung:** Diese Methode klickt wirklich an der aktuellen Mausposition und ist daher meist nicht zu empfehlen. **Fazit:** Am einfachsten und sichersten ist es, die gewünschte Logik aus dem `MouseDown`-Handler in eine eigene Methode auszulagern und diese sowohl bei `MouseDown` als auch bei `MouseEnter` aufzurufen. Das „Vortäuschen“ eines MouseDown-Ereignisses ist in .NET nicht direkt vorgesehen, aber durch das manuelle Aufrufen der Handler kannst du das Verhalten nachbilden.

Um in VB.NET 2003 aus einer in einem Panel geöffneten „OwnedForm“ (also einer untergeordneten Form) öffentliche Funktionen aufzurufen, musst du einen Verweis auf das Form-Objekt haben. Das geht so: **1. Die OwnedForm referenzieren:** Wenn du die Form selbst erzeugst und in das Panel einfügst, solltest du sie als Variable speichern, damit du später darauf zugreifen kannst. **2. Public Function in der OwnedForm:** In deiner OwnedForm definierst du die gewünschte Funktion als `Public`. **3. Zugriff und Aufruf:** Beim MouseDown-Event im Panel kannst du dann auf die Form zugreifen und die Funktion aufrufen. ### Beispiel Angenommen, du hast eine Form namens `MyOwnedForm` mit einer Public Function: ```vb.net ' In MyOwnedForm.vb Public Class MyOwnedForm Inherits System.Windows.Forms.Form Public Sub DoSomething() MessageBox.Show("Funktion wurde aufgerufen!") End Sub End Class ``` Und im Hauptformular: ```vb.net ' Im Hauptformular Dim ownedForm As MyOwnedForm Private Sub OpenFormInPanel() ownedForm = New MyOwnedForm() ownedForm.TopLevel = False ownedForm.FormBorderStyle = FormBorderStyle.None ownedForm.Dock = DockStyle.Fill Panel1.Controls.Add(ownedForm) ownedForm.Show() End Sub Private Sub Panel1_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs) Handles Panel1.MouseDown If Not ownedForm Is Nothing Then ownedForm.DoSomething() End If End Sub ``` **Wichtige Hinweise:** - Die Form muss als `TopLevel = False` gesetzt werden, damit sie in ein Panel eingefügt werden kann. - Die Referenz auf die Form (`ownedForm`) muss erhalten bleiben, damit du darauf zugreifen kannst. - Die Funktion in der OwnedForm muss `Public` sein. **Weitere Infos:** - [Microsoft Docs: Form.TopLevel Property](https://learn.microsoft.com/en-us/dotnet/api/system.windows.forms.form.toplevel) - [Microsoft Docs: Panel Control](https://learn.microsoft.com/en-us/dotnet/api/system.windows.forms.panel) Falls du mehrere Forms im Panel hast, musst du ggf. die richtige Instanz finden (z.B. per Typ oder Name). **Zusammengefasst:** Du brauchst eine Referenz auf die Form im Panel und kannst dann jede `Public Function` dieser Form aufrufen, z.B. im MouseDown-Event des Panels.