Ejemplos usando el Api de windows para Visual basic

9 - Cuadro de diálogo Vista previa de archivo para los ficheros de video

Este ejemplo es practicamente idéntico a los cuadro de diálogo comunes, con la diferencia que nos muestra una previa en miniatura de los ficheros de video que seleccionamos en el cuadro de diálogo.

Nota importante: yo no he podido hacerlo funcionar en Xp, en versiones anteriores de Windows funciona bien.

Código fuente en un formulario

Option Explicit Private Const OFN_EXPLORER = &H80000 'Estructura de datos openfilename Private Type OPENFILENAME lStructSize As Long hwndOwner As Long hInstance As Long lpstrFilter As String lpstrCustomFilter As String nMaxCustFilter As Long nFilterIndex As Long lpstrFile As String nMaxFile As Long lpstrFileTitle As String nMaxFileTitle As Long lpstrInitialDir As String lpstrTitle As String flags As Long nFileOffset As Integer nFileExtension As Integer lpstrDefExt As String lCustData As Long lpfnHook As Long lpTemplateName As String End Type 'Api GetOpenFileNamePreview para abrir el cuadro de diálogo Private Declare Function GetOpenFileNamePreview _ Lib "msvfw32.dll" ( _ ByRef lpofn As OPENFILENAME) As Long Private Declare Function CloseHandle Lib "kernel32" ( _ ByVal hObject As Long) As Long Private Sub Form_Load() 'Declaramos una variable para manejar la estructura Dim OFN As OPENFILENAME, Ret As Long 'Le establecemos valores a la estructura del cuadro de dialogo With OFN .lStructSize = Len(OFN) .hInstance = App.hInstance .hwndOwner = Me.hwnd .lpstrTitle = "Abrir archivo" .lpstrFilter = "AVI file (*.avi)" + Chr$(0) + "*.avi" + Chr$(0) + "All files (*.*)" + Chr$(0) + "*.*" .lpstrFile = String(255, 0) .nMaxFile = 255 .flags = OFN_EXPLORER End With 'Llamamos a la función Ret = GetOpenFileNamePreview(OFN) 'Si ret es distinto de 0 handubo todo bien If Ret <> 0 Then CloseHandle Ret MsgBox "El archivo elegido es: " + _ Left$(OFN.lpstrFile, _ InStr(1, OFN.lpstrFile, Chr$(0)) - 1) End If End Sub

Enlaces relacionados:

Commondialog de windows para vista previa de imágenes

Buscar en Recursos vb