Sección de códigos, trucos y ejemplos para visual basic

Clic para descargar Velneo Open source Software - Plataforma para el desarrollo de aplicaciones sobre base de datos

255 - Control OLE de visual basic

<Volver> - Anterior - Siguiente

Simple ejemplo que permite vincular un documento para visualizarlo en el contenedor OLE, y también poder imprimirlo

La rutina necesita dos

CommandButton
un control Common Dialog
y un control OLE llamado OLE1

Al presionar Command1 se selecciona el archivo y carga el documento, El command2 es para imprimir el mismo.

En la imagen se cargó un documento de word en el OLE

vista del contenedor OLe y el documento cargado

Nota: para expandir ( hacer un Autosize del OLE igual al tamaño del documento) utilizar la propiedad SizeMode con el valor 2. No se si tendrá alguna forma de colocarle barras de scroll en caso que sea muy grande el documento. Lo que se me ocurre que se podría hacer es colocarlo dentro de un picturebox con barras de scroll para solucionar lo dicho

Código fuente en el formulario

Option Explicit '*************************************************************************** '* Ejemplo del control OLE de visual basic '*************************************************************************** Private Sub Command1_Click() Const FILTRO_ARCHIVOS As String = "Archivos de Word|*.doc|" & _ "Archivos de Excel|*.xls|" & _ "Todos los archivos|*.*" With CommonDialog1 .DialogTitle = " Seleccionar documento " .Filter = FILTRO_ARCHIVOS .ShowOpen If .FileName = vbNullString Then Exit Sub Me.Caption = .FileName 'Carga el documento en el objeto OLE OLE1.CreateLink .FileName End With End Sub ' Imprime el documento vinculado Private Sub Command2_Click() OLE1.Object.ActiveSheet.PrintOut Copies:=1, Collate:=True End Sub Private Sub Form_Load() 'Muestra el contenido, 1 muestra el ícono en el OLE OLE1.DisplayType = 0 Command1.Caption = " Incrustar en OLE" Command2.Caption = " Imprimir el documento " End Sub

Recursos vb 6.0 - Enlaces relacionados

Utilidad para trabajar con el control OLE

Buscar en Recursos vb