power point & visual basic 6

[Limby]

Este codigo es para visual basic .net, pero tal vez no cambie con respecto al 6 que pides, y si lo hace pues aqui tienes una guia de por donde puede ir la cosa. espero haberte ayudado

1 saludo


Private Sub LstArchivos_SelectedIndexChanged(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles LstArchivos.SelectedIndexChanged
Dim Extension As String = Microsoft.VisualBasic.Right _
(Me.LstArchivos.SelectedItem, 3).ToLower
Dim MiProceso As New System.Diagnostics.Process
Dim MiArchivo As String = Me.LstArchivos.SelectedItem
Select Case Extension
'Visualizamos la imagen.
Case "jpg", "gif", "bmp" : AbrirImagen()
'Abrimos el archivo *.txt con el Bloc de Notas
Case "txt" : MiProceso.Start("notepad.exe", MiArchivo)
'Abrimos el archivo *.doc con el word
Case "doc" : MiProceso.Start("winword.exe", MiArchivo)
'Abrimos el archivo *.ppt con el Power Point
Case "ppt" : MiProceso.Start("powerpnt.exe", MiArchivo)
'Abrimos el archivo *.pdf con el Acrobat
Case "pdf" : MiProceso.Start("acroRd32.exe", MiArchivo)
'Abrimos el archivo *.xsl con el Excell
Case "xsl" : MiProceso.Start("excel.exe", MiArchivo)
'Arbrimos la página web
Case "htm", "htm" & "l" : MiProceso.Start("IEXPLORE.exe", MiArchivo)
'Abrimos el archivo de música con el Reproductor de Windows
Case "wma", "mp3", "cda" : MiProceso.Start("wmplayer.exe", MiArchivo)
'Esta línea dice que tú debes de quemarte los ojos toda la bendita moche buscando
'en el Administrador de Tareas de Windows los archivos *.exe de cada programa con
' la cual quieres abrir los archivos que yo no he especificado....Hazlooooo..
Case MsgBox("Por favor debe abrir este archivo con el programa respectivo.")
End Select
LblFullName.Text = Directory.GetCurrentDirectory.ToString & "\" & Me.LstArchivos.SelectedItem
End Sub