USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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
 


CyberWEB Network Ltda.    © Copyright 2000-2021   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página