Comment : utiliser un contrôle DocumentList
Mise à jour : novembre 2007
Si votre application est basée sur l'utilisation de fichiers, vous pouvez utiliser un contrôle DocumentList pour afficher une liste personnalisée de dossiers et fichiers situés dans le dossier Mes documents. Cette opération est semblable au mode de fonctionnement de Microsoft Pocket Word et Microsoft Pocket Excel. Le contrôle fournit les fonctionnalités suivantes à l'utilisateur :
Sélection, suppression, copie, déplacement des fichiers et dossiers, et affectation de nouveaux noms à ceux-ci.
Tri par nom de fichier, date ou taille.
Envoi de fichiers comme pièces jointes aux messages électroniques.
Envoi de fichiers par infrarouge à un autre périphérique.
Pour implémenter un contrôle DocumentList
Créez une application Windows Pocket PC avec une DocumentList.
Spécifiez les types de fichiers accessibles à l'aide de la propriété Filter.
Spécifiez les fichiers affichés initialement avec la propriété FilterIndex.
Spécifiez un dossier par défaut avec la propriété SelectedDirectory.
Fournissez du code pour gérer l'événement DocumentActivated.
Fournissez du code pour gérer l'événement DeletingDocument.
Fournissez du code pour gérer l'événement SelectedDirectoryChanged.
Exemple
Cet exemple affecte la valeur du formulaire à la propriété Parent du contrôle DocumentList, ce qui fait qu'il occupe l'intégralité de la zone client du formulaire. Si vous souhaitez qu'il occupe une plus petite zone, vous pouvez le placer dans un Panel et spécifier la longueur. La largeur d'un DocumentList doit être la largeur du formulaire.
' Set up file extension filters for a
' DocumentList and set the initial folder
' to the Busines folder under My Documents.
Sub SetupDocList()
' Assumes an instance of DocumentList,
' documentList1, has been declared.
With DocumentList1
.Parent = Me
.Filter = " |*.*| |*.txt;*.xml| |*.pwi;*.pdt| " & _
"|*.pxl;*.psw| |*.jpg;*.gif;*.bmp| |*.wav;*.wmv;*.mpg;"
.FilterIndex = 0
.SelectedDirectory = "Business"
End With
End Sub
' Handle the DocumentedActivated
' event with code to open the file.
Private Sub DocList_DocumentActivated(ByVal sender As Object, _
ByVal docevent As Microsoft.WindowsCE.Forms.DocumentListEventArgs) _
Handles DocumentList1.DocumentActivated
StatusBar1.Text = "Activated: " & docevent.Path
' Add code to open the selected file.
End Sub
' Handle the DeletingDocument
' event with code to close the file.
Private Sub DocList_DeletingDocument(ByVal sender As Object, _
ByVal docevent As Microsoft.WindowsCE.Forms.DocumentListEventArgs) _
Handles DocumentList1.DeletingDocument
StatusBar1.Text = "Deleted: " & docevent.Path
' Add code to close any instances of the file.
End Sub
' Handle the SelectedDirectoryChanged
' event with code that sets the correct
' path for opening and closing files.
Private Sub DocList_SelectedDirectoryChanged( _
ByVal sender As Object, ByVal e As System.EventArgs) _
Handles DocumentList1.SelectedDirectoryChanged
StatusBar1.Text = "Folder: " & DocumentList1.SelectedDirectory
' Add code to access the selected folder to open and close files.
End Sub
// Set up file extension filters for a
// DocumentList and set the initial folder
// to the Busines folder under My Documents.
private void SetupDocList()
{
// Assumes an instance of DocumentList,
// documentList1, has been declared.
documentList1.Parent = this;
// Create event handlers for DocumentList events.
documentList1.DocumentActivated +=
new DocumentListEventHandler(this.OnDocActivated);
documentList1.SelectedDirectoryChanged +=
new EventHandler(this.OnFolderSel);
documentList1.DeletingDocument +=
new DocumentListEventHandler(this.OnDelDoc);
documentList1.Filter = " |*.*| |*.txt;*.xml| |*.pwi;*.pdt| " +
"|*.pxl;*.psw| |*.jpg;*.gif;*.bmp| |*.wav;*.wmv;*.mpg;";
documentList1.FilterIndex = 0;
documentList1.SelectedDirectory = "Business";
}
private void OnDelDoc(object obj, DocumentListEventArgs DocArgs)
{
statusBar1.Text += "Deleted: " + DocArgs.Path;
// Add code to close any instances of the file.
}
private void OnDocActivated(object obj, DocumentListEventArgs DocArgs)
{
statusBar1.Text = "Activated: " + DocArgs.Path;
// Add code to open the selected file.
}
private void OnFolderSel(object obj, EventArgs eventg)
{
statusBar1.Text = "Folder: " + documentList1.SelectedDirectory;
// Add code to access the selected folder to open and close files.
}
Compilation du code
Cet exemple nécessite des références aux espaces de noms suivants :