Est-il possible, dans une ListView avec "Grandes icônes", de figer
l'emplacement de ces icônes ? (j'utilise cette ListView pour afficher une
suite d'icônes correspondant à différents paramètres de mon appli, et le
fait que l'utilisateur puisse déplacer celles-ci de me plait pas trop).
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
Zoury
Salut Christophe! :O)
Tu peux simplement conserver la position de l'item dans le MouseDown et la replacer dans le MouseUp.
'*** ' Microsoft Windows Common Control 6.0 (SP6) ' Form1 ' 1 ListView Option Explicit
Private m_lLeft As Long Private m_lTop As Long Private m_bDrag As Boolean
Private Sub Form_Load()
Dim i As Long
ListView1.View = lvwIcon For i = 1 To 10 Call ListView1.ListItems.Add(, , "item" & i) Next i
End Sub
Private Sub ListView1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim li As ListItem
Set li = ListView1.HitTest(x, y)
If (Not li Is Nothing) Then m_lLeft = li.Left m_lTop = li.Top m_bDrag = True End If
End Sub
Private Sub ListView1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) If (m_bDrag) Then ListView1.SelectedItem.Left = m_lLeft ListView1.SelectedItem.Top = m_lTop m_bDrag = False End If End Sub '***
Merci de poster les réponses au groupe afin d'en faire profiter à tous "Christophe QUEVAL" wrote in message news:blhi01$fi1$
Bonjour,
Est-il possible, dans une ListView avec "Grandes icônes", de figer l'emplacement de ces icônes ? (j'utilise cette ListView pour afficher une suite d'icônes correspondant à différents paramètres de mon appli, et le fait que l'utilisateur puisse déplacer celles-ci de me plait pas trop).
Merci d'avance.
Christophe
Salut Christophe! :O)
Tu peux simplement conserver la position de l'item dans le MouseDown et la
replacer dans le MouseUp.
'***
' Microsoft Windows Common Control 6.0 (SP6)
' Form1
' 1 ListView
Option Explicit
Private m_lLeft As Long
Private m_lTop As Long
Private m_bDrag As Boolean
Private Sub Form_Load()
Dim i As Long
ListView1.View = lvwIcon
For i = 1 To 10
Call ListView1.ListItems.Add(, , "item" & i)
Next i
End Sub
Private Sub ListView1_MouseDown(Button As Integer, Shift As Integer, x As
Single, y As Single)
Dim li As ListItem
Set li = ListView1.HitTest(x, y)
If (Not li Is Nothing) Then
m_lLeft = li.Left
m_lTop = li.Top
m_bDrag = True
End If
End Sub
Private Sub ListView1_MouseUp(Button As Integer, Shift As Integer, x As
Single, y As Single)
If (m_bDrag) Then
ListView1.SelectedItem.Left = m_lLeft
ListView1.SelectedItem.Top = m_lTop
m_bDrag = False
End If
End Sub
'***
Merci de poster les réponses au groupe afin d'en faire profiter à tous
"Christophe QUEVAL" <queval.ch@wanadoo.fr> wrote in message
news:blhi01$fi1$1@news-reader2.wanadoo.fr...
Bonjour,
Est-il possible, dans une ListView avec "Grandes icônes", de figer
l'emplacement de ces icônes ? (j'utilise cette ListView pour afficher une
suite d'icônes correspondant à différents paramètres de mon appli, et le
fait que l'utilisateur puisse déplacer celles-ci de me plait pas trop).
Tu peux simplement conserver la position de l'item dans le MouseDown et la replacer dans le MouseUp.
'*** ' Microsoft Windows Common Control 6.0 (SP6) ' Form1 ' 1 ListView Option Explicit
Private m_lLeft As Long Private m_lTop As Long Private m_bDrag As Boolean
Private Sub Form_Load()
Dim i As Long
ListView1.View = lvwIcon For i = 1 To 10 Call ListView1.ListItems.Add(, , "item" & i) Next i
End Sub
Private Sub ListView1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim li As ListItem
Set li = ListView1.HitTest(x, y)
If (Not li Is Nothing) Then m_lLeft = li.Left m_lTop = li.Top m_bDrag = True End If
End Sub
Private Sub ListView1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) If (m_bDrag) Then ListView1.SelectedItem.Left = m_lLeft ListView1.SelectedItem.Top = m_lTop m_bDrag = False End If End Sub '***
Merci de poster les réponses au groupe afin d'en faire profiter à tous "Christophe QUEVAL" wrote in message news:blhi01$fi1$
Bonjour,
Est-il possible, dans une ListView avec "Grandes icônes", de figer l'emplacement de ces icônes ? (j'utilise cette ListView pour afficher une suite d'icônes correspondant à différents paramètres de mon appli, et le fait que l'utilisateur puisse déplacer celles-ci de me plait pas trop).
