|
|
Postada em 01/06/2006 15:28 hs
Tem um ListBox que é carregado na execução do formulário, conforme código abaixo. _____________________________________________________ Private Sub Form_Load()
'Carrega no ListBox1 ao iniciar o formulário'
List1.AddItem "Azul"
List1.AddItem "Amarelo"
List1.AddItem "Verde"
List1.AddItem "Vermelho"
List1.AddItem "Preto"
List1.AddItem "Branco"
List1.AddItem "Marrom"
List1.AddItem "Cinza"
End Sub _____________________________________________________ Pergunta: PRECISO COLOCAR UM ÍNDICE NESSA LIST, POIS IRÁ DEPOIS PARA A TABELA APENAS O NÚMERO DO ÍNDICE DE CADA UM, COMO POSSO FAZER ISSO? Obrigado |
|
|
|
|
|
kerplunk
|
SÃO PAULO
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 02/06/2006 08:31 hs
O índice pode aparecer? Tipo
1 - Azul
2 - Amarelo
...
Se puder vc pode usar o split para separar os argumentos.
|
|
|
|
JOHNNY
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 02/06/2006 10:48 hs
USE A API SendMessageA COM A FLAG CB_GETCOUNT PARA OBTER O NÚMERO DE ITEMS DO COMBO DEPOIS É SÓ USAR O SendMessageA COM A FLAG CB_SETITEMDATA E UM LOOP PARA IR CONTANDO OS NÚMEROS E REPASSANDO OS SEUS VALORES... |
|
|
|
|
|
Postada em 24/04/2009 00:52 hs
With cboNatureza
.AddItem "Casado(a)"
.AddItem "Divorciado(a)"
.AddItem "Viuvo(a)"
.AddItem "Separado(a)"
.AddItem "Solteiro(a)"
End With
|
|
|
|
|
|
Postada em 24/04/2009 11:38 hs
Seguinte se eu entendi vc quer pegar só o numero depois certo!
Entao insira o numero na frente do texto
with list1
.additem "1 - Azul"
.additem "2 - Amarelo"
end with
ai depois no lost do combo tu chama este codigo
Public Sub VerCodigo()
Dim PrimeiraLetra, UltimaLetra As String
For i = 1 To Len(CmbRep.Text)
PrimeiraLetra = Left(CmbRep.Text, i)
UltimaLetra = Right(PrimeiraLetra, 1)
If UltimaLetra = "-" Then
CodLote = Left(PrimeiraLetra, i - 2)
Exit Sub
End If
Next i
End Sub
onde codlote vai ser somente o numero q o kra selecionou!
ok
espero ter ajudado!
|
|
|
|
