Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Menüleiste fixieren
Autor: Volker Bunge
Datum: 11.01.13 15:48
Hallo DaveS, vielen Dank für das Bsp. Habe jetzt mal folgendes ausprobiert: Public Class frmThumbs Dim mnuMain As New MenuStrip With {.Parent = Me} ', .BackColor = Color.Green} ' Menüleiste einfügen Dim pan As New Panel With {.Parent = Me, .Dock = DockStyle.Fill, .AutoScroll = True, .Height = 50} Private Sub frmThumbs_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'Dim Barcodes_erkennen As New Button With {.Parent = pan, .BackColor = Color.Green, .Text = "Barcodes erkennen (&1)", .Top = 10, .Left = 10} 'Dim mnuload As New Button With {.Parent = pan, .BackColor = Color.Green, .Text = "Bilder laden (&2)", .Top = 10, .Left = 50} 'Dim Bild_drehen_UZS As New Button With {.Parent = pan, .BackColor = Color.Green, .Text = "Bild drehen UZS (&S)", .Top = 10, .Left = 100} 'Dim Bild_drehen_GUZS As New Button With {.Parent = pan, .BackColor = Color.Green, .Text = "Bild drehen GUZS (&A)", .Top = 10, .Left = 150} 'Dim Bild_Nach_Oben As New Button With {.Parent = pan, .BackColor = Color.Green, .Text = "Bild nach oben (&Q)", .Top = 10, .Left = 200} 'Dim Bild_Nach_Unten As New Button With {.Parent = pan, .BackColor = Color.Green, .Text = "Bild nach unten (&W)", .Top = 10, .Left = 250} 'Dim Bild_Löschen As New Button With {.Parent = pan, .BackColor = Color.Green, .Text = "Bild Löschen (&D)", .Top = 10, .Left = 300} mnuMain.Items.Add("Barcodes erkennen (&1)", Nothing, AddressOf Barcodes_erkennen_Click) ' Menüschaltfläche hinzufügen mnuMain.Items.Add("Bilder laden (&2)", Nothing, AddressOf mnuload_click) ' Menüschaltfläche hinzufügen mnuMain.Items.Add("Bild drehen UZS (&S)", Nothing, AddressOf Bild_drehen_UZS_Click) ' Menüschaltfläche hinzufügen mnuMain.Items.Add("Bild drehen GUZS (&A)", Nothing, AddressOf Bild_drehen_GUZS_Click) ' Menüschaltfläche hinzufügen mnuMain.Items.Add("Bild nach oben (&Q)", Nothing, AddressOf Bild_Nach_Oben_Click) ' Menüschaltfläche hinzufügen mnuMain.Items.Add("Bild nach unten (&W)", Nothing, AddressOf Bild_Nach_Unten_Click) ' Menüschaltfläche hinzufügen mnuMain.Items.Add("Bild Löschen (&D)", Nothing, AddressOf Bild_Löschen_Click) ' Menüschaltfläche hinzufügen Me.AutoScroll = False End Sub Also was funktioniert: - Das Menü wird erzeugt und die einzelnen Funktionen werden angesteuert. - Das Scrollen mit den Bildlaufleisten rechts und das erhalten des Menüs funktioniert. - Die Picturebox-Übersicht wird angezeigt - Das Mausrad scrollt nicht mehr die Anzeige nach unten und oben. Nur wenn ich per Select-Anweisung die erste Picturebox ansteuere, funktioniert das Mausrad (ist somit auch erledigt) - Die Textboxen, weitere Testbuttons und eine feststehende Picturebox sind optisch weg. Habe so eben auch dafür die Lösung gefunden. Habe einfach ein weiters Panel mit Dock = Left eingebaut und die Steuerelemente hier reingeschoben. Somit verstehe ich ein Panel als ein Fenster, welches Inhalte aufnehmen kann und fest stehen bleibt. Richtig? Vielen Dank Volker Beitrag wurde zuletzt am 11.01.13 um 16:05:04 editiert.

Menüleiste fixieren	2.384	Volker Bunge	10.01.13 16:53
Re: Menüleiste fixieren	1.777	DaveS	11.01.13 13:03
Re: Menüleiste fixieren	2.005	Volker Bunge	11.01.13 13:13
Re: Menüleiste fixieren	1.918	DaveS	11.01.13 13:32
Re: Menüleiste fixieren	1.800	*vr6kronos*	11.01.13 13:34
Re: Menüleiste fixieren	1.882	Volker Bunge	11.01.13 14:32
Re: Menüleiste fixieren	1.771	DaveS	11.01.13 14:46
Re: Menüleiste fixieren	1.859	Volker Bunge	11.01.13 15:48
Re: Menüleiste fixieren	1.787	DaveS	11.01.13 18:36
Re: Menüleiste fixieren	1.782	Volker Bunge	11.01.13 20:50
Re: Menüleiste fixieren	1.791	keco	12.01.13 11:16
Re: Menüleiste fixieren	1.850	Volker Bunge	12.01.13 12:35

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen