Accueil > Forum > > > > cours en ligne
cours en ligne
mercredi 19 mars 2008 à 11:54:16 |
cours en ligne

nerd24
|
Bonjour, est ce que qqun saurait ou je peux trouver un cours en ligne sur vb.net dans lequel une partie est consacrée au treeview. J'ai beau chercher je trouve pas. Merci d'avance
|
|
mercredi 19 mars 2008 à 12:33:32 |
Re : cours en ligne

Renfield
|
Exprime ton besoin, tes blocages.
les réponses se trouvent bien souvent dans la doc MSDN...
sachant que des exemples y sont très souvent dispo
|
|
mercredi 19 mars 2008 à 14:39:41 |
Re : cours en ligne

Le newbie
|
Salut, euh sinon là http://plasserre.developpez.com/vbintro2.htm
|
|
mercredi 19 mars 2008 à 15:09:47 |
Re : cours en ligne

nerd24
|
ba je les ai deja exprimé mais je repete:
j'ai fait un treeview sous vb.net. Dans Form1.vb j'ai ecrit le programme suivant:
Imports System Imports System.Collections.Generic Imports System.Text Imports System.Windows.Forms Imports System.IO Imports System.Diagnostics Imports System.Drawing Imports System.Data Public Class Form1 Private Sub TreeView1_AfterSelect( ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect Dim z As TreeNode For Each z In e.Node.NodesExplor(z) Next z End Sub Private Sub Form1_Load( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase .LoadTreeView1.Nodes.Add( "c:\" )TreeView1.Nodes.Add( "d:\" )TreeView1.Nodes.Add( "g:\" )TreeView1.Nodes.Add( "p:\" )Explor(TreeView1.Nodes.Item(0)) Explor(TreeView1.Nodes.Item(1)) Explor(TreeView1.Nodes.Item(2)) Explor(TreeView1.Nodes.Item(3)) End Sub Private Sub TreeView1_AfterCheck( ByVal sender As Object , ByVal e As _System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterCheck For Each Tn As TreeNode In e.Node.NodesTn.Checked = e.Node.Checked Next End Sub Private Sub Button5_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click End End Sub End Class
Et dans mon module:
Imports SystemImports System.IOImports System.Windows.FormsImports System.DrawingModule Module1Sub Explor(ByVal Node As TreeNode)TryNode.Nodes.Clear() Dim s AsStringForEach s In Directory.GetDirectories(Node.FullPath)Node.Nodes.Add(Path.GetFileName(s)) Next sCatchEndTryEndSubEnd ModuleDonc je recupere en gros dans mon treeview le poste de travail de l'ordi.
Mais je n'arrive pas a mettre les icone pour identifier fichier, lecteur cd...
Et je dois vraiment garder le treeview.
|
|
mercredi 19 mars 2008 à 15:13:30 |
Re : cours en ligne

Renfield
|
ok, donc au programme:
possible de binder le treeview a l'imagelist systeme, et de lier les Nodes aux icones en utilisant les bons index...
possible aussi de dupliquer tes icones, en les ajoutant dans ton imagelist
|
|
mercredi 19 mars 2008 à 15:17:33 |
Re : cours en ligne

nerd24
|
En fait je suis debutant et meme avec les livres et ce que je vais voir sur internet j'ai beaucoup de mal. Mais il existe pas un petit code que je mettrai dans Form1.vb pour le realiser. Je pensais que c'etait un truc qui se faisait couramment.
|
|
mercredi 19 mars 2008 à 15:38:38 |
Re : cours en ligne

Renfield
|
http://www.codeguru.com/forum/archive/index.php/t-417770.html
|
|
mercredi 19 mars 2008 à 15:48:58 |
Re : cours en ligne

Renfield
|
Réponse acceptée !
ce qui donne :
Imports System.IO
Imports System.Runtime.InteropServices
Public Class Form1
Private Structure SHFILEINFO
Public hIcon As IntPtr ' : icon
Public iIcon As Integer ' : icondex
Public dwAttributes As Integer ' : SFGAO_ flags
<MarshalAs(UnmanagedType.ByValTStr, SizeConst:=260)> _
Public szDisplayName As String
<MarshalAs(UnmanagedType.ByValTStr, SizeConst:=80)> _
Public szTypeName As String
End Structure
Private Declare Auto Function SHGetFileInfo Lib "shell32.dll" _
(ByVal pszPath As String, _
ByVal dwFileAttributes As Integer, _
ByRef psfi As SHFILEINFO, _
ByVal cbFileInfo As Integer, _
ByVal uFlags As Integer) As IntPtr
Private Const SHGFI_ICON = &H100
Private Const SHGFI_SMALLICON = &H1
Private Const SHGFI_LARGEICON = &H0 ' Large icon
Private Const MAX_PATH = 260
Private Sub AddImages(ByVal strFileName As String)
Dim shInfo As SHFILEINFO
shInfo = New SHFILEINFO()
shInfo.szDisplayName = New String(vbNullChar, MAX_PATH)
shInfo.szTypeName = New String(vbNullChar, 80)
Dim hIcon As IntPtr
hIcon = SHGetFileInfo(strFileName, 0, shInfo, Marshal.SizeOf(shInfo), SHGFI_ICON Or SHGFI_SMALLICON)
Dim MyIcon As Drawing.Bitmap
MyIcon = Drawing.Icon.FromHandle(shInfo.hIcon).ToBitmap
ImageList1.Images.Add(strFileName.ToString(), MyIcon)
End Sub
Private Sub AddAllFolders(ByVal TNode As TreeNode, ByVal FolderPath As String)
Try
For Each FolderNode As String In Directory.GetDirectories(FolderPath)
Dim SubFolderNode As TreeNode = TNode.Nodes.Add(FolderNode.Substring(FolderNode.LastIndexOf("\"c) + 1))
SubFolderNode.Tag = FolderNode
SubFolderNode.Nodes.Add("Loading...")
Next
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim Tnode As TreeNode = TreeView1.Nodes.Add("(Drive C:)")
AddImages("C:\Windows\")
AddAllFolders(Tnode, "C:\")
ListView1.View = View.Details
' Add a column with width 80 and left alignment
ListView1.Columns.Add("File Name", 150, HorizontalAlignment.Left)
ListView1.Columns.Add("File Type", 80, HorizontalAlignment.Left)
ListView1.Columns.Add("Date Modified", 150, HorizontalAlignment.Left)
End Sub
Private Sub Treeview1_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect
Dim FileExtension As String
Dim SubItemIndex As Integer
Dim DateMod As String
ListView1.Items.Clear()
If TreeView1.SelectedNode.Nodes.Count = 1 AndAlso TreeView1.SelectedNode.Nodes(0).Text = "Loading..." Then
TreeView1.SelectedNode.Nodes.Clear()
AddAllFolders(TreeView1.SelectedNode, CStr(TreeView1.SelectedNode.Tag))
End If
Dim folder As String = CStr(e.Node.Tag)
If Not folder Is Nothing AndAlso IO.Directory.Exists(folder) Then
Try
For Each file As String In IO.Directory.GetFiles(folder)
e.Node.Nodes.Add(file.Substring(file.LastIndexOf("\"c) + 1))
Next
Catch ex As Exception
MsgBox(ex.Message)
End Try
End If
If Not folder Is Nothing AndAlso IO.Directory.Exists(folder) Then
Try
For Each file As String In IO.Directory.GetFiles(folder)
FileExtension = IO.Path.GetExtension(file)
DateMod = IO.File.GetLastWriteTime(file).ToString()
AddImages(file)
ListView1.Items.Add(file.Substring(file.LastIndexOf("\"c) + 1), file.ToString())
ListView1.Items(SubItemIndex).SubItems.Add(FileExtension.ToString() & " File")
ListView1.Items(SubItemIndex).SubItems.Add(DateMod.ToString())
SubItemIndex += 1
Next
Catch ex As Exception
MsgBox(ex.Message)
End Try
End If
End Sub
Private Sub Treeview1_BeforeExpand(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewCancelEventArgs) Handles TreeView1.BeforeExpand
If e.Node.Nodes.Count = 1 AndAlso e.Node.Nodes(0).Text = "Loading..." Then
e.Node.Nodes.Clear()
AddAllFolders(e.Node, CStr(e.Node.Tag))
End If
End Sub
End Class
|
|
mercredi 19 mars 2008 à 15:56:21 |
Re : cours en ligne

nerd24
|
Merci je pense que c'est exactement ce que je cherche. Un dernier truc. J'ai lu vite fait le document e tout a la fin il y a ecrit : Add the Call to the AddImages function, in the TreeView_AfterSelect event, just underneath DateMod = IO.File.GetLastWriteTime(file).ToString() Est ce que tu pourrais me preciser ce que je dois faire, ce que je dois ecrire plus precisement et ou?
|
|
mercredi 19 mars 2008 à 16:00:48 |
Re : cours en ligne

nerd24
|
j'avais pas vu ton dernier message et je l'ai recopié tel quel et ça marche mais sans icone!!!!
|
|
Cette discussion est classée dans : ligne, cours
Répondre à ce message
Sujets en rapport avec ce message
Mise à jour datagrid ! Ligne en cours non pris en compte !!! [ par boumbo73 ]
Bonjour !Voila ca va faire une semaine que je bloque completement !J'ai un datagrid dans lequel j'importe des données d'une base de données. Lorsque j
DatagridView valider les modifications en cours [ par Sbt ]
Bonjour à tous,Voici mon probleme :j'ai un datagridview. lorsque l'utilisateur de l'appli modifie une cellule (de type combobox), le picto en debut de
RichTextBox et sélection de ligne [ par astvt ]
Bonjour, j'écris un programme de simulation pour micro et j'utilise une zone RichTextBox pour afficher le programme à simuler.Une RichTextBox plutot q
fameuse datagridview que je n'arrive toujours pas à créer [ par josker ]
Hello !!! :pJ'ai un gros probleme et cà urge, et je vous demande de l'aide!!!J'aimerais créer un tableau comme sur excel, avec les colones " code, des
suppression ligne conditionnelle [ par chinou51000 ]
Bonjour, j'ai crée une macro mais celle me pose quelques problemes... j'ai deux listes de nom dans 2 feuilles différentes, chacune dans la colonne "A
[VBA]Bouton pour créer ligne de textbox [ par Ocin2 ]
Bonjour, Je créer sur VB un devis automatisé. Dans un userform j'ai créé 3 textboxs les uns à côté des autres, le premier correspondant à la descript
Macro pour fixer hauteur ligne et largeur colonnes [ par darchisgod ]
Bonjour, voila une question toute bête mais que je n'arrive pas à résoudre. je voudrais créer une macro qui me permet d'avoir une hauteur de ligne de
Je propose un Jeu de Géographie : Apprentissage ou Test de vos connaissances du réseau hydrographique français. [ par gmarquer ]
J'ai été faciné par un jeu trouvé sur Internet qui proposait, sur une carte de France, de cliquer sur le fleuve ou la rivière demandé(e). Bonne ou ma
Problème pour lire un fichier tout se trouve sur la même ligne [ par le_bricolo ]
bonjour, J'ai un problème pour lire un fichier, tout le fichier se trouve sur une ligne. Lorsque j'ouvre le fichier en question avec le bloc note de
Ajout d'items listbox a l'aide d'un streamreader sur un .txt [ par FaonManager ]
Bonjour, je suis en train de développer un navigateur web en vb.net mais j'ai un soucis, je veux faire un système de favoris qui lorsque l'on clique s
Livres en rapport
|
Derniers Blogs
[HTML5] SLIDES ET DéMOS : AUTOUR DU W3C , NOUVEAUX STANDARDS ET WEB MOBILE (LILLE)[HTML5] SLIDES ET DéMOS : AUTOUR DU W3C , NOUVEAUX STANDARDS ET WEB MOBILE (LILLE) par Gio
Très bonne après-midi passée lors cette conférence avec le W3C, organisée par L' Inria sur les nouveaux standards, ce Mardi 14 Février, on sent vraiment que çà bosse chez eux, et l'avenir est très très prometteur pour le HTML5, notammen...
Cliquez pour lire la suite de l'article par Gio GESTION D'EXCEPTION AVEC LES TASKSGESTION D'EXCEPTION AVEC LES TASKS par richardc
Nous avons vu dans un précédent article comment utiliser Task pour effectuer des opérations dans un autre thread.
Malheureusement, comme tout le monde n'est pas parfait, il se peut que cette exécution se passe mal et qu'une exception se produise.
La...
Cliquez pour lire la suite de l'article par richardc DéMARRONS AVEC LES TASKSDéMARRONS AVEC LES TASKS par richardc
Que vous le vouliez ou non, le développement multi-tâche est maintenant une obligation pour toute nouvelle application. Il est donc vital d'en comprendre les mécanismes et de s'y mettre le plus tôt possible.
En attendant le .NET Framework 4.5 avec le...
Cliquez pour lire la suite de l'article par richardc SLIDE & DéMO TECHDAYS 2012 - FAST & FURIOUS XAML APPSSLIDE & DéMO TECHDAYS 2012 - FAST & FURIOUS XAML APPS par Vko
Retrouvez les slides et les démo de ma session Fast & Furious XAML Apps. A ceux qui se posent la question : "est-ce que le code de la DataGrid est disponible?", je vous répondrais "pas encore". Je vais mettre en place un projet codeplex pour part...
Cliquez pour lire la suite de l'article par Vko XNA IS DEAD!XNA IS DEAD! par richardc
Depuis la semaine dernière (et grâce aux TechDays 2012), je me penche activement sur la nouvelle version de Windows, aka Windows 8. Vous me direz, il était temps puisque la première preview date de Septembre dernier.
OK. Remarquez, on n'en est qu'aux...
Cliquez pour lire la suite de l'article par richardc
Forum
RE : VITESSERE : VITESSE par Renfield
Cliquez pour lire la suite par Renfield RE : VITESSERE : VITESSE par ucfoutu
Cliquez pour lire la suite par ucfoutu MACRO VBA EXCELMACRO VBA EXCEL par sigma17
Cliquez pour lire la suite par sigma17
Logiciels
DocTranslate (V3.1.0.0)DOCTRANSLATE (V3.1.0.0)DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom... Cliquez pour télécharger DocTranslate Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System
|