Bueno, Voy a Intentar Ayudarte.
Mira Antes que nada Comenza Borrando o Bloquiando estas Lineas.
Busca en el Cliente.
- frmPres.Picture = LoadPicture(App.path & "\Graficos\bosquefinal.jpg")
- frmPres.Show vbModal 'Es modal, así que se detiene la ejecución de Main hasta que se desaparece
Yo le agrego un ' Adelante De esa Forma Los Bloquias Por si el Dia De mañana Decidis Volver a Tener Imagenes en La presentacion.
Luego Buscas.
- Me.Picture = LoadPicture(App.path & "\Graficos\alkonao2.jpg")
- 'Me.Picture = LoadPicture(App.path & "\Graficos\newfinal.jpg")
Bueno Ahi ya tendrias Una presentación sin Imagenes, Osea te quedaria El Form Cargando, y luego Directamente El Form Connect. Ahora Veamos la Parte de Introducir Una reproducion de video en el medio (MPEG,AVI,Etc...)
Bueno ahora mira, Este codigo es basico para cualquier tipo de aplicacion solo es para que te orientes.
primero declaramos las funciones.
- Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
-
Luego creamos dos botones uno que es con el que vamos a buscar el archivo que deseamos ejecutar.Si queres ponerle Botones como Iniciar estilo en un Launcher, me explico, en caso que lo quieras hacer automatico es mas Sencillo tenes que poner en el load que ejecute una ruta especifica Eso programalo como quieras a Tu gusto es solo una linea.
- Private Sub Command1_Click()
-
- Command2.Enabled = False
- Label1.Caption = ""
- CommonDialog1.DialogTitle = "Buscar archivo... "
- CommonDialog1.FileName = ""
- CommonDialog1.Filter = "Todos los archivos|*.*"
- CommonDialog1.InitDir = "c:\"
-
-
- CommonDialog1.ShowOpen
-
- If CommonDialog1.FileName <> "" Then
- Label1.Caption = CommonDialog1.FileName
- Command2.Enabled = True
-
- Else
-
- Label1.Caption = "Ningun Archivo se ha Cargado"
- End If
-
- End Sub
Luego creamos el boton que es el que ejecutara el archivo antes buscado y que se encuentra cargado en el comand dialog (la ruta), si al buscar el archibo le damos cancelar y no seleccionamos ningun archivo este sacara un mensaje y no activara el command2.
- Private Sub Command2_Click()
-
- Dim res As Long
- res = ShellExecute(Me.hwnd, "Open", Label1.Caption, "", "", 1)
- End Sub
Bueno con este CODE podes ejecutar Archivos.
Ahora te dejo un ejemplo Para Ejecutable con los codigos de Un reproductor extraido de una Guía de Google, Capaz de reproducir (Varios Formatos) Si te parece mas sencillo modificarlo de ahi que generarlo vos, es a tu gusto.
Lo unico recorda que en el Form Modifiques el Load y genera Una ruta Directa quitale la Barra de seleccion. Es una pavada y Luego modifica qe en ves de que se cargue esas imagenes se ejecute el Form que generaste, y luego saltee al Connect.
El form que te paso ya tiene las librerias cargadas, y la dimension la podes ajustar a tu gusto.
Descargar Ejemplo Reproductor en VB Codigos.
Click ACA!!
http://www.recursosvisualbasic.com.ar/htm/utilidades-codigo-fuente/zip/reproductor-multimedia-visual-basic-2.zipPara mi es la Forma mas sencilla, Yo hice Varias Interfaces, en Flash osea genero la reproduccion automatica de un archivo .SWF pero es distinto ya que se hace mediante la carga de una sola Libreria, Luego Programas un par de lineas para ejecute automaticamente y reconozca la programacion Scripts .Aca las librerias que te servirian de Reproduccion serian.Windows Multimedia 6.0 y Windows Media Player Pero Si configuras la Primera para que se ejecute automaticamente Tambien Funcionaria la segunda libreria No te va servir para lo que deseas hacer ya que se ve la imagen del Reproductor.
Si no entendiste Avisame que trato de hacerte un Codigo, paso por paso pero trata de guiarte y entender como Funcionan los codigos que te deje. Desp es adaptar a la aplicacion AO.
Saludos!!