|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Controles Intrínsecos (Padrão))
|
|
 |
Título da Dica: Movendo itens em uma ListBox arrastando e soltando
|
 |
|
|
|
Postada em 14/8/2000 por Webmaster
milinha_meiga@hotmail.com
'Para, através do mouse, mover a localização de um item numa ListBox,
'use o código abaixo.
'''[CODE language=VB]
'declarations:
Private Tmp_Text As String
Private Old_index As Integer, _
New_index As Integer
Private Sub Form_Load()
For i = 1 To 10
List1.AddItem i
Next
End Sub
'mouse events:
Sub List1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Old_index = List1.ListIndex
Tmp_Text = List1.Text
End Sub
Sub List1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
New_index = List1.ListIndex
If Old_index <> New_index Then
List1.RemoveItem Old_index
List1.AddItem Tmp_Text, New_index
End If
End Sub
'''[/CODE]
|
|
|
|
|
