|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (ActiveX/Controles/DLL)
|
|
 |
Título da Dica: Mover itens acima e abaixo no listbox
|
 |
|
|
|
Postada em 28/12/2007 por Vilmar Brazão
'Criar os controles abaixo com os nomes descritos:
'Images: imgAcima, imgAbaixo
'ListBox: lstInstrumentosOrdenados
'Variáveis usadas na movimentação de itens no listbox lstInstrumentosOrdenados
Private m_strTempInstrumento As String
Private m_intOldIndex As Integer
Private m_intNewIndex As Integer
Private Sub lstInstrumentosOrdenados_Click()
m_intOldIndex = lstInstrumentosOrdenados.ListIndex
m_strTempInstrumento = lstInstrumentosOrdenados.Text
End Sub
'Movimenta os itens abaixo no listbox lstInstrumentosOrdenados
Private Sub imgAbaixo_Click()
On Error GoTo Handle_Error
Dim cLogHelper As cLogHelper
Set cLogHelper = New cLogHelper
cLogHelper.Initialize g_objLog, "frmOrdenacao", "imgAbaixo_Click"
Dim intTotalItens As Integer
With lstInstrumentosOrdenados
intTotalItens = .ListCount
If intTotalItens > 1 Then
m_intNewIndex = m_intOldIndex + 1
If m_intNewIndex < (intTotalItens) Then
.RemoveItem m_intOldIndex
.AddItem m_strTempInstrumento, m_intNewIndex
.Selected(m_intNewIndex) = True
End If
End If
End With
Exit Sub
Handle_Error:
cLogHelper.LogVBExecption
End Sub
'Movimenta os itens acima no listbox lstInstrumentosOrdenados
Private Sub imgAcima_Click()
On Error GoTo Handle_Error
Dim cLogHelper As cLogHelper
Set cLogHelper = New cLogHelper
cLogHelper.Initialize g_objLog, "frmOrdenacao", "imgAcima_Click"
Dim intTotalItens As Integer
With lstInstrumentosOrdenados
intTotalItens = .ListCount
If intTotalItens > 1 Then
m_intNewIndex = m_intOldIndex - 1
If m_intNewIndex >= 0 Then
.RemoveItem m_intOldIndex
.AddItem m_strTempInstrumento, m_intNewIndex
.Selected(m_intNewIndex) = True
End If
End If
End With
Exit Sub
Handle_Error:
cLogHelper.LogVBExecption
End Sub
------
Feliz ano de 2008 :D
|
|
|
|
|
