Visual Basic 2010 Dynamisch erstellte Controls BringToFront und SendToBack

  • VB.NET

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von ClonkAndre.

    Visual Basic 2010 Dynamisch erstellte Controls BringToFront und SendToBack

    Hallo liebe Community

    Ich habe folgenden Code der so aussieht:

    VB.NET-Quellcode

    1. Private Sub new_object(ByVal image_location As String, ByVal location As System.Drawing.Point)
    2. Dim new_picbox As New PictureBox
    3. Dim ctms As New ContextMenuStrip
    5. 'ContextMenuStrip
    6. ctms.Items.Add("In den Vordergrund", Nothing, AddressOf tofront)
    7. ctms.Items.Add("In den Hintergrund", Nothing, AddressOf toback)
    8. ctms.Items.Add("Element Verkaufen")
    10. 'Object
    11. new_picbox.ContextMenuStrip = ctms
    12. new_picbox.BackgroundImage = Image.FromFile(image_location)
    13. new_picbox.Location = location
    14. AddHandler new_picbox.MouseDown, AddressOf Control_MouseDown
    15. AddHandler new_picbox.MouseMove, AddressOf Control_MouseMove
    16. AddHandler new_picbox.MouseUp, AddressOf Control_MouseUp
    17. Panel1.Controls.Add(new_picbox)
    18. End Sub
    20. Private Sub tofront()
    21. 'IN DEN VORDERGRUND
    22. End Sub
    24. Private Sub toback()
    25. 'IN DEN HINTERGRUND
    26. End Sub


    So nun erstellt mein Code automatisch eine neue PictureBox wenn man auf einen Button klickt und es erstellt auch ein Contextmenustrip damit man ein Menü hat wenn man rechtsklick
    auf die picbox macht.

    So nun soll der Eintrag "In den Vordergrund" und "In den Hintergrund" das Control in den Hintergrund/Vordergrund setzen wenn man draufklickt
    natürlich soll nur das im Hintergund gesetzt werden wo drauf auch der Rechtsklick ausgeführt wurde.

    Hoffentlich sind das genug Informationen für euch
    Danke im Vorraus!
    Wenn ich dir auf irgendeiner Art und Weise helfen konnte, drück doch bitte den "Hilfreich" Button :thumbup:

    Für VB.NET Entwickler: Option Strict On nicht vergessen!

    Definiere

    ClonkAndre schrieb:

    "In den Vordergrund" und "In den Hintergrund"
    Was soll da passieren?
    =====
    Mach eine Form mit mehreren Controls.
    Sieh Dir die Prozedur InitializeComponent() dieser Form an.
    Ändere die Reihenfolge mit

    Sieh Dir wieder die Prozedur InitializeComponent() dieser Form an.
    Arbeite die Unterschiede heraus.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @ClonkAndre: (korrekte) Kommasetzung bitte nicht vergessen. Es ist anstrengend, jeden Satz 3x lesen zu müssen, bevor man ihn versteht.
    Ohne jetzt den Wissenszuwachs durch RfGs Hinweis zunichte machen zu wollen (da folgendes nicht in der Designer.VB auftaucht): Jedes Control hat folgende 2 Methoden: .BringToFront(), .SendToBack()
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Tut mir leid das ich erst so spät antworte ich meine es so:

    Meine Controls werden Dynamisch erzeugt (also durch den Code) und jedes dieser Controls erhält ein ContextMenuStrip mit den Einträgen: "In den Hintergrund" und "In den Vordergrund" und wenn man halt auf
    ein Control z.b. In den Hintergrund drückt soll nur das im Hintergund gesetzt werden wo drauf auch der Rechtsklick ausgeführt wurde.

    Sollte verständlich sein oder?
    Wenn ich dir auf irgendeiner Art und Weise helfen konnte, drück doch bitte den "Hilfreich" Button :thumbup:

    Für VB.NET Entwickler: Option Strict On nicht vergessen!

    Ich hoffte, dass mein Beitrag auch verständlich war. Aber falls nicht: Gegeben sei ein ContextMenu, welches 2 Items hat: "nach vorn", "nach hinten". Der Rest geht so, inkl. Controlerzeugung:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim x As Integer = 10 'nur aus Geigelei, zur Control-Erzeugung
    4. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    5. Dim NewButton As New Button
    6. NewButton.Left = 100 + x
    7. NewButton.Top = 100 + x
    8. NewButton.Height = 40
    9. NewButton.Width = 80
    10. NewButton.Name = "Btn" & (x / 10).ToString
    11. NewButton.Text = (x / 10).ToString
    12. NewButton.ContextMenuStrip = ContextMenuStrip1
    13. Me.Controls.Add(NewButton)
    14. x += 10
    15. End Sub
    17. 'hier wird's wichtig
    18. 'Fehlerbehandlung noch einbauen!
    19. Private Sub NachVornToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NachVornToolStripMenuItem.Click
    20. DirectCast(DirectCast(sender, ToolStripMenuItem).Owner, ContextMenuStrip).SourceControl.BringToFront()
    21. End Sub
    23. Private Sub NachHintenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NachHintenToolStripMenuItem.Click
    24. DirectCast(DirectCast(sender, ToolStripMenuItem).Owner, ContextMenuStrip).SourceControl.SendToBack()
    25. End Sub
    26. End Class


    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

Facebook
Telefonspende