cs_VinceVG
Messages postés221Date d'inscriptionmercredi 8 septembre 2004StatutMembreDernière intervention30 mars 2016
-
4 juin 2006 à 12:02
cs_VinceVG
Messages postés221Date d'inscriptionmercredi 8 septembre 2004StatutMembreDernière intervention30 mars 2016
-
6 juin 2006 à 13:37
Salut,
Comme je le disais dans un précédent post j'ai une fenêtre que je n'arrive pas à fermer. En fait il semble que ce soit la procédure unload qui ne marche pas. Y a t-il un moyen de savoir ce qui empêche sa fermeture ?
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 201847 6 juin 2006 à 12:28
tu m'ôtes les mots de la bouche :p
sauf que DOSClass y est.
pour plus de détail, édite ton fichier vbp, voir contenu de 'Divers Visual'
manque aussi apparemment AVRC_GCC.BTL
cs_VinceVG
Messages postés221Date d'inscriptionmercredi 8 septembre 2004StatutMembreDernière intervention30 mars 2016 6 juin 2006 à 12:44
Salut,
Bon je pense que j'ai tout mis dans le même répertoire ce coup ci et j'ai refais le projet.
pour plus de détail, édite ton fichier vbp, voir contenu de 'Divers Visual'
Là je ne vois rien dedans mais j'utilise MZ-tools
manque aussi apparemment AVRC_GCC.BTL
Je n'en ai pas trace et je ne me souviens pas l'avoir créé.
Le nouveau est AVR-pour pcpt -2.rar ici.
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 6 juin 2006 à 12:57
ton soucis, c'est la fenetre FPort, qui se charge, mais n'est pas déchargée...
elle est chargée a cause de :
FPort.TPorts.Caption = "Port " & Port(0)
en changeant ta procédure FermerLAppli, tu n'aura plus de soucis :
Public Sub FermeLAppli(ClassName As String, Titre As String)
' par le nom de la fenêtre
'exemple : FermeLAppli vbNullString, "Configuration des outils"
Dim ProcessHandle As Long
Dim ProcessId As Long
Dim Appli As Long
Dim F As Form
Const PROCESS_TERMINATE = 1
'Arrêt systématique en mode debuggage
If CBool(App.LogMode) Then
Appli = FindWindow(ClassName, Titre)
GetWindowThreadProcessId Appli, ProcessId
ProcessHandle = OpenProcess(PROCESS_TERMINATE, False, ProcessId)
'A revoir ça ne marche pas Peutêtre par un passage de valeur à l'autre qui fermerait celle ci ???
FenConfiguration.Show
If FenetreExistante <> 0 Then
Call FenêtreDevant(FenetreExistante)
End If
TerminateProcess ProcessHandle, 4
End If
For Each F In Forms
Unload F
Next F
End Sub
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 201847 6 juin 2006 à 12:59
c'est la course? ....
chez moi il manque encore qqc ....
feuille assistante :
Ligne 430: Impossible de charger le contrôle ListeModèle.
Ligne 450: Impossible de charger le contrôle CBHeure.
Ligne 470: Impossible de charger le contrôle CBDate.
Ligne 952: Impossible de charger le contrôle CBBaud.
Vous n’avez pas trouvé la réponse que vous recherchez ?
cs_VinceVG
Messages postés221Date d'inscriptionmercredi 8 septembre 2004StatutMembreDernière intervention30 mars 2016 6 juin 2006 à 13:19
Salut,
Là vous êtes géniaux. Merci à tous les deux. Le bug et la démarche pour le trouver et en bonus la correction. C'est le bug et l'argent du bug.
Ligne 430: Impossible de charger le contrôle ListeModèle.
Ligne 450: Impossible de charger le contrôle CBHeure.
Ligne 470: Impossible de charger le contrôle CBDate.
Ligne 952: Impossible de charger le contrôle CBBaud.
Ce sont des contrôles ownerDraw. Si tu veux je te met l'ocx (vbalODCL6.ocx).