Dans certains cas, il nous serait agréable de pouvoir afficher un datagrid pré-rempli ou préformaté sans devoir à chaque fois réécrire le code.
Dans mon exemple j'ai voulu créer un user control qui héritait d'un datagrid afin de lui afficher les lecteurs logiques du serveur :P
J'ai rajouté un deuxieme exemple un peu plus complexe qui necessite un attribut pour pouvoir focntionner correctement, c'est l'attribut path il sert à spécifier un chemin et ensuite je remplis un datagrid avec les infos de tout les fichiers contenant le dossier :)
Soyons honnête, ce code ne sert à rien, il sert juste d'exemple et je vous fais confiance pour que ce code devienne utile :)
Source / Exemple :
'Fichier .vb
Imports System.ComponentModel
Imports System.Web.UI
Imports System.io
Namespace MesControles
Public Class GetLogicalDrive
Inherits System.Web.UI.WebControls.DataGrid
Protected Overrides Sub RenderContents(ByVal writer As System.Web.UI.HtmlTextWriter)
Dim monDataGrid As New System.Web.UI.WebControls.DataGrid
monDataGrid.DataSource = Directory.GetLogicalDrives
monDataGrid.DataBind()
monDataGrid.RenderControl(writer)
End Sub
End Class
Public Class GetFileInPath
Inherits System.Web.UI.WebControls.DataGrid
Private _path As String
Public Property Path() As String
Get
Return _path
End Get
Set(ByVal Value As String)
_path = Value
End Set
End Property
Protected Overrides Sub RenderContents(ByVal writer As System.Web.UI.HtmlTextWriter)
If Not Directory.Exists(_path) Then
writer.Write("Chemin spécifié inaccessible")
Exit Sub
End If
Dim monDataGrid As New System.Web.UI.WebControls.DataGrid
Dim mAarrayList As New ArrayList
Dim mArray() As String = Directory.GetFiles(_path)
If mArray.Length = 0 Then
writer.Write("Le chemin spécifié ne contient aucun fichier :)")
Exit Sub
End If
For Each repertoire As String In mArray
Dim dir As New DirectoryInfo(repertoire)
mAarrayList.Add(dir)
Next
monDataGrid.DataSource = mAarrayList
monDataGrid.DataBind()
monDataGrid.RenderControl(writer)
monDataGrid.Dispose()
End Sub
End Class
End Namespace
'---------------------------------------------------
'---------------------------------------------------
'---------------------------------------------------
' Fichier .aspx
'En haut de la page rajoutée :
<%@ Register TagPrefix="uc1" Assembly="MonAssembly" Namespace="MonAssembly.MesControles"%>
' et Rajouter ca ou vous avez envie
<uc1:GetLogicalDrive id="GetLogicalDrive" runat="server"/>
<uc1:GetFileInPath id="Getlogicaldrive1" runat="server" path="c:/mes documents/"/>
Conclusion :
J'ai pas mis les commentaires dans le code car il est assez court et je pense qu'il est preferable de laisser claire :)
Dans le fichier .vb on fait nos omports pour l'instant rien de spécial
Ensuite on déclare un Namespace puis une classe qui hérite de notre datagrid
J'ai pas parfaitement compris le fonctionnement de Protected Overrides Sub RenderContents('') mais ce que j'ai compris c'est que c'est cette sub qui sert à afficher le résultat (Je connais pas overrides) mais c'est comme ca que j'ai vu qu'il fallait faire dans l'aide :)
Ensuite on déclare un nouveau datagrid qu'on va mettre en forme et peupler
(Dans l'exemple j'ai un peu oublié la mis en forme :P)
Ensuite on ecrit notre datagrid (toujours pas compris comment :( )
Et c'est fini :)
Ensuite dans la page aspx, on déclare notre user control avec le nom de notre assembly du site, et le namespace
Si vous n'arrivez pas à faire marcher ce code, laissez moi un commentaire je tacherais d'y répondre, j'essayerais de comprendre à quoit sert exactement le mot clé Overrides et des que j'ai compris je vous explique :)
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.