Avec VB6, on ne peut pas faire de ligne pointillée de plus de pixel
d'épaisseur. Il faut utiliser ExtCreatePen pour y arriver. Je réussis
à faire ça. C'est un Line Method modifié en fait si je comprends bien.
Maintenant, je voudrais pouvoir déplacer une telle ligne, ie.
pointillée et épaisse, sans laisser de trace, comme on peut déplacer
la souris ou encore une ligne (line control) en modifiant ses
extrémités x1, y1, x2 et y2.
Merci à l'avance pour l'aide.
Jacquelin Hardy
Avec VB6, on ne peut pas faire de ligne pointillée de plus de pixel
d'épaisseur. Il faut utiliser ExtCreatePen pour y arriver. Je réussis
à faire ça. C'est un Line Method modifié en fait si je comprends bien.
Maintenant, je voudrais pouvoir déplacer une telle ligne, ie.
pointillée et épaisse, sans laisser de trace, comme on peut déplacer
la souris ou encore une ligne (line control) en modifiant ses
extrémités x1, y1, x2 et y2.
Merci à l'avance pour l'aide.
Jacquelin Hardy
Avec VB6, on ne peut pas faire de ligne pointillée de plus de pixel
d'épaisseur. Il faut utiliser ExtCreatePen pour y arriver. Je réussis
à faire ça. C'est un Line Method modifié en fait si je comprends bien.
Maintenant, je voudrais pouvoir déplacer une telle ligne, ie.
pointillée et épaisse, sans laisser de trace, comme on peut déplacer
la souris ou encore une ligne (line control) en modifiant ses
extrémités x1, y1, x2 et y2.
Merci à l'avance pour l'aide.
Jacquelin Hardy
gap a exprimé avec précision :
> Avec VB6, on ne peut pas faire de ligne pointillée de plus de pixel
> d'épaisseur. Il faut utiliser ExtCreatePen pour y arriver. Je réuss is
> à faire ça. C'est un Line Method modifié en fait si je comprends bien.
> Maintenant, je voudrais pouvoir déplacer une telle ligne, ie.
> pointillée et épaisse, sans laisser de trace, comme on peut dépla cer
> la souris ou encore une ligne (line control) en modifiant ses
> extrémités x1, y1, x2 et y2.
> Merci à l'avance pour l'aide.
> Jacquelin Hardy
Exemple avec line, recuperation des pos de la souris
________________________________________________
Private Declare Function GetCursorPos Lib "USER32" (lpPoint As
PointAPI) As Long
Private Type PointAPI
x As Long
y As Long
End Type
Dim Tampon As PointAPI
________________________________________________
Private Sub Timer1_Timer()
Line1.X1 = Tampon.x * 15
line1.y1 = tampon.y * 15
end sub
_________________________________________________
gap a exprimé avec précision :
> Avec VB6, on ne peut pas faire de ligne pointillée de plus de pixel
> d'épaisseur. Il faut utiliser ExtCreatePen pour y arriver. Je réuss is
> à faire ça. C'est un Line Method modifié en fait si je comprends bien.
> Maintenant, je voudrais pouvoir déplacer une telle ligne, ie.
> pointillée et épaisse, sans laisser de trace, comme on peut dépla cer
> la souris ou encore une ligne (line control) en modifiant ses
> extrémités x1, y1, x2 et y2.
> Merci à l'avance pour l'aide.
> Jacquelin Hardy
Exemple avec line, recuperation des pos de la souris
________________________________________________
Private Declare Function GetCursorPos Lib "USER32" (lpPoint As
PointAPI) As Long
Private Type PointAPI
x As Long
y As Long
End Type
Dim Tampon As PointAPI
________________________________________________
Private Sub Timer1_Timer()
Line1.X1 = Tampon.x * 15
line1.y1 = tampon.y * 15
end sub
_________________________________________________
gap a exprimé avec précision :
> Avec VB6, on ne peut pas faire de ligne pointillée de plus de pixel
> d'épaisseur. Il faut utiliser ExtCreatePen pour y arriver. Je réuss is
> à faire ça. C'est un Line Method modifié en fait si je comprends bien.
> Maintenant, je voudrais pouvoir déplacer une telle ligne, ie.
> pointillée et épaisse, sans laisser de trace, comme on peut dépla cer
> la souris ou encore une ligne (line control) en modifiant ses
> extrémités x1, y1, x2 et y2.
> Merci à l'avance pour l'aide.
> Jacquelin Hardy
Exemple avec line, recuperation des pos de la souris
________________________________________________
Private Declare Function GetCursorPos Lib "USER32" (lpPoint As
PointAPI) As Long
Private Type PointAPI
x As Long
y As Long
End Type
Dim Tampon As PointAPI
________________________________________________
Private Sub Timer1_Timer()
Line1.X1 = Tampon.x * 15
line1.y1 = tampon.y * 15
end sub
_________________________________________________
Avec VB6, on ne peut pas faire de ligne pointillée de plus de pixel
d'épaisseur. Il faut utiliser ExtCreatePen pour y arriver. Je réussis
à faire ça. C'est un Line Method modifié en fait si je comprends bi en.
Maintenant, je voudrais pouvoir déplacer une telle ligne, ie.
pointillée et épaisse, sans laisser de trace, comme on peut déplacer
la souris ou encore une ligne (line control) en modifiant ses
extrémités x1, y1, x2 et y2.
Merci à l'avance pour l'aide.
Jacquelin Hardy
Avec VB6, on ne peut pas faire de ligne pointillée de plus de pixel
d'épaisseur. Il faut utiliser ExtCreatePen pour y arriver. Je réussis
à faire ça. C'est un Line Method modifié en fait si je comprends bi en.
Maintenant, je voudrais pouvoir déplacer une telle ligne, ie.
pointillée et épaisse, sans laisser de trace, comme on peut déplacer
la souris ou encore une ligne (line control) en modifiant ses
extrémités x1, y1, x2 et y2.
Merci à l'avance pour l'aide.
Jacquelin Hardy
Avec VB6, on ne peut pas faire de ligne pointillée de plus de pixel
d'épaisseur. Il faut utiliser ExtCreatePen pour y arriver. Je réussis
à faire ça. C'est un Line Method modifié en fait si je comprends bi en.
Maintenant, je voudrais pouvoir déplacer une telle ligne, ie.
pointillée et épaisse, sans laisser de trace, comme on peut déplacer
la souris ou encore une ligne (line control) en modifiant ses
extrémités x1, y1, x2 et y2.
Merci à l'avance pour l'aide.
Jacquelin Hardy
Merci "mon chien"...
Ça, ça fai tout, avec des lignes ça devrait aler
plus vite
---------------------------------------------------------------
' ligne form 1
'
Option Explicit
End Sub
--
Romans, logiciels, email, site personnelhttp://irolog.free.fr/joe.htm
------------------------------------------------------------------------- -----------
"gap" a écrit dans le
message de news:
Avec VB6, on ne peut pas faire de ligne pointillée
de plus de pixel
d'épaisseur. Il faut utiliser ExtCreatePen pour y
arriver. Je réussis
à faire ça. C'est un Line Method modifié en fait
si je comprends bien.
Maintenant, je voudrais pouvoir déplacer une telle
ligne, ie.
pointillée et épaisse, sans laisser de trace,
comme on peut déplacer
la souris ou encore une ligne (line control) en
modifiant ses
extrémités x1, y1, x2 et y2.
Merci à l'avance pour l'aide.
Jacquelin Hardy
Merci "mon chien"...
Ça, ça fai tout, avec des lignes ça devrait aler
plus vite
---------------------------------------------------------------
' ligne form 1
'
Option Explicit
End Sub
--
Romans, logiciels, email, site personnelhttp://irolog.free.fr/joe.htm
------------------------------------------------------------------------- -----------
"gap" <jacha...@videotron.ca> a écrit dans le
message de news:
1190834907.801727.199...@22g2000hsm.googlegroups.com...
Avec VB6, on ne peut pas faire de ligne pointillée
de plus de pixel
d'épaisseur. Il faut utiliser ExtCreatePen pour y
arriver. Je réussis
à faire ça. C'est un Line Method modifié en fait
si je comprends bien.
Maintenant, je voudrais pouvoir déplacer une telle
ligne, ie.
pointillée et épaisse, sans laisser de trace,
comme on peut déplacer
la souris ou encore une ligne (line control) en
modifiant ses
extrémités x1, y1, x2 et y2.
Merci à l'avance pour l'aide.
Jacquelin Hardy
Merci "mon chien"...
Ça, ça fai tout, avec des lignes ça devrait aler
plus vite
---------------------------------------------------------------
' ligne form 1
'
Option Explicit
End Sub
--
Romans, logiciels, email, site personnelhttp://irolog.free.fr/joe.htm
------------------------------------------------------------------------- -----------
"gap" a écrit dans le
message de news:
Avec VB6, on ne peut pas faire de ligne pointillée
de plus de pixel
d'épaisseur. Il faut utiliser ExtCreatePen pour y
arriver. Je réussis
à faire ça. C'est un Line Method modifié en fait
si je comprends bien.
Maintenant, je voudrais pouvoir déplacer une telle
ligne, ie.
pointillée et épaisse, sans laisser de trace,
comme on peut déplacer
la souris ou encore une ligne (line control) en
modifiant ses
extrémités x1, y1, x2 et y2.
Merci à l'avance pour l'aide.
Jacquelin Hardy
A François et LE TROLL,
merci beaucoup de votre aide messieurs.
LE TROLL, ta suggestion s'avère beaucoup plus lente que celle de
"ton chien" !.
François, ta suggestion, ça fonctionne. Mais sur une pictureBox
qui occupe tout un écran de 1280 x 800, c'est plutôt lent. C'est pas
que je suis capricieux mais il y a un mais.
Le mais, c'est que je représente en temps réel des mouvements de
navires sur une carte électronique vectorielle. Celle-ci est faite de
quelques centaines de milliers de points. La position de mon navire
est mise à jour à chaque seconde, et celle des autres navires se
renouvelles aux 5 secondes environ, de façon asynchrone. Et les
vecteurs représentent la direction et la vitesse (par leur longueur).
La carte est renouvelée aux 20 secondes. Ça se fait vite ça.
J'ai eu l'idée de placer ton Form_Paint sur l'évènement MouseUp au
lieu de MouseMove. Cà semble aller mieux. Au moins, on a seulement un
repaint à faire au lieu de plusieurs. Je vais essayer ça en réel cette
nuit et je vous reviens demain.
Y aurait-t-il des RasterOP constants ou des BitWiseOp qui
permettraient de dessiner puis d'effacer virtuellement en redessinant
avec une autre couleur par dessus sans faire un Paint complet de la
PictureBox ?
Dans un groupe anglais, on me suggère de faire mon propre
UserControl. Je suis pas à ce niveau.
Merci de votre temps et de vos connaissances.
Jacquelin H.
On 27 sep, 09:00, "LE TROLL" <le wrote:Merci "mon chien"...
Ça, ça fai tout, avec des lignes ça devrait aler
plus vite
---------------------------------------------------------------
' ligne form 1
'
Option ExplicitEnd Sub
--
Romans, logiciels, email, site personnelhttp://irolog.free.fr/joe.htm
------------------------------------------------------------------------------------
"gap" a écrit dans le
message de news:
Avec VB6, on ne peut pas faire de ligne pointillée
de plus de pixel
d'épaisseur. Il faut utiliser ExtCreatePen pour y
arriver. Je réussis
à faire ça. C'est un Line Method modifié en fait
si je comprends bien.
Maintenant, je voudrais pouvoir déplacer une telle
ligne, ie.
pointillée et épaisse, sans laisser de trace,
comme on peut déplacer
la souris ou encore une ligne (line control) en
modifiant ses
extrémités x1, y1, x2 et y2.
Merci à l'avance pour l'aide.
Jacquelin Hardy
A François et LE TROLL,
merci beaucoup de votre aide messieurs.
LE TROLL, ta suggestion s'avère beaucoup plus lente que celle de
"ton chien" !.
François, ta suggestion, ça fonctionne. Mais sur une pictureBox
qui occupe tout un écran de 1280 x 800, c'est plutôt lent. C'est pas
que je suis capricieux mais il y a un mais.
Le mais, c'est que je représente en temps réel des mouvements de
navires sur une carte électronique vectorielle. Celle-ci est faite de
quelques centaines de milliers de points. La position de mon navire
est mise à jour à chaque seconde, et celle des autres navires se
renouvelles aux 5 secondes environ, de façon asynchrone. Et les
vecteurs représentent la direction et la vitesse (par leur longueur).
La carte est renouvelée aux 20 secondes. Ça se fait vite ça.
J'ai eu l'idée de placer ton Form_Paint sur l'évènement MouseUp au
lieu de MouseMove. Cà semble aller mieux. Au moins, on a seulement un
repaint à faire au lieu de plusieurs. Je vais essayer ça en réel cette
nuit et je vous reviens demain.
Y aurait-t-il des RasterOP constants ou des BitWiseOp qui
permettraient de dessiner puis d'effacer virtuellement en redessinant
avec une autre couleur par dessus sans faire un Paint complet de la
PictureBox ?
Dans un groupe anglais, on me suggère de faire mon propre
UserControl. Je suis pas à ce niveau.
Merci de votre temps et de vos connaissances.
Jacquelin H.
On 27 sep, 09:00, "LE TROLL" <le tr...@enfer.fr> wrote:
Merci "mon chien"...
Ça, ça fai tout, avec des lignes ça devrait aler
plus vite
---------------------------------------------------------------
' ligne form 1
'
Option Explicit
End Sub
--
Romans, logiciels, email, site personnelhttp://irolog.free.fr/joe.htm
------------------------------------------------------------------------------------
"gap" <jacha...@videotron.ca> a écrit dans le
message de news:
1190834907.801727.199...@22g2000hsm.googlegroups.com...
Avec VB6, on ne peut pas faire de ligne pointillée
de plus de pixel
d'épaisseur. Il faut utiliser ExtCreatePen pour y
arriver. Je réussis
à faire ça. C'est un Line Method modifié en fait
si je comprends bien.
Maintenant, je voudrais pouvoir déplacer une telle
ligne, ie.
pointillée et épaisse, sans laisser de trace,
comme on peut déplacer
la souris ou encore une ligne (line control) en
modifiant ses
extrémités x1, y1, x2 et y2.
Merci à l'avance pour l'aide.
Jacquelin Hardy
A François et LE TROLL,
merci beaucoup de votre aide messieurs.
LE TROLL, ta suggestion s'avère beaucoup plus lente que celle de
"ton chien" !.
François, ta suggestion, ça fonctionne. Mais sur une pictureBox
qui occupe tout un écran de 1280 x 800, c'est plutôt lent. C'est pas
que je suis capricieux mais il y a un mais.
Le mais, c'est que je représente en temps réel des mouvements de
navires sur une carte électronique vectorielle. Celle-ci est faite de
quelques centaines de milliers de points. La position de mon navire
est mise à jour à chaque seconde, et celle des autres navires se
renouvelles aux 5 secondes environ, de façon asynchrone. Et les
vecteurs représentent la direction et la vitesse (par leur longueur).
La carte est renouvelée aux 20 secondes. Ça se fait vite ça.
J'ai eu l'idée de placer ton Form_Paint sur l'évènement MouseUp au
lieu de MouseMove. Cà semble aller mieux. Au moins, on a seulement un
repaint à faire au lieu de plusieurs. Je vais essayer ça en réel cette
nuit et je vous reviens demain.
Y aurait-t-il des RasterOP constants ou des BitWiseOp qui
permettraient de dessiner puis d'effacer virtuellement en redessinant
avec une autre couleur par dessus sans faire un Paint complet de la
PictureBox ?
Dans un groupe anglais, on me suggère de faire mon propre
UserControl. Je suis pas à ce niveau.
Merci de votre temps et de vos connaissances.
Jacquelin H.
On 27 sep, 09:00, "LE TROLL" <le wrote:Merci "mon chien"...
Ça, ça fai tout, avec des lignes ça devrait aler
plus vite
---------------------------------------------------------------
' ligne form 1
'
Option ExplicitEnd Sub
--
Romans, logiciels, email, site personnelhttp://irolog.free.fr/joe.htm
------------------------------------------------------------------------------------
"gap" a écrit dans le
message de news:
Avec VB6, on ne peut pas faire de ligne pointillée
de plus de pixel
d'épaisseur. Il faut utiliser ExtCreatePen pour y
arriver. Je réussis
à faire ça. C'est un Line Method modifié en fait
si je comprends bien.
Maintenant, je voudrais pouvoir déplacer une telle
ligne, ie.
pointillée et épaisse, sans laisser de trace,
comme on peut déplacer
la souris ou encore une ligne (line control) en
modifiant ses
extrémités x1, y1, x2 et y2.
Merci à l'avance pour l'aide.
Jacquelin Hardy
Merci "mon chien"...
Ça, ça fai tout, avec des lignes ça devrait aler
plus vite
---------------------------------------------------------------
' ligne form 1
'
Option Explicit
End Sub
--
Romans, logiciels, email, site
personnelhttp://irolog.free.fr/joe.htm
------------------------------------------------------------------------------------
"gap" a écrit dans le
message de news:
Avec VB6, on ne peut pas faire de ligne
pointillée
de plus de pixel
d'épaisseur. Il faut utiliser ExtCreatePen pour
y
arriver. Je réussis
à faire ça. C'est un Line Method modifié en fait
si je comprends bien.
Maintenant, je voudrais pouvoir déplacer une
telle
ligne, ie.
pointillée et épaisse, sans laisser de trace,
comme on peut déplacer
la souris ou encore une ligne (line control) en
modifiant ses
extrémités x1, y1, x2 et y2.
Merci à l'avance pour l'aide.
Jacquelin Hardy
Merci "mon chien"...
Ça, ça fai tout, avec des lignes ça devrait aler
plus vite
---------------------------------------------------------------
' ligne form 1
'
Option Explicit
End Sub
--
Romans, logiciels, email, site
personnelhttp://irolog.free.fr/joe.htm
------------------------------------------------------------------------------------
"gap" <jacha...@videotron.ca> a écrit dans le
message de news:
1190834907.801727.199...@22g2000hsm.googlegroups.com...
Avec VB6, on ne peut pas faire de ligne
pointillée
de plus de pixel
d'épaisseur. Il faut utiliser ExtCreatePen pour
y
arriver. Je réussis
à faire ça. C'est un Line Method modifié en fait
si je comprends bien.
Maintenant, je voudrais pouvoir déplacer une
telle
ligne, ie.
pointillée et épaisse, sans laisser de trace,
comme on peut déplacer
la souris ou encore une ligne (line control) en
modifiant ses
extrémités x1, y1, x2 et y2.
Merci à l'avance pour l'aide.
Jacquelin Hardy
Merci "mon chien"...
Ça, ça fai tout, avec des lignes ça devrait aler
plus vite
---------------------------------------------------------------
' ligne form 1
'
Option Explicit
End Sub
--
Romans, logiciels, email, site
personnelhttp://irolog.free.fr/joe.htm
------------------------------------------------------------------------------------
"gap" a écrit dans le
message de news:
Avec VB6, on ne peut pas faire de ligne
pointillée
de plus de pixel
d'épaisseur. Il faut utiliser ExtCreatePen pour
y
arriver. Je réussis
à faire ça. C'est un Line Method modifié en fait
si je comprends bien.
Maintenant, je voudrais pouvoir déplacer une
telle
ligne, ie.
pointillée et épaisse, sans laisser de trace,
comme on peut déplacer
la souris ou encore une ligne (line control) en
modifiant ses
extrémités x1, y1, x2 et y2.
Merci à l'avance pour l'aide.
Jacquelin Hardy