Per entrar informació o desar-la des d'un programa cal conèixer les funcions de càrrega (Load) i desat (Save) d'arxius.
 
Primer cal tenir a la barra d'eines l'objecte CommonDialog (Diàleg comú) que no apareix per defecte.
 
Cal fer clic a sobre la barra d'eines amb el botó dret i triar Componentes:
 
commondialog1
 
I triar de la llista el control corresponent (Microsoft Common Dialog Control):
 
commondialog2
 
Els paràmetres que es poden canviar són:
 
CancelError: Si el fet que l'usuari cancel·li ha de donar missatge d'error o no.
DefaultExtension: La extensió per defecte dels fitxers.
DialogTitle: Nom que mostrarà el quadre.
FileName: Variable que desa el nom de fitxer que es tria o recupera.
Filter: Filtre de fitxers que mostrarà.
InitDir: Directori que mostrarà per defecte.
 
Exemple1: Diàleg comú de càrrega de fitxers:
 
    'Fa que nomes es vegin fitxers BMP
    CommonDialog1.Filter = "Imatges de mapa de bits (*.bmp)|*.bmp"
   
    'Executa Dialeg de obertura de fitxers
    CommonDialog1.ShowOpen
   
    'El nom de fitxer que s'hagi triat es posa com Picture1
    Set Picture1 = LoadPicture(CommonDialog1.FileName)
 
Exemple2: Diàleg comú de desat de fitxers:
 
    'Creo una variable de dibuix
    Dim Imatge As IPictureDisp
   
    'Guardo alli la imatge del objecte Picture1
    Set Imatge = Picture1.Image
   
    'Extensio amb la que desara
    CommonDialog1.Filter = "Imatges de mapa de bits  (*.bmp)|*.bmp"
   
    'Executa ordre de obrir dialeg de desar
    CommonDialog1.ShowSave
   
    'Desa imatge al fitxer escollit (si n'ha triat algun)
    If CommonDialog1.FileName <> "" Then SavePicture Imatge, CommonDialog1.FileName
   
    'Resetejo variable Imatge
    Set Imatge = Nothing
Darrera modificació: dilluns, 11 de novembre 2019, 09:48