Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic Transformer le curseur listBox?

Transformer le curseur listBox?

13 réponses
Avatar
X
Bonjour :o)

Je tente de changer de curseur sur une listBox, suivant l'état de cette
dernière (enabled), alors j'ai comme procédure:

Sub List1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X
As Single, Y As Single)

Sur les FAQ VB il y a un exemple, mais pour une bouton (non indicé),
alors que la listBox est indicée:
http://faqvbnet.developpez.com/?page=form

Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) _
Handles Button1.Click
Cursor = Cursors.WaitCursor ' On passe le curseur en sablier
Cursor = Cursors.Arrow ' On repasse le curseur en normal
End Sub

Mon problème:
Comment transposer ce code de changement de curseur à ma listBox(indicée)
???

Merci.
--
ECRIRE
http://irolog.free.fr/ecrire/index.htm

LOGICIELS
http://irolog.free.fr

SITE
http://irolog.free.fr/joe/index.htm

FAQ VB
http://faq.vb.free.fr

PRINCIPE D'UTILISATION DES NEWSGROUPS MICROSOFT
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
********************************************************
Signaler un problème avec ce contenu

10 réponses

Supprimer
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
1 2
Avatar
fressem
XXX a écrit :

Bonjour :o)

Je tente de changer de curseur sur une listBox, suivant l'état de c ette
dernière (enabled), alors j'ai comme procédure:

Sub List1_MouseMove(Index As Integer, Button As Integer, Shift As Integer , X
As Single, Y As Single)

Sur les FAQ VB il y a un exemple, mais pour une bouton (non indicé),
alors que la listBox est indicée:
http://faqvbnet.developpez.com/?page=form

Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) _
Handles Button1.Click
Cursor = Cursors.WaitCursor ' On passe le curseur en sablier
Cursor = Cursors.Arrow ' On repasse le curseur en normal
End Sub

Mon problème:
Comment transposer ce code de changement de curseur à ma listBox(indic ée)
???

2 riens.
--
ECRIRE
http://irolog.free.fr/ecrire/index.htm

LOGICIELS
http://irolog.free.fr

SITE
http://irolog.free.fr/joe/index.htm

FAQ VB
http://faq.vb.free.fr

PRINCIPE D'UTILISATION DES NEWSGROUPS MICROSOFT
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
********************************************************


X a écrit :

Bonjour :o)

Je tente de changer de curseur sur une listBox, suivant l'état de c ette
dernière (enabled), alors j'ai comme procédure:

Sub List1_MouseMove(Index As Integer, Button As Integer, Shift As Integer , X
As Single, Y As Single)

Sur les FAQ VB il y a un exemple, mais pour une bouton (non indicé),
alors que la listBox est indicée:
http://faqvbnet.developpez.com/?page=form

Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) _
Handles Button1.Click
Cursor = Cursors.WaitCursor ' On passe le curseur en sablier
Cursor = Cursors.Arrow ' On repasse le curseur en normal
End Sub

Mon problème:
Comment transposer ce code de changement de curseur à ma listBox(indic ée)
???

Merci.
--
ECRIRE
http://irolog.free.fr/ecrire/index.htm

LOGICIELS
http://irolog.free.fr

SITE
http://irolog.free.fr/joe/index.htm

FAQ VB
http://faq.vb.free.fr

PRINCIPE D'UTILISATION DES NEWSGROUPS MICROSOFT
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
********************************************************


Avatar
X
Bonjour Monsieur Petitjean,

Il ne faut pas faire ça (dénaturer ma question en répondant sans savoir,
mettant des propos HS), ce n'es pas bien!
D'ailleurs je t'ai écrit à ce sujet, et je t'encourage à lire ceci, ainsi tu
comprendras comment on répond (à condition de savoir répondre :o)

PRINCIPE D'UTILISATION DES NEWSGROUPS MICROSOFT
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
--
Merci.
--





ECRIRE
http://irolog.free.fr/ecrire/index.htm

LOGICIELS
http://irolog.free.fr

SITE
http://irolog.free.fr/joe/index.htm

FAQ VB
http://faq.vb.free.fr

PRINCIPE D'UTILISATION DES NEWSGROUPS MICROSOFT
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
********************************************************



"fressem" a écrit dans le message de news:

XXX a écrit :

Bonjour :o)

Je tente de changer de curseur sur une listBox, suivant l'état de
cette
dernière (enabled), alors j'ai comme procédure:

Sub List1_MouseMove(Index As Integer, Button As Integer, Shift As Integer,
X
As Single, Y As Single)

Sur les FAQ VB il y a un exemple, mais pour une bouton (non indicé),
alors que la listBox est indicée:
http://faqvbnet.developpez.com/?page=form

Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) _
Handles Button1.Click
Cursor = Cursors.WaitCursor ' On passe le curseur en sablier
Cursor = Cursors.Arrow ' On repasse le curseur en normal
End Sub

Mon problème:
Comment transposer ce code de changement de curseur à ma listBox(indicée)
???

2 riens.
--
ECRIRE
http://irolog.free.fr/ecrire/index.htm

LOGICIELS
http://irolog.free.fr

SITE
http://irolog.free.fr/joe/index.htm

FAQ VB
http://faq.vb.free.fr

PRINCIPE D'UTILISATION DES NEWSGROUPS MICROSOFT
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
********************************************************


X a écrit :

Bonjour :o)

Je tente de changer de curseur sur une listBox, suivant l'état de
cette
dernière (enabled), alors j'ai comme procédure:

Sub List1_MouseMove(Index As Integer, Button As Integer, Shift As Integer,
X
As Single, Y As Single)

