Propiedades del objeto VB
'Proyecto-gt; Verifique los controles y automatización de Microsoft Shell-gt; está pegado al formulario Form1
Opción explícita
Función de declaración privada GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) Siempre
Tipo privado OPENFILENAME
lStructSize tan largo
hwndOwner tan largo
hInstance tan largo
lpstrFilter como cadena
lpstrCustomFilter como cadena
nMaxCustFilter como largo
nFilterIndex como largo
lpstrFile como cadena
nMaxFile como largo
lpstrFileTitle como cadena
nMaxFileTitle como larga
lpstrInitialDir como cadena
lpstrTitle como cadena
banderas como larga
nFileOffset como entero
nFileExtensionlpstrDefExt como cadena
lCustData como largo
lpfnHook como largo
lpTemplateName como cadena
Tipo final
Sub privado Form_Load()
Mover (Ancho de pantalla - Ancho)\ 2, (Alto de pantalla - Alto)\ 2
Me.AutoRedraw = True: Command1.Move 30, 30
Me.Caption = "Ver tamaño de imagen": Command1.Caption = "Seleccione la imagen para ver"
End Sub
Subcomando privado1_ Click()
Dim nDLG, shl como Shell32.Shell, shfd como Shell32.Folder