AccueilCodesTutorielsForumsEmploiLivresConnexion

  • Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2009 01 08 03:39:18
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

OPENDIALOG ET SAVEDIALOG VIA UN CREATEOBJECT


Information sur la source

Catégorie :OLE, DDE, Automation Niveau : Débutant Date de création : 30/12/2004 Vu : 10 944
Auteur : shadowmoy Ecrire un message privé
Note :
Aucune note
Commentaire sur cette source (5)
Ajouter un commentaire et/ou une note

Description

Ben ca sert a utiliser les fenetre open et save comme commondialog mais via un createobject.

Ps: a tester sur win 9x et Nt car je suis sur xp pro...
 

Source

  • Option Explicit
  • Dim OpenDialog As Object
  • Dim SaveDialog As Object
  • Dim ret%
  • Dim FileName$
  • Private Sub Form_Load()
  • 'Creation des Objets
  • Set OpenDialog = CreateObject("SAFRCFileDlg.FileOpen")
  • Set SaveDialog = CreateObject("SAFRCFileDlg.FileSave")
  • End Sub
  • Private Sub Command1_Click()
  • 'pour tester le bouton open
  • ret = OpenDialog.OpenFileOpenDlg()
  • 'Si le user a selectioné un fichier et cliqué sur ok
  • ' on affiche le fichier selectionné
  • If ret <> 0 Then MsgBox OpenDialog.FileName
  • End Sub
  • Private Sub Command2_Click()
  • 'pour tester le bouton save
  • ret = SaveDialog.OpenFileSaveDlg()
  • 'Si le user a selectioné un fichier et cliqué sur ok
  • ' on affiche le fichier selectionné
  • If ret <> 0 Then MsgBox SaveDialog.FileName
  • End Sub
  • Private Sub Form_Unload(Cancel As Integer)
  • 'on release nos object
  • Set OpenDialog = Nothing
  • Set SaveDialog = Nothing
  • End Sub
Option Explicit
Dim OpenDialog As Object
Dim SaveDialog As Object
Dim ret%
Dim FileName$

Private Sub Form_Load()
'Creation des Objets
Set OpenDialog = CreateObject("SAFRCFileDlg.FileOpen")
Set SaveDialog = CreateObject("SAFRCFileDlg.FileSave")

End Sub


Private Sub Command1_Click()
'pour tester le bouton open
ret = OpenDialog.OpenFileOpenDlg()
'Si le user a selectioné un fichier et cliqué sur ok
' on affiche le fichier selectionné
If ret <> 0 Then MsgBox OpenDialog.FileName


End Sub

Private Sub Command2_Click()

'pour tester le bouton save
ret = SaveDialog.OpenFileSaveDlg()

'Si le user a selectioné un fichier et cliqué sur ok
' on affiche le fichier selectionné
If ret <> 0 Then MsgBox SaveDialog.FileName

End Sub


Private Sub Form_Unload(Cancel As Integer)
'on release nos object
Set OpenDialog = Nothing
Set SaveDialog = Nothing
End Sub

Conclusion

dites moi si ca marche sur win 9x etc ...
 

Commentaires et avis

signaler à un administrateur
Commentaire de DARKSIDIOUS le 30/12/2004 14:36:27 administrateur CS

Il vaux mieux utiliser les API standard plutôt que les CreateObject. Parce que c'est plus rapide car pas besoin de créer d'instance d'objets.

Mais c'est intéressant pour ceux qui veulent apprendre à se servir du CreateObject.

Note : un petit zip aurait été le bienvenue...

DarK Sidious

signaler à un administrateur
Commentaire de Renfield le 30/12/2004 15:20:55 administrateur CS

interessant pour utiliser dans des Vbs

signaler à un administrateur
Commentaire de fg85 le 30/12/2004 18:23:35

Tester sous XP PRO (ben j'ai rien d'otre alors,sof un petit linux qui traine dans le coin, mé ça marche pô, logique , mdr)

Sinon grand merci !!!! ça m'aide beaucoup !!

-----------------------
http://fg.logiciel.free.fr

signaler à un administrateur
Commentaire de ld40 le 03/01/2005 10:13:57

bonjour,

je n'arrive pas à faire fonctionner le save dialog (uniquement le opendialog), ni en vba sous Xp , ni en vbs

voici mon code vbs pour le opendialog
<html>
<head>
<script type="text/vbscript">
sub mySub()
Dim OpenDialog
dim ret
dim Filename
Set OpenDialog = CreateObject("SAFRCFileDlg.FileOpen")
ret = OpenDialog.OpenFileOpenDlg()
If ret Then
MsgBox openDialog.FileName
end if
Set OpenDialog = Nothing
end sub
</script>
</head>

<body>
<script type="text/vbscript">
call mySub()
</script>
</body>
</html>

signaler à un administrateur
Commentaire de ld40 le 03/01/2005 10:24:59

bizarre,
cet exemple trouvé sur un autre site fonctionne très bien sur mon poste. J'ai sans doute m...dé quelque part!

désolé et merci.

<html>

<head>
<script type="text/vbscript">
sub mySub()
Set objDialog = CreateObject("SAFRCFileDlg.FileSave")
objDialog.FileName = "C:\Scripts\Script1.vbs"
objDialog.FileType = "VBScript Script"
intReturn = objDialog.OpenFileSaveDlg

If intReturn Then
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFile = objFSO.CreateTextFile(objDialog.FileName)
    objFile.WriteLine Date
    objFile.Close
Else
    Wscript.Quit
End If

end sub
</script>
</head>

<body>
<script type="text/vbscript">
call mySub()
</script>
</body>
</html>


Ajouter un commentaire

Nos sponsors

Sondage...

CalendriCode

Janvier 2009
LMMJVSD
   1234
567891011
12131415161718
19202122232425
262728293031 

Consulter la suite du CalendriCode


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,530 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.