Annonce
Pour sa 21ème année, l’association GeoRezo a toujours besoin de vous !
10€ = 1 mois de frais bancaires ; 15€ = 12 mois de nom de domaine ; 30€ = 1 semaine de location des serveurs …
Retrouver nos membres bienfaiteurs
#1 Wed 02 April 2003 16:29
- Maya Sanna
- Invité
Bouton Parcourir
Salut a tous,
Dans mon application, je voudrais rajouter a ma boite de dialogue un bouton
de type Parcourir . Je n'arrive pas a le faire. Autrement dit, je ne
connais pas la commande qui permet d'afficher l'explorateur Windows sous
MapBasic (je dois recuperer le chemin ou le repertoire de travail que
choisira l'utilisateur).
Si quelqu'un a une idee, je suis preneuse!!
Merci par avance
Maya
#2 Thu 03 April 2003 08:24
- Karim Jerbia
- Invité
Re: Bouton Parcourir
Normalement avec ce bout de code, vous arrivez a s'en sortir
...
....
Control EditText Position 60, 60 Width 180 Height 13
Value g_sLienPhoto
Id 11
Into g_sLienPhoto
Control Button Position 248, 60 Width 20 Height 12
Title Parcourir Calling Path_Sub
Id 12
.....
....
'*****************************************************************
'*****************************************************************
Sub Path_Sub
'*****************************************************************
'*****************************************************************
Dim sChemin as String
sChemin =
sChemin = FileOpenDlg( , , *.* , Selectionner un fichier )
If sChemin Then
g_sPathFile = sChemin
Alter Control 11 Value g_sPathFile
'Print sPathFile
Else
Note Vous n'avez rien selectionner !
Exit Sub
End If
End Sub
'************End sub PathSub**************************************
=======================================================================
Axit - Georiviera S.A.
Geomatique - Photogrammetrie
Karim Jerbia
Ingenieur developpement
Swissmedia Center . Rue du Clos 12 . 1800 Vevey . Suisse
E-mail : karim.jerbia@axit.ch . Web : www.axit.ch et www.georiviera.ch
