Dessiner sur le bureau , premier plan (api)

Commenter

Contenu du snippet

Dessine sur le bureau (parceque c le premier plan)

Source / Exemple : 


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

Conclusion :


Code pouvant etre utile pour le developpement d'appli style la patite nana sexy qui se ballade sur l'ecran et que tout le monde connait

A voir également

S'inscrire maintenant

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.

Du même auteur (TheSaib)