COMBOBOX EM TEMPO DE EXECUCAO
Ola amigos.
Eu quero mostrar a cor utilizando o (codigo) da mesma e depois mostrar isso em uma CcomboBox em tempo de execucao. No meu arquivo esta gravado somente o codigo da cor, entao atravez do codigo eu quero mostrar o nome da cor que ja esta gravado em uma ComboBox (CmbCores). Como faco isso? ja tentei inumeros formas, mas nao funcionou. Me ajudem por favor!
Cor codigo
Amarelo 1
Verde 2
Azul 3
Vermelho 4
Grato
Nonato (Prendix VB 6)
Eu quero mostrar a cor utilizando o (codigo) da mesma e depois mostrar isso em uma CcomboBox em tempo de execucao. No meu arquivo esta gravado somente o codigo da cor, entao atravez do codigo eu quero mostrar o nome da cor que ja esta gravado em uma ComboBox (CmbCores). Como faco isso? ja tentei inumeros formas, mas nao funcionou. Me ajudem por favor!
Cor codigo
Amarelo 1
Verde 2
Azul 3
Vermelho 4
Grato
Nonato (Prendix VB 6)
Private Sub Combo1_Click()
Select Case Combo1.Text
Case [Ô]1[Ô]
Label1.Caption = [Ô]Amarelo[Ô]
Case [Ô]2[Ô]
Label1.Caption = [Ô]Verde[Ô]
Case [Ô]3[Ô]
Label1.Caption = [Ô]Azul[Ô]
Case [Ô]4[Ô]
Label1.Caption = [Ô]Vermelho[Ô]
Case Else
MsgBox [Ô]Esolha uma cor![Ô]
End Select
NESTE EXEMPLO QUANDO CLICA NO NUMERO DA COR NO LABEL APARECERA O NOME RESPECTIVO A ELA
E ISSO ?
Select Case Combo1.Text
Case [Ô]1[Ô]
Label1.Caption = [Ô]Amarelo[Ô]
Case [Ô]2[Ô]
Label1.Caption = [Ô]Verde[Ô]
Case [Ô]3[Ô]
Label1.Caption = [Ô]Azul[Ô]
Case [Ô]4[Ô]
Label1.Caption = [Ô]Vermelho[Ô]
Case Else
MsgBox [Ô]Esolha uma cor![Ô]
End Select
NESTE EXEMPLO QUANDO CLICA NO NUMERO DA COR NO LABEL APARECERA O NOME RESPECTIVO A ELA
E ISSO ?
RNONATO,
Eu posso até te ajudar, mas só depois que vc encerrar o tópico abaixo
http://www.vbmania.com.br/pages/index.php?varModulo=Forum&varMethod=abrir&varID=333446&varWorld=
Lembrando que todo tópico que lhe for respondido vc deve encerrar o tópico e pontuar aquele que mais te ajudou.
Para encerrar e pontuar, basta clicar no opção localizada no canto superior direito do tópico.
Valeu at +...
Eu posso até te ajudar, mas só depois que vc encerrar o tópico abaixo
http://www.vbmania.com.br/pages/index.php?varModulo=Forum&varMethod=abrir&varID=333446&varWorld=
Lembrando que todo tópico que lhe for respondido vc deve encerrar o tópico e pontuar aquele que mais te ajudou.
Para encerrar e pontuar, basta clicar no opção localizada no canto superior direito do tópico.
Valeu at +...
Cara,
Pelo que eu entendi, você tem duas ComboBox, certo?
Se for isso faça assim:
No Load do Form, Você deve ter algo como:
[txt-color=#0000f0]Private Sub[/txt-color] Form_Load()
Combo1.AddItem [Ô]1[Ô] [txt-color=#007100][ô]Código do Amarelo[/txt-color]
Combo1.AddItem [Ô]2[Ô] [txt-color=#007100][ô]Código do Verde[/txt-color]
Combo1.AddItem [Ô]3[Ô] [txt-color=#007100][ô]Código do Azul[/txt-color]
Combo1.AddItem [Ô]4[Ô] [txt-color=#007100][ô]Código do Vermelho[/txt-color]
[txt-color=#0000f0]End Sub[/txt-color]
No evento Click da Combo1, digite:
[txt-color=#0000f0]Private Sub[/txt-color] Combo1_Click()
[txt-color=#0000f0]Select Case [/txt-color]Combo1.Text
[txt-color=#0000f0] Case [/txt-color]1
[txt-color=#0000f0]With[/txt-color] Combo2
.Clear
.AddItem [Ô]Amarelo[Ô]
.BackColor = vbYellow
.ListIndex = 0
[txt-color=#0000f0]End With
Case[/txt-color] 2
[txt-color=#0000f0]With[/txt-color] Combo2
.Clear
.AddItem [Ô]Verde[Ô]
.BackColor = vbGreen
.ListIndex = 0
[txt-color=#0000f0]End With
Case[/txt-color] 3
[txt-color=#0000f0]With[/txt-color] Combo2
.Clear
.AddItem [Ô]Azul[Ô]
.BackColor = vbBlue
.ListIndex = 0
[txt-color=#0000f0]End With
Case [/txt-color]4
[txt-color=#0000f0]With[/txt-color] Combo2
.Clear
.AddItem [Ô]Vermelho[Ô]
.BackColor = vbRed
.ListIndex = 0
[txt-color=#0000f0]End With
End Select
End Sub[/txt-color]
Se não for o que você precisa, Diga mais claramente do que você precisa porque estamos aqui pra ajudar.
Pelo que eu entendi, você tem duas ComboBox, certo?
Se for isso faça assim:
No Load do Form, Você deve ter algo como:
[txt-color=#0000f0]Private Sub[/txt-color] Form_Load()
Combo1.AddItem [Ô]1[Ô] [txt-color=#007100][ô]Código do Amarelo[/txt-color]
Combo1.AddItem [Ô]2[Ô] [txt-color=#007100][ô]Código do Verde[/txt-color]
Combo1.AddItem [Ô]3[Ô] [txt-color=#007100][ô]Código do Azul[/txt-color]
Combo1.AddItem [Ô]4[Ô] [txt-color=#007100][ô]Código do Vermelho[/txt-color]
[txt-color=#0000f0]End Sub[/txt-color]
No evento Click da Combo1, digite:
[txt-color=#0000f0]Private Sub[/txt-color] Combo1_Click()
[txt-color=#0000f0]Select Case [/txt-color]Combo1.Text
[txt-color=#0000f0] Case [/txt-color]1
[txt-color=#0000f0]With[/txt-color] Combo2
.Clear
.AddItem [Ô]Amarelo[Ô]
.BackColor = vbYellow
.ListIndex = 0
[txt-color=#0000f0]End With
Case[/txt-color] 2
[txt-color=#0000f0]With[/txt-color] Combo2
.Clear
.AddItem [Ô]Verde[Ô]
.BackColor = vbGreen
.ListIndex = 0
[txt-color=#0000f0]End With
Case[/txt-color] 3
[txt-color=#0000f0]With[/txt-color] Combo2
.Clear
.AddItem [Ô]Azul[Ô]
.BackColor = vbBlue
.ListIndex = 0
[txt-color=#0000f0]End With
Case [/txt-color]4
[txt-color=#0000f0]With[/txt-color] Combo2
.Clear
.AddItem [Ô]Vermelho[Ô]
.BackColor = vbRed
.ListIndex = 0
[txt-color=#0000f0]End With
End Select
End Sub[/txt-color]
Se não for o que você precisa, Diga mais claramente do que você precisa porque estamos aqui pra ajudar.
Olá RNONATO
Não recebi seu arquivo não.
Posta aà seu código
Não recebi seu arquivo não.
Posta aà seu código
Ola pessoal.
Um amigo programador ajudou-me a resolver o meu problema. Foi uma linha de instrucao que coloquei no lugar errado.
Parabens Elton Assuncao e muito obrigado pela forca!!!!
O mais muito obrigado a todos que de alguma forma tentaram ajudar.
RNonato (Aprendiz VB 6)
Um amigo programador ajudou-me a resolver o meu problema. Foi uma linha de instrucao que coloquei no lugar errado.
Parabens Elton Assuncao e muito obrigado pela forca!!!!
O mais muito obrigado a todos que de alguma forma tentaram ajudar.
RNonato (Aprendiz VB 6)
Tópico encerrado , respostas não são mais permitidas