Menuitem Probleem

Status
Niet open voor verdere reacties.

johannetje2

Gebruiker
Lid geworden
26 okt 2008
Berichten
247
Ik heb bijvoorbeeld 2 tekstvakken. In de 1e kun je de een tekst invoeren. In de 2e kun je een URL invoeren.
Die kun je met behulp van een knop in een Listview zetten.

Nu heb ik deze code:

Code:
For Each lvItem As ListViewItem In ColumnHeader3.ListView.SelectedItems
            Dim WerkbalkItem As String = lvItem.Text
            MenuStrip1.Items.Add(WerkbalkItem).Name = MenuStrip1.Items.Count + 1

Maar nu is de vraag, hoe kan ik dan een click event erop zetten? Want het is niet vooraf gemaakt dus ik kan ook dit niet gebruiken:

Code:
Private Sub MenuStripLabel1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuStripLabel1.Click
    End Sub

Hoe doe ik dit?
 
Plaats dit onder onder datgene wat de menuitems aanmaakt:

Code:
        For Each lvItem As ListViewItem In ListView1.SelectedItems
            With MenuStrip1.Items.Add(lvItem.Text)
                AddHandler .Click, AddressOf ClickedMenuItem
            End With
        Next


Plaats dan deze sub ergens:

Code:
    Private Sub ClickedMenuItem(ByVal sender As System.Object, ByVal e As System.EventArgs)

        Dim ThisMenuItem As ToolStripMenuItem = TryCast(sender, ToolStripMenuItem)
        MessageBox.Show(ThisMenuItem.ToString)

    End Sub

De text van het geklikte menuitem verschijnt dan in een messagebox. :)
 
Maar nu wil ik bij het aanmaken dat hij op het click event van dat aangemaakte item een link zet die in textbox2 staat.
 
Verander:

Code:
With MenuStrip1.Items.Add(lvItem.Text)

In:

Code:
With MenuStrip1.Items.Add(lvItem.Text & " - " & TextBox2.Text)

Zoiets?
 
Ik denk dat ik te onduidelijk ben...

Ik wil dat hij op dat click event van dat menuitem de URL zet die in textbox2 staat.

Snap je 'm?
 
Ik wil nu dat als je op de knop drukt, dat er een nieuw item wordt aangemaakt met de naam van het geselecteerde item in de listview.

Daarna wil ik op het click event (appart van de andere) een webbrowser navigatie hebben naar de URL die in de textbox staat.
 

Bijlagen

  • Screenshot.png
    Screenshot.png
    21,2 KB · Weergaven: 30
Zo dan:
Code:
  Private Sub ClickedMenuItem(ByVal sender As System.Object, ByVal e As System.EventArgs)

               Process.Start(Textbox2.text)

    End Sub
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan