cs_BOOK
Messages postés38Date d'inscriptiondimanche 20 août 2006StatutMembreDernière intervention23 juillet 2007
-
22 août 2006 à 20:00
jrivet
Messages postés7392Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 2012
-
4 sept. 2006 à 16:51
Salut,
1- Pour ouvrir la boite de dialogue "Choisissez un fichier" , lorsque je sélectionne le fichier, il ne s'ouvre pas ni par le bouton Ouvir de la boite ni pas double clique, il me manque quelque chose
jrivet
Messages postés7392Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 201260 23 août 2006 à 15:07
Re,
Desole j ai oublier la definition de l'API
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Julien237
Messages postés883Date d'inscriptionvendredi 3 novembre 2000StatutMembreDernière intervention 3 mars 20097 23 août 2006 à 15:09
Voila ce que je te propose :
Cmd.ShowOpen
select case Right(Cmd.Filename, 3)
Case "exe" 'Si c'est un exe, on peut l'exécuter direct :
shell(cmd.filename)
case "bmp" 'Pour un bmp, utilise paint ou un autre prog de dessin :
Shell("c:\windows\system32\mspaint.exe " & """" & CMD.FileName & """")
case ...
et ainsi de suite pour toutes les extensions que tu veux gérer...
Julien.
Vous n’avez pas trouvé la réponse que vous recherchez ?
jrivet
Messages postés7392Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 201260 23 août 2006 à 16:27
Salut,
Ce que je te conseille c'est d'appuye sur réponse acceptée sur le ou les post qui t'on aider a résoudre un de tes problème et reposté un Question Claire et precise pour le second problème
cs_BOOK
Messages postés38Date d'inscriptiondimanche 20 août 2006StatutMembreDernière intervention23 juillet 2007 24 août 2006 à 10:11
POUR JULIEN237
SUPER CA MARCHE
MAIS LE FICHIER EXCEL S'OUVRE MAIS RESTE EN REDUIT
MERCI POUR CE PETIT DETAIL
Mais j'ai toujours le problème que lorsque j'appuie sur une option qui m'ouvre une autre forme
et que je clique sur une autre option sur ce deuxième form j'aimerais que ce deuxième form se ferme alors qu'il reste ouvert
jrivet
Messages postés7392Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 201260 25 août 2006 à 12:10
Salut,
Tu aurais pu reposer une question car cela n'a rien à voir avec ton ancien problème...
Lorsque tu execute sur ton PC c'est normal que cela fonctionne car c'est le PC ou tu as développer l'appli et donc il possède tout les composants nécessaire.
Mais lorsque tu veux l'executer sur un autre PC (la dépployer) tu doit etre sur que l'autre machine possède aussi les composant nécessaire (ici Comdlg32.OCX ne doit pas etre présent.)
Ce qui il faut faire c'est un Pack d'installation de ton application.
Recherche sur ce site le tutorial sur INNO Setup c'est un outil qui te permet de déployer tes applis.
Sinon tu peux utiliser l'assistant Empaquetage et déploiment livré avec VB6 et disponible
dans Menu demarrer => Microsoft Visual Basic 6 => Outils Microsoft Visual Basic 6 l'assistant Empaquetage et déploiment
Julien237
Messages postés883Date d'inscriptionvendredi 3 novembre 2000StatutMembreDernière intervention 3 mars 20097 23 août 2006 à 00:22
Pour ta première question, sais-tu que la seule chose que fais ton dialog à ma connaissance est de récupérer le nom de fichier choisi dans sa propriété filename ?
Tu peux donc l'ouvrir par la suite comme tu l'entends en utilisant CMD.Filename (Un détail, vérifie bien que l'utilisateur n'appuie pas sur cancel...)
Heu le point 2, ca fait longtemps que j'ai plus utilisé Shell et je suis pas sur mon pc... Consulte la doc, ton erreur ne doit pas etre bien loin...
jrivet
Messages postés7392Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 201260 23 août 2006 à 08:52
Salut,
J ai juste une tite question.
Est ce le code de Command2 est tel quel dans ton code?
Car je te rappelle que ceci ne fonctionne pas.
ShellExecute Me.hwnd, vbNullString, Ouvrir, vbNullString, "C:", SW_SHOWNORMAL = 1<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /??>
cs_BOOK
Messages postés38Date d'inscriptiondimanche 20 août 2006StatutMembreDernière intervention23 juillet 2007 23 août 2006 à 11:42
Salut,
1- Pour ouvrir la boite de dialogue "Choisissez un fichier" , lorsque je sélectionne le fichier, il ne s'ouvre pas ni par le bouton Ouvir de la boite ni pas double clique, il me manque quelque chose
CMD.FilterIndex 1<?xml:namespace prefix o ns = "urn:schemas-microsoft-com:office:office" /??>
CMD.InitDir = "C:\WINDOWS"
CMD.ShowOpen
?
Ok pour CMD.FileName mais qu'elle est la démarche à suive
Est-ce que je concerve celle-ci ou je rajoute
et qu'elle est le code à mettre
Merci de rectifier
End Sub
2- ET Sur une Form je voudrais que lorsqu' un bouton est sélectionné, la Form se ferme automatiquement
Private Sub Option4_Click()
Dim Ouvrir As String
Ouvrir = "C:\Documents and Settings\claudine\Mes documents\sauvegarde de docs\documents coco avant formatage\formation\article.xls"
Julien237
Messages postés883Date d'inscriptionvendredi 3 novembre 2000StatutMembreDernière intervention 3 mars 20097 23 août 2006 à 12:44
Si tu veux l'ouvrir comme si tu double-cliquais dans ton explorateur :
Shell(CMD.filename)
Pour un accès en données brutes regarde du côté de Open Put Get etc... les exemples ne manquent surement pas ! Cherche avec ces mots-clés...
Pour un accès en mode texte, cherche avec IO.StreamWriter/Reader si tu es en .Net, en vb6 je me rappelle plus mais ca dois pas etre bien loin...
cs_BOOK
Messages postés38Date d'inscriptiondimanche 20 août 2006StatutMembreDernière intervention23 juillet 2007 23 août 2006 à 14:42
Salut,
1- Pour ouvrir la boite de dialogue "Choisissez un fichier" , lorsque je sélectionne le fichier, il ne s'ouvre pas ni par le bouton Ouvir de la boite ni pas double clique, il me manque quelque chose
jrivet
Messages postés7392Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 201260 23 août 2006 à 14:46
Quesiton pourquoi tu mets un "As Double"
En plein milieu de ton code????
C'est pas comme ca qu on fait appel a des fonction
Shell(CMD.FileName, [WindowStyle As vbAppWinStyle=vbMinimizedFocus]) As Double si cette ligne est telle quelle dans le code, pas étonnant que cela ne marche pas .
ETRE PLUS PRECIS CA NE MARCHE PAS C EST TROP VAGUE.
@+, Julien