TheNox
Messages postés59Date d'inscriptionvendredi 5 décembre 2003StatutMembreDernière intervention17 juin 2005
-
8 avril 2004 à 18:19
gowser -
12 janv. 2005 à 14:37
Salut,
Question Visual basic :
S'il vous plait, pour ceux qui aurrai une réponse :
Comment faire pour utiliser la boite de dialogue "SaveFile" de windows sous vb.
J'ai réussi à me procurrer un code pour la boite de dialogue "OpenFile" de windows mais par contre j'ai pas pu avoir l'autre.
Code pour "OpenFile" de windows à ceuw que ca intersserait au passage :
-------------------------------------------------------------------------
' Déclaration de l'API
Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
Private Type OPENFILENAME
lStructSize As Long
hwndOwner As Long
hInstance As Long
lpstrFilter As String
lpstrCustomFilter As String
nMaxCustFilter As Long
nFilterIndex As Long
lpstrFile As String
nMaxFile As Long
lpstrFileTitle As String
nMaxFileTitle As Long
lpstrInitialDir As String
lpstrTitle As String
Flags As Long
nFileOffset As Integer
nFileExtension As Integer
lpstrDefExt As String
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type
'---------------------------------------------------------------------------------------
' Sub : OpenFileDialog
' DateTime : 03/09/2002 15:19
' Auteur : Pierre Alexis
' But : Cette procédure affiche la boîte de dialogue "OpenFile" et retourne
' le chemin du fichier choisi
'---------------------------------------------------------------------------------------
Public Function OpenFileDialog(Optional DialogTitle As String, Optional sFilter As String, Optional Flags As OFN_Constants, Optional InitialDir As String, Optional hwndOwner As Long, Optional hInstance As Long) As String
ne temerde pas avec tout ca ...... tu peu utiliser directement le composant common dialog de vb6 :
avec tu peu avoir le save as le open le suppp.......