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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  selecionar celula no listview
Maxcim
GUARULHOS
SP - BRASIL
Postada em 12/06/2007 18:56 hs            
ghost, se conseguir o codigo vai me ajudar muito.
 precisa ter o check sim, os pedidos tem que ser analizados e selecionados os passam pela aprovação. dai o uso do check, e o usuario clica sobre a coluna cliente e ve os dados do cliente ultimas compras e coisa  tal... e clicando sobre o codigo do pedido ele ve o pedido em si.
 marca os  pedidos que serão liberados e dá ok. o List limpa as linhas não marcados e grava os itens checados.... é tão simples.... não é posivel que o list não me de esta opção.
 
 
     
ghost_jlp
Pontos: 2843 Pontos: 2843 Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
Postada em 13/06/2007 11:06 hs            
Lembro que o código que fiz identificava a coluna o que vc quer é mais elaborado mas dá pra ser feito no braço. Se tiver tempo eu faço completo senão eu passo o que tenho
 
at+ :)
     
Maxcim
GUARULHOS
SP - BRASIL
Postada em 13/06/2007 12:45 hs            
Ghost, da maneira que achar mais facil pra vc.
fico no agardo.
 
grato
     
ghost_jlp
Pontos: 2843 Pontos: 2843 Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
Postada em 17/06/2007 04:02 hs            
Segue exemplo sendo LV um listview:
 
'FORM LOAD
 
Private Sub Form_Load()
lv.ListItems.Add , , "Item 1"
lv.ListItems(1).SubItems(1) = "Subitem A1"
lv.ListItems(1).SubItems(2) = "Subitem B1"
lv.ListItems.Add , , "Item 2"
lv.ListItems(2).SubItems(1) = "Subitem A2"
lv.ListItems(2).SubItems(2) = "Subitem B2"
End Sub
 
Private Sub lv_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim col As Integer
col = ColunaLV(x, y, lv)
If col > 1 And col <> 0 Then
    MsgBox lv.SelectedItem.SubItems(col - 1)
ElseIf col = 1 Then
    MsgBox lv.SelectedItem.Text
End If
End Sub
 
Private Function ColunaLV(ByVal x As Long, ByVal y As Long, ByVal NameLv As ListView) As Integer
Dim i As Long
For i = 1 To NameLv.ColumnHeaders.Count
    If x >= NameLv.ColumnHeaders(i).Left And x < (NameLv.ColumnHeaders(i).Left + NameLv.ColumnHeaders(i).Width) Then
        ColunaLV = i
        Exit For
    End If
Next
End Function
 
 
Ao clicar em cada item vc vai saber em qual está clicando se na coluna 1 ou na coluna 2, coluna 3 e assim por diante pois a função retorna a coluna clicada.
 
É possível que vc tenha que fazer adaptações mas ó básico está aí.
 
obs.: lv_mouseup é o evento do mouseup do listview
 
at+
TÓPICO EDITADO
   
Maxcim
GUARULHOS
SP - BRASIL
Postada em 17/06/2007 17:12 hs            
Ghost, matou a pau... valeu mesmo.... funciona direitinho cara.... resolveu... rsrsr
precisando de algo é só falar.
 
grande abraço.
     
ghost_jlp
Pontos: 2843 Pontos: 2843 Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
Postada em 18/06/2007 11:42 hs            
Jóia, só que eu coloquei o y para saber a linha e esqueci de tirá-lo daí pois não tem utilizdade mais. Emoções
Depois vc tira se quiser....
 
falows!
     
Página(s): 2/2     « ANTERIOR  


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



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