Erreur en VB6
DjDorian
-
DjDorian -
DjDorian -
Bonjour, je créer actuellement un programme, ce dernier a pour but d'ouvrir des fichier, l'utilisateur choisis le fichier via le common dialog et ensuite via shell execute ce dernier est ouvert. Mais une erreur survient dans mon code :
erreur "394" : property is write-only
voici mon code :
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
Private Sub Command6_Click()
CommonDialog1.InitDir = "D:"
CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileName
Dim Fichier_Aide As String
Fichier_Aide = CommonDialog1
Dim retour As Long
retour = ShellExecute(0, "open", Fichier_Aide, "", _
"", SW_SHOWMAXIMIZED)
End Sub
Private Sub Text1_Click()
CommonDialog1.InitDir = "D:"
CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileName
Dim Fichier_Aide As String
Fichier_Aide = CommonDialog1
Dim retour As Long
retour = ShellExecute(0, "open", Fichier_Aide, "", _
"", SW_SHOWMAXIMIZED)
End Sub
Le debug m'indique l'erreur, aux lignes : " Fichier_Aide = CommonDialog1 "
Quelle est mon erreur ? merci a l'avance.
erreur "394" : property is write-only
voici mon code :
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
Private Sub Command6_Click()
CommonDialog1.InitDir = "D:"
CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileName
Dim Fichier_Aide As String
Fichier_Aide = CommonDialog1
Dim retour As Long
retour = ShellExecute(0, "open", Fichier_Aide, "", _
"", SW_SHOWMAXIMIZED)
End Sub
Private Sub Text1_Click()
CommonDialog1.InitDir = "D:"
CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileName
Dim Fichier_Aide As String
Fichier_Aide = CommonDialog1
Dim retour As Long
retour = ShellExecute(0, "open", Fichier_Aide, "", _
"", SW_SHOWMAXIMIZED)
End Sub
Le debug m'indique l'erreur, aux lignes : " Fichier_Aide = CommonDialog1 "
Quelle est mon erreur ? merci a l'avance.
A voir également:
- Erreur en VB6
- Vb6 - Télécharger - Divers Utilitaires
- Erreur 0x80070643 - Accueil - Windows
- Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows
- J'aime par erreur facebook notification - Forum Facebook
- Code erreur f3500-31 ✓ - Forum Bbox Bouygues
2 réponses
Bonjour
Le message d'erreur est très bizarre, mais on a l'habitude avec cet éditeur de logiciels ^^
Fichier_Aide = CommonDialog1
Cette ligne est incorrecte car tu essayes d'affecter un contrôle à une chaîne de caractères. CommonDialog1 ayant de nombreuses fonctions (ouverture de fichier, mais aussi choix de fonte, de couleur, impression, etc...), elle n'a pas le nom de fichier comme propriété par défaut, comme tu sembles le supposer
Fais plutôt
Fichier_Aide = CommonDialog1.FileName (à plusieurs endroits si nécessaire)
Le message d'erreur est très bizarre, mais on a l'habitude avec cet éditeur de logiciels ^^
Fichier_Aide = CommonDialog1
Cette ligne est incorrecte car tu essayes d'affecter un contrôle à une chaîne de caractères. CommonDialog1 ayant de nombreuses fonctions (ouverture de fichier, mais aussi choix de fonte, de couleur, impression, etc...), elle n'a pas le nom de fichier comme propriété par défaut, comme tu sembles le supposer
Fais plutôt
Fichier_Aide = CommonDialog1.FileName (à plusieurs endroits si nécessaire)
DjDorian
si tu veut voir le logiciel le voici je vient de le finir : http://www23.zippyshare.com/v/55533591/file.html
