J'ai un probl=E8me qui n'a toujours pas =E9t=E9 r=E9solu dans ma grande =
liste de probl=E8me.
Lors de l'=E9v=E8nement Keydown, je fais d=E9placer un contr=F4le image =
:
Image.Move Image.Left + A 'Par exemple ...
L'image, lors du d=E9placement, elle clignote. Et cela est quelque peu =
d=E9plaisant. J'utilise une image avec un fond transparent. Je ne peux =
donc pas emprunter le contr=F4le PictureBox qui ne g=E8re pas la =
transparence du fond.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
ng
Tu peux essayer avec un UserControl en utilisant un Mask...
"Daniel - Z" a écrit dans le message de news: # Bonjour.
J'ai un problème qui n'a toujours pas été résolu dans ma grande liste de problème. Lors de l'évènement Keydown, je fais déplacer un contrôle image :
Image.Move Image.Left + A 'Par exemple ...
L'image, lors du déplacement, elle clignote. Et cela est quelque peu déplaisant. J'utilise une image avec un fond transparent. Je ne peux donc pas emprunter le contrôle PictureBox qui ne gère pas la transparence du fond.
Merci de m'aider.
Tu peux essayer avec un UserControl en utilisant un Mask...
"Daniel - Z" <NOSPAM_daniel.z@laposte.net> a écrit dans le message de news:
#rwBoOVoDHA.1408@TK2MSFTNGP11.phx.gbl...
Bonjour.
J'ai un problème qui n'a toujours pas été résolu dans ma grande liste de
problème.
Lors de l'évènement Keydown, je fais déplacer un contrôle image :
Image.Move Image.Left + A 'Par exemple ...
L'image, lors du déplacement, elle clignote. Et cela est quelque peu
déplaisant. J'utilise une image avec un fond transparent. Je ne peux donc
pas emprunter le contrôle PictureBox qui ne gère pas la transparence du
fond.
Tu peux essayer avec un UserControl en utilisant un Mask...
"Daniel - Z" a écrit dans le message de news: # Bonjour.
J'ai un problème qui n'a toujours pas été résolu dans ma grande liste de problème. Lors de l'évènement Keydown, je fais déplacer un contrôle image :
Image.Move Image.Left + A 'Par exemple ...
L'image, lors du déplacement, elle clignote. Et cela est quelque peu déplaisant. J'utilise une image avec un fond transparent. Je ne peux donc pas emprunter le contrôle PictureBox qui ne gère pas la transparence du fond.
Merci de m'aider.
Daniel - Z
Bonjour.
Je suis débutant et je ne sais pas c'est quoi un Mask ou un UserControl. Désolé.
Un exemple m'aiderait peut-être... Merci d'avance.
Cordialement Daniel
Bonjour.
Je suis débutant et je ne sais pas c'est quoi un Mask ou un UserControl.
Désolé.
Un exemple m'aiderait peut-être...
Merci d'avance.
Private MaskPicture As Picture Private ObjectPicture As Picture Private BackPicture As Picture
Private ObjectCurrentX As Long, ObjectCurentY As Long
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Select Case KeyCode Case vbKeyUp ObjectCurentY = ObjectCurentY - 5 Case vbKeyDown ObjectCurentY = ObjectCurentY + 5 Case vbKeyLeft ObjectCurrentX = ObjectCurrentX - 5 Case vbKeyRight ObjectCurrentX = ObjectCurrentX + 5 End Select
Private Sub Form_Load() Set ObjectPicture = LoadPicture("c:test.gif") Set MaskPicture = LoadPicture("c:testmask.gif") Set BackPicture = LoadPicture("c:bk.gif")
Picture2.AutoRedraw = True Picture2.ScaleMode = 3 Picture2.Visible = False Picture2.Width = Picture1.Width Picture2.Height = Picture1.Height Form_KeyDown 0, 0 End Sub
L'image doit avoir un fond noir. Le mask doit être noir sur fond blanc. Le mask spécifie les parties transparentes de l'image. Les zones noires seront tracée, au contraire de celles en blanc.
J'ai un problème qui n'a toujours pas été résolu dans ma grande liste de problème. Lors de l'évènement Keydown, je fais déplacer un contrôle image :
Image.Move Image.Left + A 'Par exemple ...
L'image, lors du déplacement, elle clignote. Et cela est quelque peu déplaisant. J'utilise une image avec un fond transparent. Je ne peux donc pas emprunter le contrôle PictureBox qui ne gère pas la transparence du fond.
Merci de m'aider.
Bonjour/soir,
une autre solution probablement moins lourde est d'employer les rasterops en
peignant l'image et son masque.
Private MaskPicture As Picture
Private ObjectPicture As Picture
Private BackPicture As Picture
Private ObjectCurrentX As Long, ObjectCurentY As Long
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyUp
ObjectCurentY = ObjectCurentY - 5
Case vbKeyDown
ObjectCurentY = ObjectCurentY + 5
Case vbKeyLeft
ObjectCurrentX = ObjectCurrentX - 5
Case vbKeyRight
ObjectCurrentX = ObjectCurrentX + 5
End Select
Private Sub Form_Load()
Set ObjectPicture = LoadPicture("c:test.gif")
Set MaskPicture = LoadPicture("c:testmask.gif")
Set BackPicture = LoadPicture("c:bk.gif")
Picture2.AutoRedraw = True
Picture2.ScaleMode = 3
Picture2.Visible = False
Picture2.Width = Picture1.Width
Picture2.Height = Picture1.Height
Form_KeyDown 0, 0
End Sub
L'image doit avoir un fond noir.
Le mask doit être noir sur fond blanc.
Le mask spécifie les parties transparentes de l'image.
Les zones noires seront tracée, au contraire de celles en blanc.
"Daniel - Z" <NOSPAM_daniel.z@laposte.net> a écrit dans le message de
news:%23rwBoOVoDHA.1408@TK2MSFTNGP11.phx.gbl
Bonjour.
J'ai un problème qui n'a toujours pas été résolu dans ma grande liste
de problème.
Lors de l'évènement Keydown, je fais déplacer un contrôle image :
Image.Move Image.Left + A 'Par exemple ...
L'image, lors du déplacement, elle clignote. Et cela est quelque peu
déplaisant. J'utilise une image avec un fond transparent. Je ne peux
donc pas emprunter le contrôle PictureBox qui ne gère pas la
transparence du fond.
Private MaskPicture As Picture Private ObjectPicture As Picture Private BackPicture As Picture
Private ObjectCurrentX As Long, ObjectCurentY As Long
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Select Case KeyCode Case vbKeyUp ObjectCurentY = ObjectCurentY - 5 Case vbKeyDown ObjectCurentY = ObjectCurentY + 5 Case vbKeyLeft ObjectCurrentX = ObjectCurrentX - 5 Case vbKeyRight ObjectCurrentX = ObjectCurrentX + 5 End Select
Private Sub Form_Load() Set ObjectPicture = LoadPicture("c:test.gif") Set MaskPicture = LoadPicture("c:testmask.gif") Set BackPicture = LoadPicture("c:bk.gif")
Picture2.AutoRedraw = True Picture2.ScaleMode = 3 Picture2.Visible = False Picture2.Width = Picture1.Width Picture2.Height = Picture1.Height Form_KeyDown 0, 0 End Sub
L'image doit avoir un fond noir. Le mask doit être noir sur fond blanc. Le mask spécifie les parties transparentes de l'image. Les zones noires seront tracée, au contraire de celles en blanc.
J'ai un problème qui n'a toujours pas été résolu dans ma grande liste de problème. Lors de l'évènement Keydown, je fais déplacer un contrôle image :
Image.Move Image.Left + A 'Par exemple ...
L'image, lors du déplacement, elle clignote. Et cela est quelque peu déplaisant. J'utilise une image avec un fond transparent. Je ne peux donc pas emprunter le contrôle PictureBox qui ne gère pas la transparence du fond.
