Context menu

[arnoudx6]

Hallo iedereen ,

Ik ben weer eens met een Visual basic projectje bezig en nu heb ik jullie hulp nodig

Zoals je kunt zien in mijn Code :

Imports System.IO

Public Class Form1
    Private Sub NotifyIcon1_MouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseDoubleClick

    End Sub


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim Files As String() = Directory.GetFiles("ConfigFiles\")
        Dim Filename As String
        For Each Filename In Files
            Filename = Filename.Replace(".proxy", "")
            Filename = Filename.Replace("ConfigFiles\", "")
            Me.ContextMenuStrip1.Items.Add(Filename)

        Next
    End Sub
End Class

Haal ik uit de Map ConfigFiles alle bestanden op en laat ze ( na wat tekst verbouwing ) in mijn context menu zetten

Nu komt de vraag

Hoe kan ik nu instellen dat als ik op een van die context menu knoppen klik, dat ik daar een functie aan kan hangen normaal kan je dat in de code verwerken bijv.

    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click

    End Sub

Maar omdat de naam variable is weet ik niet wat ik moet doen

Ik hoop dat jullie mijn vraag snappen en kunnen helpen

Alvast bedankt ,

Arnoud

 

[yayme]

Voor exitten moet je de code
Application.exit gebruiken

 

[The Mighty Atom]

Vervang je bestaande Form Load sub met deze Form Load sub:

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        For Each file As FileInfo In New DirectoryInfo("ConfigFiles\").GetFiles("*.*")
            Dim tsmi As New ToolStripMenuItem
            tsmi.Text = file.Name.Replace(".proxy", Nothing).Replace("ConfigFiles\", Nothing)
            AddHandler tsmi.Click, AddressOf tsmi_Click
            ContextMenuStrip1.Items.Add(tsmi)
        Next
    End Sub

En voeg verder deze sub aan je Form toe:

    Private Sub tsmi_Click(sender As Object, e As EventArgs)
        MessageBox.Show(sender.Text & " clicked!")
    End Sub

 

[arnoudx6]

Bedankt voor de Hulp

Bedankt voor de reacties tot nu toe Ik ga vanavond mijn code aanpassen ( Ben nu aan het werk )

Ik laat het jullie weten :thumb:

gr Arnoud

 

[arnoudx6]

Het is gelukt

Dankje wel Jongens het werkt