|
|
Postada em 15/03/2006 10:48 hs
Ola! Preciso mostrar o texto na combo e buscar um valor id qualquer... Belesa, no layout eu insiro o item no list e o valor no itemdat... Mas eu preciso colocar isto via codigo e nao estou conseguindo acertar a sintax, inicialmente eu terei que digitar mas depois esta informacao pode vir de um banco... Resolvendo isto, tem como eu fazer isto no imagecombo?????? Valeuuu!!!
"A mente que se abre para novas idéias jamais volta ao seu tamanho original".
(Albert Einstein) ----------------------------------------------PII-450-256MB-GForceII-64-TV/out-Soyo----- ----Agora com Framework 1.1 + Visual Studio 2003 + WinXP. Acredite se quiser!----
Leonardo Cassuriaga Fone:(51) 96394735
Tecnico Informática __o Programador VB6.0
Programador Web _>/, DBA Access
-------------------------------------------(+)/(+)__________P_o_r_t_o__A_l_e_g_r_e_RS__
Charles Darwin : As espécies que sobrevivem não são as mais fortes, mas as que melhor conseguem se adaptar às mudanças!
-----------------------------------------------------------------------------------------------
|
|
TÓPICO EDITADO
|
|
|
|
|
|
LCRamos
|
GOIANIA
GO - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 15/03/2006 12:51 hs
Para inserir ComboBox1.AddItem , Text1 ou TABELA!CAMPO Para limpar ComboBox1.Clear vlu// |
|
|
|
|
|
Postada em 15/03/2006 12:57 hs
LCRamos, acho que na fui claro, usar o additem ta ok, o que nao estou conseguindo ,e colocar valores no itemdata...
"A mente que se abre para novas idéias jamais volta ao seu tamanho original".
(Albert Einstein) ----------------------------------------------PII-450-256MB-GForceII-64-TV/out-Soyo----- ----Agora com Framework 1.1 + Visual Studio 2003 + WinXP. Acredite se quiser!----
Leonardo Cassuriaga Fone:(51) 96394735
Tecnico Informática __o Programador VB6.0
Programador Web _>/, DBA Access
-------------------------------------------(+)/(+)__________P_o_r_t_o__A_l_e_g_r_e_RS__
Charles Darwin : As espécies que sobrevivem não são as mais fortes, mas as que melhor conseguem se adaptar às mudanças!
-----------------------------------------------------------------------------------------------
|
|
|
|
|
|
Postada em 15/03/2006 13:16 hs
Private Sub pPreencheCombo()
Dim i As Integer
For i = 0 To rs.RecordCount - 1
Me.Combo1.AddItem rs.Fields(1).Value
Me.Combo1.ItemData(Me.Combo1.NewIndex) = rs.Fields(0).Value
rs.MoveNext
Next i
rs.MoveMin
End Sub |
|
|
|
|
|
Postada em 15/03/2006 13:19 hs
depois pra pegar o ID é so vc fazer isso no evento click do combo Private Sub Combo1_Click()
Me.Label1.Caption = Me.Combo1.ItemData(Me.Combo1.ListIndex)
End Sub |
|
|
|
Leolima
|
PORTO ALEGRE
RS - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 15/03/2006 16:51 hs
Valeu a ajuda, resolveu...
"A mente que se abre para novas idéias jamais volta ao seu tamanho original".
(Albert Einstein) ----------------------------------------------PII-450-256MB-GForceII-64-TV/out-Soyo----- ----Agora com Framework 1.1 + Visual Studio 2003 + WinXP. Acredite se quiser!----
Leonardo Cassuriaga Fone:(51) 96394735
Tecnico Informática __o Programador VB6.0
Programador Web _>/, DBA Access
-------------------------------------------(+)/(+)__________P_o_r_t_o__A_l_e_g_r_e_RS__
Charles Darwin : As espécies que sobrevivem não são as mais fortes, mas as que melhor conseguem se adaptar às mudanças!
-----------------------------------------------------------------------------------------------
|
|
|
|
