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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Combo
Humberto
não registrado
ENUNCIADA !
Postada em 28/01/2009 17:19 hs   
Pessoal,
tenho uma listvew com varios com os campos produtos, qtd, vl unit e vl total. Qdo clico num item do listview, carrega esses dados nos qtd -> text1.text, vl_unit -> text2.text, vl total -> text3.text, agora como faço para selecionar o produto que está na combobox ?
 
Obrigado
   
Perci
MATÃO
SP - BRASIL
Postada em 29/01/2009 10:25 hs            
Se entendi a sua pergunta, quando você clica numa ListView para preencher uma TextBox, você usa:
MinhaTextBox.Text = MinhaListView.SelectedItem.Text
 
Para preencher a TextBox selecionando numa ComboBox você usa:
MinhaTextBox.Text = MinhaComboBox.ItemData(MinhaComboBox.ListIndex)
 
Se não me engano, é assim.
Qualquer coisa, posta de novo.
 
Até mais.
     
J.Roberto
não registrado
ENUNCIADA !
Postada em 29/01/2009 22:24 hs   
o meu está assim

Private Sub lvFind_AfterLabelEdit(Cancel As Integer, NewString As String)
End Sub
Private Sub lvFind_ColumnClick(ByVal ColumnHeader As ComctlLib.ColumnHeader)
   
'Reordena em ordem Ascendente de acordo com a coluna clicada
lvFind.SortKey = ColumnHeader.Index - 1
lvFind.Sorted = True
End Sub

Private Sub lvFind_DblClick()
Edita
End Sub
Private Sub lvFind_ItemClick(ByVal Item As ComctlLib.ListItem)
'Coloca Campos Chave na Barra de Status
stBar.Panels("key_1").Text = Left$(Item.Key, 4)
stBar.Panels("key_2").Text = Item.Text
'Atualiza Comandos
With tbCommand.Buttons
    .Item(1).Enabled = True
    .Item(3).Enabled = True
    .Item(4).Enabled = True
    .Item(5).Enabled = True
    .Item(7).Enabled = False
    .Item(8).Enabled = False
    .Item(11).Enabled = True
End With
'Coloca Figura Correspondente à operação na barra de Status
Set stBar.Panels.Item(3).Picture = imgIcons(0).ListImages(3).Picture
End Sub

Private Sub lvFind_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then Edita
   
End Sub
   
Página(s): 1/1    


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