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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  pegar apenas o código
Boni
JABOTICABAL
SP - BRASIL
ENUNCIADA !
Postada em 20/07/2005 21:50 hs            
eu possui alguns combos que guardam o coódigo e em seguida a descrição do codigo, por exemplo assim:
 
1-azul
2-verde
33-amarelo
104-roxo
 
alguem saberia me dizer eu como pego apenas o código desta combo. Se o tamanho do campo fosse fixo, daria para utilizar o left, mas ele pode ter varios tamanhos e sempre são separados pelo hifen (-). alguem pode me dar um help?
 
valeu.

[] Boni
www.bonattiweb.com.br
www.xxformandosfatec.com.br

   
Alan
Pontos: 2843
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 20/07/2005 23:00 hs            
Private Function Retorna_ID () as Integer

Dim i as integer
DIm ID as Integer

For i = 1 to len(me.combobox.text)
     If Mid(me.combobox.text,i,1) = "-" Then
              ID  = mid(combobox.textbox,1,i-1)
              Exit For
      End if

Next i

Busca_Dado = ID

End Function
   
Martini
Pontos: 2843 Pontos: 2843
PAROBÉ
RS - BRASIL
ENUNCIADA !
Postada em 21/07/2005 08:28 hs         
  Dim intPos As Integer
  Dim intCodigo As Integer
  Dim strABC As String
  strABC = "1222-AZUL"
  intPos = InStr(1, strABC, "-")
  If intPos <> 0 Then
    intCodigo = CInt(Mid(strABC, 1, intPos - 1))
  End If
  MsgBox intCodigo
   
Kelebrimbor
TRAMANDAÍ
RS - BRASIL
ENUNCIADA !
Postada em 21/07/2005 11:44 hs            
Faz assim, no montar o combo, vc define um codigo para o itemdata de cada opcao, tipo o codigo abaixo
 
        For i = 1 To ContReg
            Cmb.AddItem (codigo)
            Cmb.ItemData(Cmb.NewIndex) = cor
        Next i
 
Depois no evento click do combo eh soh vc pegar o itemdata que vai ter o codigo da linha, por exemplo:
 
Private Sub Cmb_Click()
    codigo = Cmb.ItemData(Cmb.ListIndex)
End Sub

Espero ter ajudado.

Dá-lhe internacional, unico campeao brasileiro invicto.
   
TiagoAlgodas
ITABUNA
BA - BRASIL
ENUNCIADA !
Postada em 25/07/2005 00:25 hs            
Seria mais pratico vc ter os dados de uma tabela carregados em um combo .. e relacionar o conteudo carregado no combo a um codigo tb contido na tablea..

       Tiago Gomes Pereira 
------------------------------------
 MSN: algodasirs@hotmail.com
E-mail: algodas@gmail.com

   
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