Jump to content
PLC Forum

Brothers

Aggiungere Nodo Solo Se è Unico - ad un controllo TreeView in VB6

Recommended Posts

Brothers

Devo aggiungere dei nodi/indirizzi ad un controllo TreeView

e quando un nodo è già presente devo visualizzare un MsgBox.

Ho provato con questo codice ma mentre con una listBox funge

con un controllo TreeView non mi funziona, le proprietà sono differenti e non sò quale usare.

Se qualcuno mi può aiutare ringraziamenti anticipati.

Codice pulsante

------------------------------

On Error Resume Next

Dim sText As String

Dim x As Integer

Dim I As Integer

Dim nodX As Node

' Aggiunge il codice e il nome del dipendente.

msg = List1.ItemData(List1.ListIndex) & " "

msg = msg & List1.List(List1.ListIndex)

Label1.Caption = msg

TreeView1.ImageList = ImageList1

If Trim(Text2.Text) = "" Then Exit Sub

sText = Trim(Text2.Text)

For x = 0 To TreeView1.Nodes.Count - 1

If TreeView1.Nodes.Item(x) = sText Then

MsgBox "L'indirizzo " & Chr$(13) _

& Chr$(13) & Text2.Text & Chr$(13) _

& Chr$(13) & " Esiste già", vbInformation, App.Title

Exit Sub

End If

Next x

Set nodX = Trim(TreeView1.Nodes.Add(List1.ItemData(List1.ListIndex), tvwChild, , Text2.Text, 1))

For I = 0 To TreeView1.Nodes.Count - 1

If TreeView1.Nodes.Item(I) = sText Then

Exit For

End If

Next I

-------------------------------------------

Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.


×
×
  • Create New...