Sur les FAQ VB il y a un exemple, mais pour une bouton (non indicé),
alors que la listBox est indicée:
http://faqvbnet.developpez.com/?page=form

Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) _
Handles Button1.Click
Cursor = Cursors.WaitCursor ' On passe le curseur en sablier
Cursor = Cursors.Arrow ' On repasse le curseur en normal
End Sub

Mon problème:
Comment transposer ce code de changement de curseur à ma listBox(indicée)
???

Merci.
--
ECRIRE
http://irolog.free.fr/ecrire/index.htm

LOGICIELS
http://irolog.free.fr

SITE
http://irolog.free.fr/joe/index.htm

FAQ VB
http://faq.vb.free.fr

PRINCIPE D'UTILISATION DES NEWSGROUPS MICROSOFT
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
********************************************************


Avatar
Patrice Henrio
"X" <.> a écrit dans le message de news:


Bonjour :o)

Je tente de changer de curseur sur une listBox, suivant l'état de cette
dernière (enabled), alors j'ai comme procédure:

Sub List1_MouseMove(Index As Integer, Button As Integer, Shift As Integer,
X As Single, Y As Single)

Sur les FAQ VB il y a un exemple, mais pour une bouton (non indicé),
alors que la listBox est indicée:
http://faqvbnet.developpez.com/?page=form

Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) _
Handles Button1.Click
Cursor = Cursors.WaitCursor ' On passe le curseur en sablier
Cursor = Cursors.Arrow ' On repasse le curseur en normal
End Sub

Mon problème:
Comment transposer ce code de changement de curseur à ma listBox(indicée)
???

Merci.
--
ECRIRE
http://irolog.free.fr/ecrire/index.htm

LOGICIELS
http://irolog.free.fr

SITE
http://irolog.free.fr/joe/index.htm

FAQ VB
http://faq.vb.free.fr

PRINCIPE D'UTILISATION DES NEWSGROUPS MICROSOFT
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
********************************************************








Dans une forme tu places une liste, un bouton de commande deux labels
invisibles.
Label1.mousePointer=1 '(arrow)
Label2.mousePointer '(sablier)

Private Sub Command1_Click()
Form1.List1.Enabled = Not Form1.List1.Enabled
End Sub


Private Sub List1_MouseMove(Button As Integer, Shift As Integer, X As
Single, Y As Single)
If Not List1.Enabled Then
List1.MousePointer = vbArrow
List1.MouseIcon = Label1.MouseIcon

Else
List1.MousePointer = vbHourglass
List1.MouseIcon = Label2.MouseIcon
End If
End Sub

Et là en cliquant sur le commandbutton et en passant ensuite sur la liste tu
vois ton curseur de souris en fonction de l'état de enabled.

Par contre les pointeurs apparaissant sont ceux définis par l'utilisateur de
windows par défaut.
Pour obtenir ceux que tu souhaites il faut utiliser

List1.mouseIcon=LoadPicture(<nom du fichier>.cur)

Bon courage.
Avatar
X
Merci :o)

Je vais tenter de mettre ça en place, je te dirais...


ECRIRE
http://irolog.free.fr/ecrire/index.htm

LOGICIELS
http://irolog.free.fr

SITE
http://irolog.free.fr/joe/index.htm

FAQ VB
http://faq.vb.free.fr

PRINCIPE D'UTILISATION DES NEWSGROUPS MICROSOFT
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
********************************************************



"Patrice Henrio" a écrit dans le message de
news: e$

"X" <.> a écrit dans le message de news:


Bonjour :o)

Je tente de changer de curseur sur une listBox, suivant l'état de
cette dernière (enabled), alors j'ai comme procédure:

Sub List1_MouseMove(Index As Integer, Button As Integer, Shift As
Integer, X As Single, Y As Single)

Sur les FAQ VB il y a un exemple, mais pour une bouton (non indicé),
alors que la listBox est indicée:
http://faqvbnet.developpez.com/?page=form

Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) _
Handles Button1.Click
Cursor = Cursors.WaitCursor ' On passe le curseur en sablier
Cursor = Cursors.Arrow ' On repasse le curseur en normal
End Sub

Mon problème:
Comment transposer ce code de changement de curseur à ma listBox(indicée)
???

Merci.
--
ECRIRE
http://irolog.free.fr/ecrire/index.htm

LOGICIELS
http://irolog.free.fr

SITE
http://irolog.free.fr/joe/index.htm

FAQ VB
http://faq.vb.free.fr

PRINCIPE D'UTILISATION DES NEWSGROUPS MICROSOFT
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
********************************************************








Dans une forme tu places une liste, un bouton de commande deux labels
invisibles.
Label1.mousePointer=1 '(arrow)
Label2.mousePointer '(sablier)

Private Sub Command1_Click()
Form1.List1.Enabled = Not Form1.List1.Enabled
End Sub


Private Sub List1_MouseMove(Button As Integer, Shift As Integer, X As
Single, Y As Single)
If Not List1.Enabled Then
List1.MousePointer = vbArrow
List1.MouseIcon = Label1.MouseIcon

Else
List1.MousePointer = vbHourglass
List1.MouseIcon = Label2.MouseIcon
End If
End Sub

Et là en cliquant sur le commandbutton et en passant ensuite sur la liste
tu vois ton curseur de souris en fonction de l'état de enabled.

Par contre les pointeurs apparaissant sont ceux définis par l'utilisateur
de windows par défaut.
Pour obtenir ceux que tu souhaites il faut utiliser

List1.mouseIcon=LoadPicture(<nom du fichier>.cur)

Bon courage.



Avatar
Joel Chaudy [MS]
Bonjour Monsieur Petitjean,

J'aimerai comprendre votre motivation à répondre sans répondre ou à
"provoquer" une personne qui pose une question normallement.

Si vous souhaitez en parler merci de me contacter directement. Vous
trouverez mon email dans le post "Principe d'utilisation des newsgroups"
publié régulièrement dans ce forum.

