Treeview e creazione file xml

[Lux]

Ciao a tutti, lo so il titolo non è dei migliori....
Allora, avrei due problemi, uno più semplice e l'altro più complesso.
Parto dal più semplice:
Ho creato una treview basilare, nella quale vorrei inserire le icone di stock di gambas, ho scritto questo ma non va...

Codice: [Seleziona]

 Dim pic_dir As Picture
  pic_dir.Picture = Picture["icon:/16/directory"]
TreeView1.Add("Video", "Video", pic_dir)
  TreeView1.Add("Audio", "Audio", pic_dir)
  TreeView1.Add("Pictures", "Pictures", pic_dir)
  TreeView1.Add("Menu", "Menu", pic_dir)
  TreeView1.Add("Object menu", "Object menu", pic_dir)

Ma non funge....
Il secondo problema è invece inerente alla creazione di un file xml con gambas....
ho visto che esiste un modulo per far ciò, ma non lo so utilizzare, siete a conoscenza dell'esistenza di un manualetto o una roba del genere per poter capirne il funzionamento...
Come sempre ciao e grazie mille a tutti!

[milio]

e provare cosi'?

Dim pic_dir As Picture
  pic_dir = Picture["icon:/16/directory"]
  TreeView1.Add("Video", "Video", pic_dir)
  TreeView1.Add("Audio", "Audio", pic_dir)
  TreeView1.Add("Pictures", "Pictures", pic_dir)
  TreeView1.Add("Menu", "Menu", pic_dir)
  TreeView1.Add("Object menu", "Object menu", pic_dir)

[Lux]

e provare cosi'?

Dim pic_dir As Picture
  pic_dir = Picture["icon:/16/directory"]
  TreeView1.Add("Video", "Video", pic_dir)
  TreeView1.Add("Audio", "Audio", pic_dir)
  TreeView1.Add("Pictures", "Pictures", pic_dir)
  TreeView1.Add("Menu", "Menu", pic_dir)
  TreeView1.Add("Object menu", "Object menu", pic_dir)

Cosi funge!!

[Lux]

Continuando con la treeview avrei un altro problemino..provo a spiegarlo:
Ho una treeview con 4 contenitori padre nei quali devo poter inserire un numero indefinito di figli, inoltre devo poter aggiongere quanti voglio contenitori padre.
Vorrei poter eliminare qualunque figlio dei 4 contenitori iniziali (quelli che non possono mai essere eliminati) e allo stesso tempo vorrei poter eliminare qualunque altro contenitore padre creato successivamente.
Ho provato scrivendo una cosa del genere:

Codice: [Seleziona]

 If TreeView1.Key = 0 Or 1 Or 2 Or 3 Or 4 Then
    Message.Error("I'can not remove this directory", "Ok")
  Else
    TreeView1.Remove(TreeView1.Key)  
  Endif

Ma non va....
Credo che key identifichi un numero, che però cambia ad esempio se nel contenitore padre 0 inserisco un oggetto, l'oggetto in 0 diventa key 1 e quindi sfasa tutta la numerazione....
Esiste un modo per identificare i contenitori padre che non devono poter essere eliminati dalla treeview?
In oltre nella treeview non riesco ad inserire più oggetti contemporaneamente impostando:

Codice: [Seleziona]

 Dialog.OpenFile(1)
  TreeView1.Add(Dialog.Path, Dialog.Path, hpictures, TreeView1.Key)

Questo logicamente mi è chiaro, dialog seleziona più oggetti ma poi dialog.path quale tra tutti è?
Dovrei quindi trovare un modo per impostare varie variabili ed ad ogni variabile associare un oggetto dialog.path, magari con un ciclo for, è giusto il ragionamento?
Ultima domanda per ora:
Per distinguere dei files ad esempio tra files audio, video o immagini, l'unico modo è quello di lavorare sulle estensioni dei files stessi?
Ciao e grazie mille!

[milio]

Piccolo esempio

[Lux]

Ho modificato in questo modo il tuo esempio per rendermelo più chiaro (non sono esperto.... )

Codice: [Seleziona]

Public Sub ToolButton3_Click()
  Dim haudio As Picture
  Dim hvideo As Picture
  Dim hpictures As Picture
  Dim hmenu As Picture
  Dim hobject As Picture
  Dim hext As String
  Dim hpath As String
  hpictures = Picture["icon:/16/image"]
  haudio = Picture["icon:/16/audio"]
  hvideo = Picture["icon:/16/video"]
  hmenu = Picture["icon:/16/screen"]
  hobject = Picture["icon:/16/tools"]
  Dialog.OpenFile(True) 
  For Each hpath In Dialog.Paths
      hext = File.Ext(hpath)
      Select Case hext 
             Case "mpeg" And "avi" And "mkv"  
                  TreeView1.Add(hpath, hpath, hvideo, "Video")
             Case "mp3" And "wma"
                  TreeView1.Add(hpath, hpath, haudio, "Audio")
             Case Else
                  TreeView1.Add(hpath, hpath, hpictures, TreeView1.Key)   
      End Select
  Next
End

Ma non fa quello che voglio....in pratica non aggiunge l'oggetto che io voglio nel posto giusto e con l'immagine giusta.....dove sbaglio?

[milio]

Riposta l'esempio modificato... son pigro...    

[Lux]

Riposta l'esempio modificato... son pigro...    

ma ho postato il codice.... su....
Hai ragione ho scritto che ho modificato il tuo esempio ma in realtà ho preso il tuo esempio e l'ho ho adattato al mio programmino....nel codice che ho postato prima.....quindi non posso postare il tuo esempio modificato...