cs_jacques13
Messages postés252Date d'inscriptionmardi 3 juin 2003StatutMembreDernière intervention29 juin 2013
-
3 oct. 2006 à 19:14
cs_jacques13
Messages postés252Date d'inscriptionmardi 3 juin 2003StatutMembreDernière intervention29 juin 2013
-
4 oct. 2006 à 22:14
Bonjour,
Soit une application (VB6) qui effectue des tracés sur une PictureBox.
Est-il possible de développer un autre exécutable qui travaillerait sur cette même PictureBox?
Jacques13
cs_jacques13
Messages postés252Date d'inscriptionmardi 3 juin 2003StatutMembreDernière intervention29 juin 2013 4 oct. 2006 à 22:14
Salut Dark Sidious,
J'ai suivi tes conseils et, en guise de test, j'appelle depuis mon programme principal avec la fonction shell
l'exécutable suivant auquel je passe le hDC de ma PictureBox via le Command$:
Private Declare Function Polygon Lib "GDI32" (ByVal hDC As Long, lpPoint As POINTAPI, ByVal nCount As Long) As Long
Private Type POINTAPI
X As Long
Y As Long
End Type
Private Sub Form_Load()
a$ = Command$
hdcu& = CLng(Val(a$))
ReDim Pointus(3) As POINTAPI Pointus(0).X 150: Pointus(0).Y 150 Pointus(1).X 150: Pointus(1).Y 350 Pointus(2).X 350: Pointus(2).Y 350 Pointus(3).X 350: Pointus(3).Y 150
count& = 4
ForeColor = vbBlue
FillColor = vbRed
Res& = Polygon(hdcu&, Pointus(0), count&)
Close: End
End Sub
...malheureusement, rien ne se produit, je ne vois pas où ça a foiré?
Qu'en penses-tu?
Jacques13