Bien cordialement,

Joel CHAUDY
Microsoft France
Relation avec les communautés


"fressem" a écrit dans le message de news:

XXX a écrit :

Bonjour :o)

Je tente de changer de curseur sur une listBox, suivant l'état de
cette
dernière (enabled), alors j'ai comme procédure:

Sub List1_MouseMove(Index As Integer, Button As Integer, Shift As Integer,
X
As Single, Y As Single)

Sur les FAQ VB il y a un exemple, mais pour une bouton (non indicé),
alors que la listBox est indicée:
http://faqvbnet.developpez.com/?page=form

Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) _
Handles Button1.Click
Cursor = Cursors.WaitCursor ' On passe le curseur en sablier
Cursor = Cursors.Arrow ' On repasse le curseur en normal
End Sub

Mon problème:
Comment transposer ce code de changement de curseur à ma listBox(indicée)
???

2 riens.
--
ECRIRE
http://irolog.free.fr/ecrire/index.htm

LOGICIELS
http://irolog.free.fr

SITE
http://irolog.free.fr/joe/index.htm

FAQ VB
http://faq.vb.free.fr

PRINCIPE D'UTILISATION DES NEWSGROUPS MICROSOFT
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
********************************************************


X a écrit :

Bonjour :o)

Je tente de changer de curseur sur une listBox, suivant l'état de
cette
dernière (enabled), alors j'ai comme procédure:

Sub List1_MouseMove(Index As Integer, Button As Integer, Shift As Integer,
X
As Single, Y As Single)

Sur les FAQ VB il y a un exemple, mais pour une bouton (non indicé),
alors que la listBox est indicée:
http://faqvbnet.developpez.com/?page=form

Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) _
Handles Button1.Click
Cursor = Cursors.WaitCursor ' On passe le curseur en sablier
Cursor = Cursors.Arrow ' On repasse le curseur en normal
End Sub

Mon problème:
Comment transposer ce code de changement de curseur à ma listBox(indicée)
???

Merci.
--
ECRIRE
http://irolog.free.fr/ecrire/index.htm

LOGICIELS
http://irolog.free.fr

SITE
http://irolog.free.fr/joe/index.htm

FAQ VB
http://faq.vb.free.fr

PRINCIPE D'UTILISATION DES NEWSGROUPS MICROSOFT
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
********************************************************


Avatar
Patrice Henrio
"X" <.> a écrit dans le message de news:

Merci :o)

Je vais tenter de mettre ça en place, je te dirais...


ECRIRE
http://irolog.free.fr/ecrire/index.htm

LOGICIELS
http://irolog.free.fr

SITE
http://irolog.free.fr/joe/index.htm

FAQ VB
http://faq.vb.free.fr

PRINCIPE D'UTILISATION DES NEWSGROUPS MICROSOFT
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
********************************************************



"Patrice Henrio" a écrit dans le message de
news: e$

"X" <.> a écrit dans le message de news:


Bonjour :o)

Je tente de changer de curseur sur une listBox, suivant l'état de
cette dernière (enabled), alors j'ai comme procédure:

Sub List1_MouseMove(Index As Integer, Button As Integer, Shift As
Integer, X As Single, Y As Single)

Sur les FAQ VB il y a un exemple, mais pour une bouton (non indicé),
alors que la listBox est indicée:
http://faqvbnet.developpez.com/?page=form

Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) _
Handles Button1.Click
Cursor = Cursors.WaitCursor ' On passe le curseur en sablier
Cursor = Cursors.Arrow ' On repasse le curseur en normal
End Sub

Mon problème:
Comment transposer ce code de changement de curseur à ma
listBox(indicée) ???

Merci.
--
ECRIRE
http://irolog.free.fr/ecrire/index.htm

LOGICIELS
http://irolog.free.fr

SITE
http://irolog.free.fr/joe/index.htm

FAQ VB
http://faq.vb.free.fr

PRINCIPE D'UTILISATION DES NEWSGROUPS MICROSOFT
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
********************************************************












If Not List1.Enabled Then
List1.MousePointer = vbArrow
List1.MouseIcon = Label1.MouseIcon

Else
List1.MousePointer = vbHourglass
List1.MouseIcon = Label2.MouseIcon
End If

s'écrit tout aussi bien

If List1.Enabled Then
List1.MousePointer = vbHourglass
List1.MouseIcon = Label2.MouseIcon
Else
List1.MousePointer = vbArrow
List1.MouseIcon = Label1.MouseIcon
End If

Le not provient d'une petite complication lors du test et j'ai oublié de
remettre en ordre.
Avatar
X
Merci :o)

Mais ça ne marche pas!
J'aurais dû m'en rendre compte plus tôt, à partir du moment où la liste à la
propriété enabledúlse, l'évènement MouseMove n'est plus opérationnel, je
ne sais pas comment faire???

En plus le faits d'appeler la constante VB du curseur ne fonctionne pas,
je ne sais pas pourquoi, voici:

Sub List1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X
As Single, Y As Single)
' liste (est la liste enabled=true, le autres enabledúlse (4 listes(i)
au total)

If Index = (liste - 1) Then List1(Index).MouseIcon = LoadPicture(App.Path
& "harrow.cur") ' ok
If Index <> (liste - 1) Then List1(Index).MouseIcon = LoadPicture(App.Path
& "nodrop.cur") 'ok

' If Index = (liste - 1) Then List1(Index).MousePointer = vbArrow '
fonctionne pas
' If Index <> (liste - 1) Then List1(Index).MousePointer = vbNoDrop '
fonctionne pas
End Sub

Si tu as une idée, merci :o)

--
ECRIRE
http://irolog.free.fr/ecrire/index.htm

LOGICIELS
http://irolog.free.fr

