Le portail francophone de la géomatique

Bonjour,

Pour ton point 1..j'ai déja imaginer quelque chose du genre, mais pour se faire il te faudrait créer un fichier text qui garde en mémoire les enregistrement précédent (si j'ai bien comprise ce que tu veux faire) et qui est ensuite lu lors de l'affichage de ta boite de dialogue (sous fenêtre porte a confusion).

Pour ton point 2, il te manque un argument

Declare sub main

dim NomFichier as string

Sub main

NomFichier = FileSaveAsDlg("","Test",".wor","Indiquer le chemin d'accès")
If NomFichier <> "" then
Save Workspace as NomFichier

end if
end sub

A+
JF

La fenêtre de mise en page peut être enregistrer en tant qu'image avec le save window ex :

Save Window 152851632 As "C:\....\Nom.BMP" Type "BMP" Width 8.5 Units "in" Height 11 Units "in" Resolution 96

.

Si non il peut être possible de l'enregistrer en tant que .wor.

Par contre j'ai déja fait un .mbx qui lorsque tu enregistrais une table dans le mbx (qui était une sorte de catalogue), le nom et le chemin était enregistrer respectivement dans 2 champs dans une table tiers qui servait de base de données.  Dans ma boite de dialogue j'avais une liste box qui énumérait tout les nom de table enregistrer dans la table tiers. Dans mon cas, lorsque tu choisissais une table dans le listbox et cliquait sur ouvrir, la table s'ouvrait grace au deuxième champ (champ qui contient le chemin de la table).  Il y avait aussi un mapwindow dans mon dialogue pour prévisualiser la table avant de l'ouvrir.

JF

Comme ceci

declare sub dialog
declare sub enregistre
dim output_filename, output_filedir as string

sub dialog
    Control StaticText position 10, 100 Title "Enregistrer la table sous :"
    control edittext ID 1 position 10, 85 width 140
    control button ID 2 position 155, 85 width 45 height 15 title "Enregistrer" calling enregistrer
end sub

sub enregistrer
    dim output_specs, output_filepath, Enrg_produits_nom as string

    output_specs = FileSaveAsDlg("C:\...","Untiteled","tab","Enregistrer la Nouvelle Table Sous: ")
    
    if PathToFileName$(output_specs) <> "" then
        output_filedir  = PathToDirectory$(output_specs)
        output_filename = PathToFileName$(output_specs)
        output_filepath = output_filedir + output_filename
        Alter Control 1 Value output_filepath
    else dialog preserve
    end if
end sub

JF

Dernière modification par jean94 (Mon 14 March 2011 14:03)