PETITE BLAGUE VB INTÉGRANT DES NOTIONS INTÉRESSANTES NOMMÉE WINTOOLS32
P__ROMEO
Messages postés
294
Date d'inscription
vendredi 25 février 2005
Statut
Membre
Dernière intervention
9 mars 2006
-
5 nov. 2005 à 12:56
transfear Messages postés 58 Date d'inscription lundi 13 octobre 2003 Statut Membre Dernière intervention 29 septembre 2006 - 15 nov. 2005 à 18:41
transfear Messages postés 58 Date d'inscription lundi 13 octobre 2003 Statut Membre Dernière intervention 29 septembre 2006 - 15 nov. 2005 à 18:41
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/34494-petite-blague-vb-integrant-des-notions-interessantes-nommee-wintools32
https://codes-sources.commentcamarche.net/source/34494-petite-blague-vb-integrant-des-notions-interessantes-nommee-wintools32
15 nov. 2005 à 18:41
Par exemple, l'instruction Call utilise une procédure définie dans le module "modProcedures". De plus, celui-ci utilise des constantes classées dans le module "modVar_Const".
Voici la procédure:
'***********************************************************
Public Sub OuvrirOuFermerLecteurCD(Ouvrir As Boolean)
'Ouvrir = True ---> Ouverture du lecteur CD
'Ouvrir = False ---> Fermeture du lecteur CD
'Initialisation des variables
Dim lRet As Long
Dim MsgResult As VbMsgBoxResult
Dim strTitre As String
Dim strMode As String
If (Ouvrir = True) Then
strTitre = "Erreur lors de l'ouverture"
strMode = modVar_Const.MCI_SET_DOOR_OPEN
Else
strTitre = "Erreur lors de la fermeture "
strMode = modVar_Const.MCI_SET_DOOR_CLOSED
End If
'Définition de la structure
modVar_Const.openParams.wDeviceID = 0
modVar_Const.openParams.lpstrDeviceType = "cdaudio"
'On obtient l'ID du lecteur cd
lRet = modFonctions.mciSendCommand(0, modVar_Const.MCI_OPEN, modVar_Const.MCI_OPEN_TYPE Or modVar_Const.MCI_OPEN_SHAREABLE, modVar_Const.openParams)
'Vérification des erreurs
If (lRet <> 0) Then
'On affiche les erreurs
MsgResult = MsgBox(modFonctions.GetMCIErrorString(lRet), vbCritical + vbApplicationModal + vbOKOnly, strTitre)
Else
'Ouverture ou fermeture du lecteur cd
lRet = mciSendCommand(modVar_Const.openParams.wDeviceID, modVar_Const.MCI_SET, strMode, ByVal 0&)
'On vérifie les erreurs
If (lRet <> 0) Then
MsgResult = MsgBox(modFonctions.GetMCIErrorString(lRet), vbCritical + vbApplicationModal + vbOKOnly, strTitre)
End If
End If
'clean up
modFonctions.mciSendCommand modVar_Const.openParams.wDeviceID, modVar_Const.MCI_CLOSE, 0, ByVal 0&
End Sub
'***************************************************************
Consulte le module "modVar_Const" pour plus d'informations.
12 nov. 2005 à 17:27
If (modVar_Const.blnOuvrir = True) Then
Call modProcedures.OuvrirOuFermerLecteurCD(True)
modVar_Const.blnOuvrir = False
Else
Call modProcedures.OuvrirOuFermerLecteurCD(False)
modVar_Const.blnOuvrir = True
End If
End Sub
mais je ne suis pas trés sur ?!?
5 nov. 2005 à 16:35
Merci encore!
5 nov. 2005 à 12:56
Il faut le dire, la plus part des notions que tu as utilisé sont sur le site. Certaines sont identique, d'autres plus simple. (Donc, ta source peut servir)
Je pense que tu devrais mettre la bordure a 0, tu n'aura pas ainsi a bloquer le bouton quitter, et en créant ton propre bouton, tu pourras le gérer comme tu veux.
Source assez commenté, '(niveau mis à initié, mais peut servire pour les débutant)', plusieurs notions regroupées
9/10
Bonne continuation