SITE
http://irolog.free.fr/joe/index.htm

FAQ VB
http://faq.vb.free.fr

PRINCIPE D'UTILISATION DES NEWSGROUPS MICROSOFT
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
********************************************************



"Patrice Henrio" a écrit dans le message de
news:

"X" <.> a écrit dans le message de news:

Merci :o)

Je vais tenter de mettre ça en place, je te dirais...


ECRIRE
http://irolog.free.fr/ecrire/index.htm

LOGICIELS
http://irolog.free.fr

SITE
http://irolog.free.fr/joe/index.htm

FAQ VB
http://faq.vb.free.fr

PRINCIPE D'UTILISATION DES NEWSGROUPS MICROSOFT
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
********************************************************



"Patrice Henrio" a écrit dans le message de
news: e$

"X" <.> a écrit dans le message de news:


Bonjour :o)

Je tente de changer de curseur sur une listBox, suivant l'état de
cette dernière (enabled), alors j'ai comme procédure:

Sub List1_MouseMove(Index As Integer, Button As Integer, Shift As
Integer, X As Single, Y As Single)

Sur les FAQ VB il y a un exemple, mais pour une bouton (non indicé),
alors que la listBox est indicée:
http://faqvbnet.developpez.com/?page=form

Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) _
Handles Button1.Click
Cursor = Cursors.WaitCursor ' On passe le curseur en sablier
Cursor = Cursors.Arrow ' On repasse le curseur en normal
End Sub

Mon problème:
Comment transposer ce code de changement de curseur à ma
listBox(indicée) ???

Merci.
--
ECRIRE
http://irolog.free.fr/ecrire/index.htm

LOGICIELS
http://irolog.free.fr

SITE
http://irolog.free.fr/joe/index.htm

FAQ VB
http://faq.vb.free.fr

PRINCIPE D'UTILISATION DES NEWSGROUPS MICROSOFT
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
********************************************************












If Not List1.Enabled Then
List1.MousePointer = vbArrow
List1.MouseIcon = Label1.MouseIcon

Else
List1.MousePointer = vbHourglass
List1.MouseIcon = Label2.MouseIcon
End If

s'écrit tout aussi bien

If List1.Enabled Then
List1.MousePointer = vbHourglass
List1.MouseIcon = Label2.MouseIcon
Else
List1.MousePointer = vbArrow
List1.MouseIcon = Label1.MouseIcon
End If

Le not provient d'une petite complication lors du test et j'ai oublié de
remettre en ordre.





Avatar
Patrice Henrio
"X" <.> a écrit dans le message de news:
%
Merci :o)

Mais ça ne marche pas!
J'aurais dû m'en rendre compte plus tôt, à partir du moment où la liste à
la
propriété enabledúlse, l'évènement MouseMove n'est plus opérationnel, je
ne sais pas comment faire???

En plus le faits d'appeler la constante VB du curseur ne fonctionne
pas,
je ne sais pas pourquoi, voici:

Sub List1_MouseMove(Index As Integer, Button As Integer, Shift As Integer,
X
As Single, Y As Single)
' liste (est la liste enabled=true, le autres enabledúlse (4 listes(i)
au total)

If Index = (liste - 1) Then List1(Index).MouseIcon = LoadPicture(App.Path
& "harrow.cur") ' ok
If Index <> (liste - 1) Then List1(Index).MouseIcon =
LoadPicture(App.Path
& "nodrop.cur") 'ok

' If Index = (liste - 1) Then List1(Index).MousePointer = vbArrow '
fonctionne pas
' If Index <> (liste - 1) Then List1(Index).MousePointer = vbNoDrop '
fonctionne pas
End Sub

Si tu as une idée, merci :o)

--
ECRIRE
http://irolog.free.fr/ecrire/index.htm

LOGICIELS
http://irolog.free.fr

SITE
http://irolog.free.fr/joe/index.htm

FAQ VB
http://faq.vb.free.fr

PRINCIPE D'UTILISATION DES NEWSGROUPS MICROSOFT
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
********************************************************



"Patrice Henrio" a écrit dans le message de
news:

"X" <.> a écrit dans le message de news:

Merci :o)

Je vais tenter de mettre ça en place, je te dirais...


ECRIRE
http://irolog.free.fr/ecrire/index.htm

LOGICIELS
http://irolog.free.fr

SITE
http://irolog.free.fr/joe/index.htm

FAQ VB
http://faq.vb.free.fr

PRINCIPE D'UTILISATION DES NEWSGROUPS MICROSOFT
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
********************************************************



"Patrice Henrio" a écrit dans le message de
news: e$

"X" <.> a écrit dans le message de news:


Bonjour :o)

Je tente de changer de curseur sur une listBox, suivant l'état de
cette dernière (enabled), alors j'ai comme procédure:

Sub List1_MouseMove(Index As Integer, Button As Integer, Shift As
Integer, X As Single, Y As Single)

Sur les FAQ VB il y a un exemple, mais pour une bouton (non
indicé),
alors que la listBox est indicée:
http://faqvbnet.developpez.com/?page=form

Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) _
Handles Button1.Click
Cursor = Cursors.WaitCursor ' On passe le curseur en sablier
Cursor = Cursors.Arrow ' On repasse le curseur en normal
End Sub

Mon problème:
Comment transposer ce code de changement de curseur à ma
listBox(indicée) ???

Merci.
--
ECRIRE
http://irolog.free.fr/ecrire/index.htm

LOGICIELS
http://irolog.free.fr

SITE
http://irolog.free.fr/joe/index.htm

FAQ VB
http://faq.vb.free.fr

PRINCIPE D'UTILISATION DES NEWSGROUPS MICROSOFT
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
********************************************************












If Not List1.Enabled Then
List1.MousePointer = vbArrow
List1.MouseIcon = Label1.MouseIcon

