Double Question

Question

Est-ce que qqn connait la fonction qui permet d'obtenir le nombre de jours
dans le mois en cours ?( 30 ou 31)
et comment faire pour changer le durée d'attente pour la mise en veille de l'écran et de l'ordi ?
D'avance merci

PS: Comment supprimer un compte ?

ShareVB · Answer

salut

1ere reponse : non

pour les nombres de jours des mois (en VB 6.0) tu es obligé de te faire une function avec un select case month(date) avec des case pour chaque mois avec le nombre de jours du mois (par exemple) + un testeur d'année bisextile pour fevrier (ben ouai 28 ou 29 ;)) )

2eme reponses :

voila un code pour le delai du screensaver :

Public Const SPI_GETSCREENSAVETIMEOUT = 14
Public Const SPI_SETSCREENSAVETIMEOUT = 15

Public Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long

Public Sub EcranVeille()
Dim retval As Long, b As Long
'pour obtenir le delai d'attente avant mise en veille
retval = SystemParametersInfo(SPI_GETSCREENSAVETIMEOUT, 0&, b, 0&)
' et pour definir le delai de l'attente avant mise en veille
b = 240 ' en secondes
retval = SystemParametersInfo(SPI_SETSCREENSAVETIMEOUT, b, 0&, 0&)
End Sub

pour plus d'infos : MSDN/recherche SystemParameterInfo (dans Platform SDK/reference/WIn32 functions by Alpha order)

voila

ShareVB

Guidelor · Answer

Marche pas

En fait c bien bo mais G pas l'1pression que ca marche d'abord parce qd je lance l'application, ca modifie aucune durée dans la fenêtre " Propriétés de l'affichage" ( G bien sûr aussi regardé "paramètres") et parce que la valeur retval retourne 0 ds les 2 cas.Ce qui serait bien, ca serait d'avoir une fontion genre sub ChangerDurée( NouvelleDurée %) et puis voila tout simplement
Je compte sur toi...

PS: tu sais pas comment supprimer un compte ?

ShareVB · Answer

salut

d'abord ca modifie le delai de mise en veille de l'ECRAN cad le delai après lequel l'écran de veille est lancé

ensuite mon code marche sous XP Home
je peux pas le tester sur un autre windows

enfin la procédure essaie de la faire toi-meme parce que tu as les éléments pour
et pis c un bon exercice ;) lol

voila, je peux rien dire de plus

ShareVB

paramecie · Answer

A propos de ça: "Est-ce que qqn connait la fonction qui permet d'obtenir le nombre de jours
dans le mois en cours ?( 30 ou 31)"

Surtout pas de Select Case!

* tu crées une date départ qui correspond au mois recherché (ex: 01/11/2010)
* tu crées une date arrivée en ajoutant 1 mois avec DateAdd("m",...) (ex: 01/12/2010)
* tu obtiens le nombre de jours en faisant DateDiff("d",...) entre la date arrivée et la date départ.

Sylvain

Double Question

4 réponses

Discussions similaires