0/5 (11 avis)
Snippet vu 7 535 fois - Téléchargée 61 fois
Private Declare Function GetForegroundWindow Lib "user32" () As Long Private Declare Function Ellipse Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long Private Sub Form_Activate() Dim unlong As Long Do 'Recupere le handle du premier plan unlong = GetForegroundWindow() 'Recupere le premier plan unlong = GetDC(Ret) 'dessine l'ellipse Ellipse unlong, 0, 0, 200, 200 'Traite les instructions processeurs DoEvents Loop End Sub
17 oct. 2007 à 23:57
Car je cherche en réalité un moyen de pouvoir Printé du texte sur l’écran ou dans un processus…
14 mars 2007 à 21:13
il s'agira donc de dessiner dans le fond de celle ci, quand c'est nécessaire, et surtout, où c'est nécessaire, afin d'eviter tout scintillement, et toute surcharge CPU inutile.
14 mars 2007 à 21:11
il prend donc comme valeur 0, et le code fonctionne néanmoins.
pourtant, et surtout placé dans une boucle sans fin, ce code contient une fuité mémoire, puisque le DC obtenu via GetDc n'est pas libéré (via ReleaseDC)
14 mars 2007 à 20:34
14 mars 2007 à 20:10
Merci pour ta réponse mais je ne suis pas sûr d'avoir tout saisit (débutant). C'est quoi SysListView32 et Hook & co? Un exemple est possible?
Merci par avance!
Cordialement.
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.