Else
List1.MousePointer = vbHourglass
List1.MouseIcon = Label2.MouseIcon
End If

s'écrit tout aussi bien

If List1.Enabled Then
List1.MousePointer = vbHourglass
List1.MouseIcon = Label2.MouseIcon
Else
List1.MousePointer = vbArrow
List1.MouseIcon = Label1.MouseIcon
End If

Le not provient d'une petite complication lors du test et j'ai oublié de
remettre en ordre.









Je ne comprends pas chez moi ça marche. Je t'envoie le fichier form1 et
projet1 qui contient le minimum.
Même avec enabled = false, l'évènement mousemove répond.

Sub List1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X
As Single, Y As Single)
' liste (est la liste enabled=true, le autres enabledúlse (4
listes(i) au total)

If Index = (liste - 1) Then
List1(Index).MousePointer = vbArrow
List1(Index).MouseIcon = LoadPicture(App.Path &
"harrow.cur") ' ok
else
List1(Index).MousePointer = vbNoDrop
List1(Index).MouseIcon = LoadPicture(App.Path &
"nodrop.cur") 'ok
End If
End Sub

Je ne sais plus pourquoi mais je crois qu'il faut définir MousePointer avant
MouseIcon (Je n'en suis pas très sur)
Mais si tu ouvres projet1 (mes deux labels sont visibles uniquement pour
montrer le principe) et que tu lances tu verras que ça marche normalement.
Je suppose que Liste est une variable globale de type integer.




begin 666 Form1.frm
M5D524TE/3B U+C P#0I"96=I;B!60BY&;W)M($9O<FTQ( T*(" @0V%P=&EO
M;B @(" @(" @(#T@(" B1F]R;3$B#0H@("!#;&EE;G1(96EG:'0@(" @/2 @
M(#,P.3 -"B @($-L:65N=$QE9G0@(" @(" ](" @-C -"B @($-L:65N=%1O
M<" @(" @(" ](" @-#4P#0H@("!#;&EE;G17:61T:" @(" @/2 @(#0V.# -
M"B @($QI;FM4;W!I8R @(" @(" ](" @(D9O<FTQ(@T*(" @4V-A;&5(96EG
M:'0@(" @(#T@(" Q-#@U, T*(" @4V-A;&57:61T:" @(" @(#T@(" Q.3 X
M, T*(" @4W1A<G15<%!O<VET:6]N(#T@(" S(" G5VEN9&]W<R!$969A=6QT
M#0H@("!"96=I;B!60BY#;VUM86YD0G5T=&]N($-O;6UA;F0Q( T*(" @(" @
M0V%P=&EO;B @(" @(" @(#T@(" B0V]M;6%N9#$B#0H@(" @("!(96EG:'0@
M(" @(" @(" @/2 @(#DW-0T*(" @(" @3&5F=" @(" @(" @(" @(#T@(" Y
M,# P#0H@(" @("!486));F1E>" @(" @(" @/2 @(#$-"B @(" @(%1O<" @
M(" @(" @(" @(" ](" @,3DR, T*(" @(" @5VED=&@@(" @(" @(" @(#T@
M(" R-#$U#0H@("!%;F0-"B @($)E9VEN(%9"+DQI<W1";W@@3&ES=#$@#0H@
M(" @("!(96EG:'0@(" @(" @(" @/2 @(#,W-C4-"B @(" @($QE9G0@(" @
M(" @(" @(" ](" @,C0P, T*(" @(" @5&%B26YD97@@(" @(" @(#T@(" P
M#0H@(" @("!4;W @(" @(" @(" @(" @/2 @(#DV, T*(" @(" @5VED=&@@
M(" @(" @(" @(#T@(" S-C$U#0H@("!%;F0-"B @($)E9VEN(%9"+DQA8F5L
M($QA8F5L,B -"B @(" @($-A<'1I;VX@(" @(" @(" ](" @(DQA8F5L,B(-
M"B @(" @($AE:6=H=" @(" @(" @(" ](" @.3<U#0H@(" @("!,969T(" @
M(" @(" @(" @/2 @(#<P.# -"B @(" @($UO=7-E4&]I;G1E<B @(" ](" @
M,3$@("=(;W5R9VQA<W,-"B @(" @(%1A8DEN9&5X(" @(" @(" ](" @,PT*
M(" @(" @5&]P(" @(" @(" @(" @(#T@(" V,# P#0H@(" @("!7:61T:" @
M(" @(" @(" @/2 @(#$S,S4-"B @($5N9 T*(" @0F5G:(N3&%B96P@
M3&%B96PQ( T*(" @(" @0V%P=&EO;B @(" @(" @(#T@(" B3&%B96PQ(@T*
M(" @(" @2&5I9VAT(" @(" @(" @(#T@(" W,S4-"B @(" @($QE9G0@(" @
M(" @(" @(" ](" @,SDV, T*(" @(" @36]U<V50;VEN=&5R(" @(#T@(" Q
M(" G07)R;W<-"B @(" @(%1A8DEN9&5X(" @(" @(" ](" @,@T*(" @(" @
M5&]P(" @(" @(" @(" @(#T@(" V,# P#0H@(" @("!7:61T:" @(" @(" @
M(" @/2 @(#$P.34-"B @($5N9 T*16YD#0I!='1R:6)U=&)?3F%M92 ]
M(")&;W)M,2(-"D%T=')I8G5T92!60E]';&]B86Q.86UE4W!A8V4@/2!&86QS
M90T*071T<FEBqE(%9"7T-R96%T86)L92 ]($9A;'-E#0I!='1R:6)U=&4@
M5D)?4')E9&5C;&%R961)9" ](%1Rd-"D%T=')I8G5T92!60E]%>'!O<V5D
M(#%L<V4-"D]P=&EO;B!%>'!L:6-I= T*#0I0<FEV871E(%-U8B!#;VUM
M86YD,5]#;&EC:#0H@(" @1F]R;3$N3&ES=#$N16YA8FQE9" ]($YO="!&
M;W)M,2Y,:7-T,2Y%;F%B;&5D#0I%;#0H-"@T*4')I=F%T92!3=6(@
M3&ES=#%?36]U<V5-;W9E*$)U='1O;B!!<R!);G1E9V5R+"!3:&EF="!!<R!)
M;G1E9V5R+"!8($%S(%-I;F=!!<R!3:6YG;&4I#0H@(" @]T
M($QI<W0Q+D5N86)&AE;@T*(" @(" @(" @(" @3&ES=#$N36]U<V50
M;VEN=&5R(#T@=F)!<G)O=PT*(" @(" @(" @(" @3&ES=#$N36]U<V5)8V]N
M(#&%B96PQ+DUO=7-E26-O;@T*(" @(" @(" @(" @#0H@(" @(" @($5L
M<V4-"B @(" @(" @(" @($QI<W0Q+DUO=7-E4&]I;G1E<B ]('9B2&]U<F=L
M87-S#0H@(" @(" @(" @("!,:7-T,2Y-;W5S94EC;VX@/2!,86)E;#(N36]U
=<V5)8V]N#0H@(" @16YD($EF#0I%;#0H`
`
end

begin 666 Projet1.vbp
M5'EP93U%>&4-"D9O<FT]1F]R;3$N9G)M#0I2969E<F5N8V4]*EQ'>S P,#(P
M-#,P+3 P,# M,# P,"U#,# P+3 P,# P,# P,# T-GTC,BXP(S C+BY<+BY<
M+BY<5TE.1$]74UQS>7-T96TS,EQS=&1O;&4R+G1L8B-/3$;VUA=&EO
M;@T*26-O;D9O<FT](D9O<FTQ(@T*4W1A<G1U<#TB1F]R;3$B#0I#;VUM86YD
M,S(](B(-"DYA;64](E!R;VIE=#$B#0I(96QP0V]N=&5X=$E$/2(P(@T*0V]M
M<&%T:6)L94UO9&4](C B#0I-86IO<E9E<CTQ#0I-:6YO<E9E<CTP#0I2979I
M<VEO;E9E<CTP#0I!qO26YC<F5M96YT5F5R/3 -"E-E<G9E<E-U<'!O<G1&
M:6QE<STP#0I#;VUP:6QA=&EO;E1Y<&4], T*3W!T:6UI>F%T:6]N5'EP93TP
M#0I&879O<E!E;G1I=6U0<FH=&TI/3 -"D-O9&56:65W1&5B=6=);F9O/3 -
M"DYO06QI87-I;F<], T*0F]U;F1S0VAE8VL], T*3W9E<F9L;W=#:&5C:STP
M#0I&;%!O:6YT0VAE8VL], T*1D1)5D-H96-K/3 -"E5N<F]U;F1E9$90/3 -
M"E-T87)T36]D93TP#0I5;F%T=&5N9&5D/3 -"E)E=&%I;F5D/3 -"E1H<F5A
M9%!E<D]B:F5C=#TP#0I-87A.=6UB97)/9E1H<F5A9',],0T*#0I;35,@5')A
A;G-A8W1I;õR70T*075T;U)E9G)E<V@],0T*
`
end
Avatar
X
Salut :o)

Merci, mais... "Non", je maintiens, ça ne marche pas, je te renvois ton
exemple modifié.

Tu avais l'impression que ça marchait car tu as choisit "harrow" et sur
la liste et sur la form, alors tu ne pouvais pas voir la différence, c'était
toujours le même (en liste1.enabled), mais là, vois l'exemple retourné, j'ai
choisit 3 types de curseurs, un "harrow" picture (list1.enabled), 1 "harrow"
constanteVB pour la form, et 1 "nodrop" picture (list1.disabled), et là on
voit que ça coince...

Tandis que dans le 2 label, où j'ai chargé la même chose (que pour la
list1), ça marche très bien car ils ne sont jamais "disabled"

Pour répondre à ce que tu dis (mousePointer) est définit dans les
propriétés invisibles de l'éditeur de propriétés en (custom)...

C'est pas très important, mais si tu as une idée pour contourner le
problème, ne m'oublies pas lol :o)

Par contre si tu ne vois pas, informe-moi stp, je reposerai la question,
peut être que quelqu'un va finir par trouver, tout vient de la list.disabled
qui dans ce cas, ne passe pas l'évènement "mouseMove"...

@+, bye, Joe :o)

--
ECRIRE
http://irolog.free.fr/ecrire/index.htm

LOGICIELS
http://irolog.free.fr

SITE
http://irolog.free.fr/joe/index.htm

FAQ VB
http://faq.vb.free.fr

PRINCIPE D'UTILISATION DES NEWSGROUPS MICROSOFT
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
********************************************************



"Patrice Henrio" a écrit dans le message de
news:


"X" <.> a écrit dans le message de news:
%
Merci :o)

Mais ça ne marche pas!
J'aurais dû m'en rendre compte plus tôt, à partir du moment où la liste à
la
propriété enabledúlse, l'évènement MouseMove n'est plus opérationnel,
je
ne sais pas comment faire???

En plus le faits d'appeler la constante VB du curseur ne fonctionne
pas,
je ne sais pas pourquoi, voici:

Sub List1_MouseMove(Index As Integer, Button As Integer, Shift As
Integer,
X
As Single, Y As Single)
' liste (est la liste enabled=true, le autres enabledúlse (4 listes(i)
au total)

If Index = (liste - 1) Then List1(Index).MouseIcon =
LoadPicture(App.Path
& "harrow.cur") ' ok
If Index <> (liste - 1) Then List1(Index).MouseIcon >> LoadPicture(App.Path
& "nodrop.cur") 'ok

' If Index = (liste - 1) Then List1(Index).MousePointer = vbArrow '
fonctionne pas
' If Index <> (liste - 1) Then List1(Index).MousePointer = vbNoDrop '
fonctionne pas
End Sub

Si tu as une idée, merci :o)

--
ECRIRE
http://irolog.free.fr/ecrire/index.htm

LOGICIELS
http://irolog.free.fr

SITE
http://irolog.free.fr/joe/index.htm

FAQ VB
http://faq.vb.free.fr

PRINCIPE D'UTILISATION DES NEWSGROUPS MICROSOFT
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
********************************************************



"Patrice Henrio" a écrit dans le message de
news:

"X" <.> a écrit dans le message de news:

Merci :o)

Je vais tenter de mettre ça en place, je te dirais...


ECRIRE
http://irolog.free.fr/ecrire/index.htm

LOGICIELS
http://irolog.free.fr

SITE
http://irolog.free.fr/joe/index.htm

FAQ VB
http://faq.vb.free.fr

PRINCIPE D'UTILISATION DES NEWSGROUPS MICROSOFT
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
********************************************************



"Patrice Henrio" a écrit dans le message
de
news: e$

"X" <.> a écrit dans le message de news:


Bonjour :o)

Je tente de changer de curseur sur une listBox, suivant l'état de
cette dernière (enabled), alors j'ai comme procédure:

Sub List1_MouseMove(Index As Integer, Button As Integer, Shift As
Integer, X As Single, Y As Single)

Sur les FAQ VB il y a un exemple, mais pour une bouton (non
indicé),
alors que la listBox est indicée:
http://faqvbnet.developpez.com/?page=form

Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) _
Handles Button1.Click
Cursor = Cursors.WaitCursor ' On passe le curseur en sablier
Cursor = Cursors.Arrow ' On repasse le curseur en normal
End Sub

Mon problème:
Comment transposer ce code de changement de curseur à ma
listBox(indicée) ???

Merci.
--
ECRIRE
http://irolog.free.fr/ecrire/index.htm

LOGICIELS
http://irolog.free.fr

SITE
http://irolog.free.fr/joe/index.htm

FAQ VB
http://faq.vb.free.fr

PRINCIPE D'UTILISATION DES NEWSGROUPS MICROSOFT
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
********************************************************












If Not List1.Enabled Then
List1.MousePointer = vbArrow
List1.MouseIcon = Label1.MouseIcon

Else
List1.MousePointer = vbHourglass
List1.MouseIcon = Label2.MouseIcon
End If

s'écrit tout aussi bien

If List1.Enabled Then
List1.MousePointer = vbHourglass
List1.MouseIcon = Label2.MouseIcon
Else
List1.MousePointer = vbArrow
List1.MouseIcon = Label1.MouseIcon
End If

Le not provient d'une petite complication lors du test et j'ai oublié de
remettre en ordre.









Je ne comprends pas chez moi ça marche. Je t'envoie le fichier form1 et
projet1 qui contient le minimum.
Même avec enabled = false, l'évènement mousemove répond.

Sub List1_MouseMove(Index As Integer, Button As Integer, Shift As Integer,
X
As Single, Y As Single)
' liste (est la liste enabled=true, le autres enabledúlse (4
listes(i) au total)

If Index = (liste - 1) Then
List1(Index).MousePointer = vbArrow
List1(Index).MouseIcon = LoadPicture(App.Path &
"harrow.cur") ' ok
else
List1(Index).MousePointer = vbNoDrop
List1(Index).MouseIcon = LoadPicture(App.Path &
"nodrop.cur") 'ok
End If
End Sub

Je ne sais plus pourquoi mais je crois qu'il faut définir MousePointer
avant
MouseIcon (Je n'en suis pas très sur)
Mais si tu ouvres projet1 (mes deux labels sont visibles uniquement pour
montrer le principe) et que tu lances tu verras que ça marche normalement.
Je suppose que Liste est une variable globale de type integer.









begin 666 curseur liste.zip
M4$L#!!0````(``!P'"O2K--!T ```/X"```8````8W5R<V5U<B!L:7-T92]H
M87)R;W<N8W5RK9([#L(P$$0G`2D-4CKJE!R#(@?A"'24=LFQ<@`.$3I*) I<
M()99.X"7GT!B[+'U]I<H"E"B0-,`$]Z[$I@"F-$,84X7&$/E2[R1CQO>ITN7
MAGAT7<>(Q V1=.G2D![?:+QIVW;^/T8+*R<2/G#%-Q5OTCG'=-;PR.XEWP:D
MIS7AEV 91[W,!58(<[AOK*2X9J?^-80F;<,.Y27AG.BB/#Z%=&/MQ*KNI'
MS]Y7=RMWM"^24<1?Z#SXI&'W'-LSWVM?3?.+;7ZD!Y[`5!+`P04````
M" ``<!PK]].=MA<!``#^`@``& ```&-U<G-E=7(@;&ES=&4O;F]D<F]P+F-U
M<G52NU(#,0Q<'PSI8BHJ9I*2CB0? J?0)DN^K3[E)24*BD8S*YTOH3+Q+ZU
M3UH];,G @(+M%GA&Q=<`O !X(ZC"@2AXA(8-N#,L/ICEIBD5EW$<J6GQH;7<
M-*72$J-=?CEJ_#?OHO_?O=O75*<HA2?=IA$&E>$4*E9/VC-+&'BE&"11PUR9
M)C=J:.8]:LA$T/2$R[TF':I0)JTK3'+2LYQTF^6D9SXB3:G2/[R[[$G'R<,)
MTWRO$GGR>,>X>WH7GE77$Y^78]EO9;UO*GWLAW_5KV$]?]5A6;E?8+G'Z
M_3>P4?8SL!J!!%65FR#8N]BCLZ'8E/XH,XZ%$^$6OBE2]O5PQ'XERZOV(I
MIF(KAW(IISKX!U!+`P04````" `*1C$S.^C4$;8"``!""0``%P```&-U<G-E
M=7(@;&ES=&4O1F]R;3$N9G)MK55=3]LP%'U'XC]<]6$4#45)2NGZP$,;RA:I
ME&KIV"<>0ZK/O)^Q>SD^:+T0"BD>(H/M?'YQY?VW>3KYY[.X.^
M89K'1V-<TQCNQL8U%Q'HQH+C(P!P2"(ICZ%X+M7;R?!.CC.*L?R"=!W*`C^W
M+P:.,5[60WN6[TZN.!)C=DV[7X-_$X#&9;@^=#.1TYI_*#&47^/)LG#"M)
M34T96!$WF4L;'!Y%) [&J90J^=W?SA+8XTH1U2FB:A)J4_4+N/*!3J9Z
M%F3EQ@%NZ[= VR&U#"ODY5//HF#9KI3NI%]K;)3G]O<-&:
M@&67$FYXNL$YI[%$4<##(<")DVXDC]K2--O2M,];L[3MX;XLR0H99*U=)CGF
M(D#AR3,2PI+B;RF6PS H_&:8>=;W!03SKO<,SRWR%9]8!
M/0N)$/SW>URS^P=QS3Z8:UDSDE+052I1>;><D0A58'DT-<#/C*(TR%>0GP M=TW8!I]$.0*))"NV#Y+#-!G1'W<0,4L1/HT9+)-^ :#BD!+OLT716&,^E3J
MKBL:`871!J87NN.$QWJI:OL.EA..0FZI[K?":$?408)8DQ)J5$TCT)![
MDC*Y"Z&B#-B1J8:IP6+:OI8;,5+<+YYB]L;'9)C1K:BKJD7H*>>4Y]F0KL
MEG-^@,ZOO(@,/Q6=4R4"##<EC?TZFI@'@B<Y3396'X+&)-:VUVS3I<Q8
M>1<LU17E/V3+#LHD[(8G7"'ED<]-,..RV:>#W/OGA< BQ.I&
M,HKMI<ILFIGKSD;.PKV;0&</^B6F;$W_!&[NRM2U8VKMM:
MQ1EX(57[M=[S0__EY(9_*Q^3E_4F"-O+H>7'7P#<;- 2D?^`5!+`P04````
M" `A1C$S>R7VW@!``!?`@``'@```&-U<G-E=7(@;&ES=&4O0W5R<V5U<DQI
M<W1E+G9B<%6034_#, R&[Y/V'U!W`22JK$/<>H!NA4KL0VR,RRYIZ[*,)*Y2
M=)6S811='KQW'RVJMC">'D`/U>C$:%[ACZA5']$!G$%YO'K9
M8P&[';$;*[HC^E/MNKW[&00^&["![V].^RV9C>=ORTUUK C4*-A4E*.$P">9
M#N;/DXO[FE!Q$JC[O21#W=CP&A]>O[<D;!"I;C.1T'HV6C&%83>PN .
MR&6?0)81:H(#)>/08VU!:9]/)4PQAY9-^0[-&DPXM%KH5C/7EY4UDD7.FN)
)9@]F&5ï@H%A(J1VW2U35_Z6/GRC+L# C9=+ARP[;7YR4));[^
ML9COT2SL1Z)6MJ%+4E<.1];T6L#G&-+Z/=$%.CC#>REX)?2[BQZPUGD5;2'[
M:!)GR<0RP4*3>=XG*Q/P:LVKASR>-&TY^;=#*K)<2)PR78XQ(5N]6IK
<FO+#K%:I146;K=QT?P%02P,$% ````@`(D8Q,W&7+````
M,@```!X```!C=7)S975R(&QI<W1E+T-U<G-E=7),:7-T92YV8G=SRR_*-52P
M53 STU&P,-=1,+,TU%$P-;;448C243 R`F(@TP$*&-B`91QYN4"`%!+`P0*
M```````Z0C$S````````````````#@```&-U<G-E=7(@;&ES=&4O4$L!`A0`
M% ````@``' <*]*LTT'0````_@(``!@````````````@`+:!`````&-U<G-E
M=7(@;&ES=&4O:&%R<F]W+F-U<E!+`0(4`!0````(``!P'"OWTYVV%P$``/X"
M```8````````````( "!``!C=7)S975R(&QI<W1E+VYO9')O<"YC=7)0
M2P$"% `4````" `*1C$S.^C4$;8"``!""0``%P`````````!`" `MH%3`@``
M8W5R<V5U<B!L:7-T92]&;W)M,2YF<FU02P$"% `4````" `A1C$S>R7VW@!
M``!?`@``'@`````````!`" `MH$^!0``8W5R<V5U<B!L:7-T92]#=7)S975R
M3&ES=&4N=F)P4$L!`A0`% ````@`(D8Q,W&7+````,@```!X`````````
M`0`@`+:!@8``&-U<G-E=7(@;&ES=&4O0W5R<V5U<DQI<W1E+G9B=U!+`0(4
M``H``````#I",3,````````````````.````````````$ #_05T'``!C=7)S
@975R(&QI<W1E+U!+!08`````!@`&`*4!``")!P``````
`
end
Avatar
Patrice Henrio
Petite erreur sans importance dans le code il faut remplacer chaque

MousePointer=vbHourGlass

par

MousePointer=VbCustom

(Il y en a un dans form_laod et un dans command1_Click)
1 2