Probleme de screensaver
FrostByte
Messages postés
138
Date d'inscription
mercredi 4 avril 2001
Statut
Membre
Dernière intervention
28 janvier 2006
-
30 juil. 2002 à 17:21
cs_sauveur Messages postés 36 Date d'inscription vendredi 12 juillet 2002 Statut Membre Dernière intervention 21 décembre 2004 - 5 août 2002 à 21:18
cs_sauveur Messages postés 36 Date d'inscription vendredi 12 juillet 2002 Statut Membre Dernière intervention 21 décembre 2004 - 5 août 2002 à 21:18
1 réponse
cs_sauveur
Messages postés
36
Date d'inscription
vendredi 12 juillet 2002
Statut
Membre
Dernière intervention
21 décembre 2004
5 août 2002 à 21:18
5 août 2002 à 21:18
Avec cette API
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Long, ByVal fuWinIni As Long) As Long
Private Const SPI_SETSCREENSAVEActivation = 17
Tu ajoute cette fonction aussi
Public Function AlternerEcranDeVeille(Activation As Boolean) As Boolean
Dim SignetDActivation As Long
Dim RetourDeLaValeur As Long
SignetDActivation = IIf(Activation, 1, 0)
RetourDeLaValeur = SystemParametersInfo(SPI_SETSCREENSAVEActivation, SignetDActivation, 0, 0)
AlternerEcranDeVeille = RetourDeLaValeur > 0
End Function
Lorsque tu appelles cette fonction tu met True si tu veux mettre l'écran et False si tu veux pas...
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Long, ByVal fuWinIni As Long) As Long
Private Const SPI_SETSCREENSAVEActivation = 17
Tu ajoute cette fonction aussi
Public Function AlternerEcranDeVeille(Activation As Boolean) As Boolean
Dim SignetDActivation As Long
Dim RetourDeLaValeur As Long
SignetDActivation = IIf(Activation, 1, 0)
RetourDeLaValeur = SystemParametersInfo(SPI_SETSCREENSAVEActivation, SignetDActivation, 0, 0)
AlternerEcranDeVeille = RetourDeLaValeur > 0
End Function
Lorsque tu appelles cette fonction tu met True si tu veux mettre l'écran et False si tu veux pas...
