vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Erstellen von dynamischen Kontextmen?s - wann immer Sie sie brauchen!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Ein- und Umsteiger
(Codepost part I) 
Autor: murray_de_luxe
Datum: 07.11.07 00:33

Aber liebend gerne doch, evtl. versteht sichs dann hoffentlich besser was ich meine.
Habe alles was contextmenu betrifft in fett dargestellt, die Problemzone ist in fett und kursiv.
''' <summary>
		'''     add a treenode for treeview and mainmenuitem for contextmenu
		''' </summary>
		''' <returns>
		''' </returns>
Private Sub btn_adddir_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles btn_adddir.Click
        If menuitem_new.Text.Length > 0 Then
            If tv_dirs.Nodes.Count > 0 And Not IsNothing( _
              tv_dirs.SelectedNode) Then
                tv_dirs.SelectedNode.Nodes.Add(menuitem_new.Text.ToString)
                tv_dirs.SelectedNode.Expand()
                If tv_dirs.SelectedNode.Nodes.Count > 0 Then
                    Dim dirpath As New ArrayList
                    nodelist.Clear()
                    getParentNodes(tv_dirs.SelectedNode)
                    nodelist.Reverse()
                    For Each pnd As String In nodelist
                        dirpath.Add(pnd)
                    Next
                    Dim dirname As String = tmpPath
                    For int_j As Int32 = 0 To dirpath.Count - 1
                        dirname &= "\" & dirpath(int_j)
                        If Not Directory.Exists(dirname) Then
                            Directory.CreateDirectory(dirname)
                        End If
                    Next
                End If
            Else
                tv_dirs.Nodes.Add(menuitem_new.Text.ToString)
                ContextMenuStrip1.Items.Add(menuitem_new.Text.ToString)
                If Not Directory.Exists(tmpPath & "\" & _
                  menuitem_new.Text.ToString) Then
                    Directory.CreateDirectory(tmpPath & "\" & _
                    menuitem_new.Text.ToString)
                End If
                If rbtn_yes.Checked = True Then
                    ContextMenuStrip1.Items.Add("-")
                End If
            End If
        End If
    End Sub
'.......
Code ist leider zu lang bitte im nächsten Post weiterschauen
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
ToolStripMenuItem an einem zur Laufzeit erstellten Contextme...1.784murray_de_luxe05.11.07 11:26
Re: ToolStripMenuItem an einem zur Laufzeit erstellten Conte...879Micke06.11.07 23:18
(Codepost part I)865murray_de_luxe07.11.07 00:33
Re: (Codepost part II)915murray_de_luxe07.11.07 00:36
Re: ToolStripMenuItem an einem zur Laufzeit erstellten Conte...898murray_de_luxe09.11.07 12:24
Re: ToolStripMenuItem an einem zur Laufzeit erstellten Conte...1.178Melkor09.11.07 12:55
Melkor, du bist Gold wert, DANKE!!877murray_de_luxe09.11.07 14:42

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übersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel