VB obtiene el tamaño de las imágenes de red
'Proyecto->Referencias->Verificar controles y automatización de Microsoft Shell->Aceptar
'Pegar código en Form1
Opción explícita
Función de declaración privada GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename como OPENFILENAME) siempre y cuando
Tipo privado OPENFILENAME
lStructSize tan largo
hwndOwner tan largo
hInstance tan largo
lpstrFilter como cadena
lpstrCustomFilter como cadena
nMaxCustFilter tan largo
nFilterIndex tan largo
lpstrFile como cadena
nMaxFile tan largo
lpstrFileTitle como cadena
nMaxFileTitle como largo
lpstrInitialDir como cadena
lpstrTitle como cadena
banderas como largo
nFileOffset como entero
nFileExtensionlpstrDefExt como cadena
lCustData como larga
lpfnHook como larga
lpTemplateName como cadena
Tipo de fin
Private Sub Form_Load()
Mover (Pantalla.Ancho - Ancho)\ 2, (Pantalla.Alto - Alto)\ 2
Me.AutoRedraw = Verdadero: Comando1 .Mover 30, 30
Me.Caption = "Ver tamaño de imagen":Command1.Caption = "Seleccione la imagen para ver"
End Sub
Privado Sub Command1_ Click()
Dim nDLG, shl como Shell32.Shell, shfd como Shell32.Folder