Bonjour le forum Je suis entrain de jouer avec les API. Declare Function GetWindowDC Lib 'user32' (ByVal hwnd As Long) As Long Declare Function SetPixel Lib 'gdi32' ( _ ByVal hdc As Long, _ ByVal x As Long, _ ByVal y As Long, _ ByVal crColor As Long) As Long est-il fréquent avec ces deux fonctions d'obtenir un affichage instable après quelques essais ? procédure utilisée : Sub trace() For x = 27 To 500 y = 400 Call SetPixel(GetWindowDC(0), x, y, vbRed) Call SetPixel(GetWindowDC(0), x, y + 1, vbRed) Call SetPixel(GetWindowDC(0), x, y + 2, vbRed) Next x End Sub Est-il possible de modifier l'épaisseur du trait par un parmètre sans faire varier Y ? Merci aux experts API XP Pro, Office 2003 sp1 Message édité par: dg62, à: 04/05/2005 09:49 Message édité par: dg62, à: 04/05/2005 09:52

Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Excel et les API

Initiateur de la discussion dg62
Date de début 4 Mai 2005

dg62

XLDnaute Barbatruc

4 Mai 2005

Bonjour le forum

Je suis entrain de jouer avec les API.

Code:

Declare Function GetWindowDC Lib 'user32' (ByVal hwnd As Long) As Long
Declare Function SetPixel Lib 'gdi32' ( _
       ByVal hdc As Long, _
       ByVal x As Long, _
       ByVal y As Long, _
       ByVal crColor As Long) As Long

est-il fréquent avec ces deux fonctions d'obtenir un affichage instable après quelques essais ?

procédure utilisée :

Code:

Sub trace()
For x = 27 To 500
y = 400
Call SetPixel(GetWindowDC(0), x, y, vbRed)
Call SetPixel(GetWindowDC(0), x, y + 1, vbRed)
Call SetPixel(GetWindowDC(0), x, y + 2, vbRed)
Next x
End Sub

Est-il possible de modifier l'épaisseur du trait par un parmètre sans faire varier Y ?

Merci aux experts API

XP Pro, Office 2003 sp1

Message édité par: dg62, à: 04/05/2005 09:49

Message édité par: dg62, à: 04/05/2005 09:52