Ejemplos usando el Api de windows para Visual basic
<Volver> - Anterior - Siguiente
El ejemplo tiene un módulo de clase que tiene un método para abrir el diálogo. Al método Show se le debe enviar como parámetro el control RichTextBox y las extensiones a visualizar,
Al abrirse, el control richTextBox se posiciona dentro de la ventana del cuadro de diálogo con la api SetParent y otras para redimensionar el control. Luego al seleccionar un archivo RTF o de texto , se carga el contenido del mismo con el método Loadfile del RichTextBox
Nota: tiene una propiedad para establecer el ancho del RichTextbox de la ventana, pero esa medida no es el ancho real del RichTextBox en pixeles, si no que por defecto , si no se indica un valor se visualziará con un ancho de 236 pixeles. O sea que al indicar el valor para el ancho se le sumará a estos 236
Importante : el ejemplo tiene un error que es el siguiente
El control RichTextBox que se envia como parámetro al método Show, debe ser parte de un array de RichTextBox, y se debe crear uno con el método Load y enviar este a la función . Es decir :
.ShowOpenFileDialog(RichTextBox1(1), Me, rtf + TXT)
Por que si se envia directamente el control sin que forme parte de un array o matriz de control , por ejemplo :
.ShowOpenFileDialog(RichTextBox1, Me, rtf + TXT)
La primera ves que se abra el diálogo, se cargará correctamente el fichero seleccionado con el método Loadfile , pero la segunda ves que se abra el Diálogo, fallará el método. ( No se si es un bug del RichTextBox o un error en el código fuente)
Buscar en Recursos vb
Recursos visual basic - Buscar - Privacidad - Copyright © 2005 - 2009 - www.recursosvisualbasic.com.ar