Necesito que cuando le de click a un botón de comando llamado "commandbutton" se active el objeto llamado "OLE1" ¿Cómo Se Hace? Otra Pregunta Necesito que apenas se abra el formulario se abra el objeto llamado OLE1 y abra el archivo vinculado ¿Cómo Se Hace?
1 respuesta
Respuesta de Lucas Dasso
1
1
Lucas Dasso, Soy diseñador multimedia, con 10 años de experiencia
El tío de activación va a depender del tipo de objeto que este contenido en el objeto OLE. El contenedor OLE admite una serie de argumentos aplicables al objeto contenido mediante la siguiente sentencia: Objeto. DoVerb (verbo) Donde objeto es el nombre del ogjeto OLE y (verbo) es el tipo de acción que le podes aplicar y que listo a continuación: Constante - Valor - Descripción VbOLEPrimary - 0 - La acción predeterminada del objeto. VbOLEShow - -1 - Activa el objeto para edición. Si la aplicación que creó el objeto acepta laactivación in situ, el objeto se activa dentro del control contenedor OLE. VbOLEOpen - -2 - Abre el objeto en una ventana de aplicación independiente. Si la aplicación que creó el objeto acepta la activación in situ, el objeto se activa en su propia ventana. VbOLEHide - -3 - En los objetos incrustados, oculta la aplicación que creó el objeto. VbOLEUIActivate - -4 - Si el objeto acepta la activación in situ, activa el objeto para activación in situ y muestra las herramientas de la interfaz de usuario. Si el objeto no acepta la activación in situ, el objeto no se activa y se produce un error. VbOLEInPlaceActivate - -5 - Si el usuario mueve el enfoque al control contenedor OLE, crea una ventana para el objeto y prepara el objeto para su modificación. Si el objeto no es compatible con la activación con un simple clic del mouse, se producirá un error. VbOLEDiscardUndoState - -6 - Se usa cuando el objeto se activa para modificación descartando todo el registro de cambios que la aplicación del objeto no puede deshacer. El código del botón se vería más o menos así: Private Sub Command1_Click() objOLE.DoVerb VbOLEShow End Sub Para que se active solo al abrirse el formulario el código es el mismo pero en vez de escribirlo en el procedimiento Click del objeto botón, lo escribís en el procedimiento LOAD del objeto FORM y quedaría más o menos así: Private Sub Form_Load() objOLE.DoVerb VbOLEShow End Sub