race2
02-12-2003, 18:01
Comincio dall'inizio:
con questo popolo il primo livello di nodi:
---------------------------------------------------------------
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
TreeView1.BeginUpdate()
TreeView1.Nodes.Clear()
oConn.Open()
Dim oComm As New SqlCommand("SELECT ID_Pratica FROM Pratiche ORDER
BY ID_Pratica ASC", oConn)
Dim oRead As SqlDataReader = oComm.ExecuteReader
While oRead.Read()
Dim n1 As New MyNodes(oRead("ID_Pratica"), "Pratica ")
n1.Text = n1.Label + " " + n1.ID
TreeView1.Nodes.Add(n1)
End While
oConn.Close()
TreeView1.EndUpdate()
End Sub
-----------------------------------------------------------------
con questo estraggo l'ID o altri parametri del Nodo selezionato:
----------------------------------------------------------------------------
Private Sub TreeView1_AfterSelect(ByVal sender As Object, ByVal e As
System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect
Dim node As MyNodes = DirectCast(TreeView1.SelectedNode, MyNodes)
MsgBox(node.Label & " " & node.ID)
End Sub
----------------------------------------------------------------------------
con questa classe riesco a passare i parametri dal Nodo alla Sub che estrae
i parametri:
----------------------------------------------------------------------------
Public Class MyNodes : Inherits TreeNode
Public ID, Label As String
Public Sub New(ByVal _ID_ As String, ByVal Testo As String)
ID = _ID_
Label = Testo
End Sub
Public Overrides Function ToString() As String
Return ID + " " + Label
End Function
End Class
----------------------------------------------------------------------------
Pre avere un Nodo Figlio e quindi per potere ciccare nel [+] che si forma e
dare inizio all'evento "Expand" come devo fare ???
Vorrei sapere come creare un nodo "fasullo" da cancellare all'espanzione e
come collegare i nodi figli al nodo Madre ciccato.
Nel mio Database ci sono 4 tabelle:
"Categoria_1",
|
"Categoria_2",
|
"Categoria_3",
|
"Articoli"
tutte legate con i rispettivi "ID" .
con questo popolo il primo livello di nodi:
---------------------------------------------------------------
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
TreeView1.BeginUpdate()
TreeView1.Nodes.Clear()
oConn.Open()
Dim oComm As New SqlCommand("SELECT ID_Pratica FROM Pratiche ORDER
BY ID_Pratica ASC", oConn)
Dim oRead As SqlDataReader = oComm.ExecuteReader
While oRead.Read()
Dim n1 As New MyNodes(oRead("ID_Pratica"), "Pratica ")
n1.Text = n1.Label + " " + n1.ID
TreeView1.Nodes.Add(n1)
End While
oConn.Close()
TreeView1.EndUpdate()
End Sub
-----------------------------------------------------------------
con questo estraggo l'ID o altri parametri del Nodo selezionato:
----------------------------------------------------------------------------
Private Sub TreeView1_AfterSelect(ByVal sender As Object, ByVal e As
System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect
Dim node As MyNodes = DirectCast(TreeView1.SelectedNode, MyNodes)
MsgBox(node.Label & " " & node.ID)
End Sub
----------------------------------------------------------------------------
con questa classe riesco a passare i parametri dal Nodo alla Sub che estrae
i parametri:
----------------------------------------------------------------------------
Public Class MyNodes : Inherits TreeNode
Public ID, Label As String
Public Sub New(ByVal _ID_ As String, ByVal Testo As String)
ID = _ID_
Label = Testo
End Sub
Public Overrides Function ToString() As String
Return ID + " " + Label
End Function
End Class
----------------------------------------------------------------------------
Pre avere un Nodo Figlio e quindi per potere ciccare nel [+] che si forma e
dare inizio all'evento "Expand" come devo fare ???
Vorrei sapere come creare un nodo "fasullo" da cancellare all'espanzione e
come collegare i nodi figli al nodo Madre ciccato.
Nel mio Database ci sono 4 tabelle:
"Categoria_1",
|
"Categoria_2",
|
"Categoria_3",
|
"Articoli"
tutte legate con i rispettivi "ID" .