Cómo: Utilizar un control DocumentList
Actualización: noviembre 2007
Si su aplicación se basa en el trabajo con archivos, puede utilizar un control DocumentList para mostrar una lista personalizada de carpetas y archivos en la carpeta Mis documentos. Funciona de manera semejante a Microsoft Pocket Word y Microsoft Pocket Excel. El control proporciona al usuario las siguientes funciones:
Seleccionar, eliminar, copiar y mover archivos y carpetas, así como cambiar su nombre.
Ordenar por nombre, fecha o tamaño de archivo.
Enviar archivos como datos adjuntos de mensajes de correo electrónico.
Enviar archivos por infrarrojos a otro dispositivo.
Para implementar un control DocumentList
Cree una aplicación para Windows de Pocket PC con DocumentList.
Especifique los tipos de archivo a los que se puede tener acceso con la propiedad Filter.
Especifique los archivos que aparecerán inicialmente con la propiedad FilterIndex.
Especifique una carpeta predeterminada con la propiedad SelectedDirectory.
Escriba código para controlar el evento DocumentActivated.
Escriba código para controlar el evento DeletingDocument.
Escriba código para controlar el evento SelectedDirectoryChanged.
Ejemplo
Este ejemplo establece la propiedad Parent del control DocumentList del formulario, de modo que ocupe toda el área de cliente del formulario. Si desea que ocupe un área más pequeña, puede colocarlo en Panel y especificar la longitud. El ancho de DocumentList debe ser el ancho del formulario.
' 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.
}
Compilar el código
Para este ejemplo se requieren referencias a los siguientes espacios de nombres: