programme en veilleRésolu

Question

bonjour
je cherche a placer mon programme en veille
donc je fait ceci
1 timer pour voir le temps que la souris ne bouge pas
puis un select case qui me donne chaque fois une coordonée differente.
Mais je suis sure que vous avez quelque chose d'autre.
Merci
Private Sub Timer1_Timer()
duree duree + 1: Text3 duree
Dim Pos As POINTAPI
GetCursorPos Pos
If duree = 1 Then
x = Pos.Xx
y = Pos.Yy
End If

If duree = 2 Then ' ici j'ai mis 2secondes pour voire le resultat
  If x Pos.Xx And y Pos.Yy Then
     duree = 0
     dfg = dfg + 1
     
     If dfg 21 Then dfg 1
     Text4 = dfg
     position dfg
  End If
  duree = 0
End If
End Sub
'--------------------------------------------
Public Function position(ByVal vb As Integer) As Integer
Select Case dfg
Case 1: code_acces.Left 10: code_acces.Top 10
Case 2:
For i = code_acces.Left To 600
code_acces.Left i: code_acces.Top 10
Next i
Case 3:
For i = code_acces.Left To 1200
code_acces.Left i: code_acces.Top 10
Next i
Case 4:
For i = code_acces.Left To 1800
code_acces.Left i: code_acces.Top 10
Next i
Case 5:
For i = code_acces.Left To 2400
code_acces.Left i: code_acces.Top 10
Next i
Case 6:
For i = code_acces.Left To 3000
code_acces.Left i: code_acces.Top 10
Next i
Case 7:
For i = code_acces.Left To 3600
code_acces.Left i: code_acces.Top 10
Next i
Case 8:
For i = code_acces.Left To 4200
code_acces.Left i: code_acces.Top 10
Next i
Case 9:
For i = code_acces.Left To 4800
code_acces.Left i: code_acces.Top 10
Next i
Case 10:
For i = code_acces.Left To 5400
code_acces.Left i: code_acces.Top 10
Next i
Case 11:
For i = 10 To code_acces.Left
code_acces.Left = 5400 - i
code_acces.Top = 10 + (i - 1400)
Next i
Case 12:
For i = code_acces.Left To 600
code_acces.Left i: code_acces.Top 4000
Next i
Case 13:
For i = code_acces.Left To 1200
code_acces.Left i: code_acces.Top 4000
Next i
Case 14:
For i = code_acces.Left To 1800
code_acces.Left i: code_acces.Top 4000
Next i
Case 15:
For i = code_acces.Left To 2400
code_acces.Left i: code_acces.Top 4000
Next i
Case 16:
For i = code_acces.Left To 3000
code_acces.Left i: code_acces.Top 4000
Next i
Case 17:
For i = code_acces.Left To 3600
code_acces.Left i: code_acces.Top 4000
Next i
Case 18:
For i = code_acces.Left To 4200
code_acces.Left i: code_acces.Top 4000
Next i
Case 19:
For i = code_acces.Left To 4800
code_acces.Left i: code_acces.Top 4000
Next i
Case 20:
For i = code_acces.Left To 5400
code_acces.Left i: code_acces.Top 4000
Next i

End Select
End Function

PCPT · Accepted Answer

http://lmgtfy.com/?q=isinputidle

cs_Papymuzo · Answer

Salut,

Pour toi, ça veut dire quoi "en veille" ?
C'est uniquement le programme qui ne "répond plus" ? Ou est-ce le programme et la souris ?
Comment on quitte ce mode ?
Enfin sois un peu plus précis ;)

-Papymuzo-

PCPT · Answer

salut,

seulement "ton programme"? c'est à dire que si la form est réduite, tu considères aussi "en veille" ?

sinon c'est "aucune activité sur les périphériques d'entrée"
pas de rapport avec ton appli directement dans ce cas :
isinputidle

++
[hr]

petiflamand · Answer

Bonjour ,
non ces juste que pour le moment mon programme de facturation est dans une station service ou la il est ouvert 12h00 de suite pour encodre les clients et leur transaction ,
et comme il reste tout le temps a la même place le lcd ce marque .
Donc je voulais faire que après un certaint temps il bouge de place , je pourrais faire un Me.WindowState = vbMinimized
mais ces moin fun
Merci

cs_Papymuzo · Answer

Si tu fais un Me.WindowState = vbMinimized tu ne mets pas ton programme en veille :p

petiflamand · Answer

Re,
ok pas en veille, mais simplement qu'il bouge sur l'ecrant pour ne pas qu'il marque l'ecrant

cs_Papymuzo · Answer

Dans ce cas ça marche !

elguevel · Answer

Et en utilisant l'economiseur d'ecran de Windows ?

Programme en veille

8 réponses

Votre réponse

Discussions similaires