COMO AO CARREGAR O COMBOX, TEXT SELECIONADO

 Tópico anterior Próximo tópico Novo tópico

COMO AO CARREGAR O COMBOX, TEXT SELECIONADO

VB.NET

 Compartilhe  Compartilhe  Compartilhe
#478223 - 03/12/2017 10:09:59

FELIXMG
RIO DE JANEIRO
Cadast. em:Dezembro/2017


Senhores
Bom dia.
Acredito que seja simples, mas ao abrir um form e carregar um objeto inicial combobox, como carregá-lo com o seu valor inicial não só em foco mas selecionado?

utilizei o setfocus mas somente o curso fica ativo neste objeto, eu gostaria que o testo também ficasse selecionado.

Obrigado,

Felix Mauricio




Resposta escolhida #478224 - 03/12/2017 10:54:08

JCM0867
BALNEARIO CAMBORIU
Cadast. em:Março/2012


Última edição em 03/12/2017 11:07:51 por JCM0867

não sei  se entendi
quer que fique o primeiro item do Combo selecionado? Toda a linha em azul?
explique melhor

seria isso?
ComboBox1.SelectedIndex = 0
ComboBox1.SelectionStart = 0
ComboBox1.SelectionLength = Len(ComboBox1.Text)  ou  ComboBox1.SelectionLength = ComboBox1.Text.Length




Precisando de um Sistema de Gestão Educacional?
Desenvolvido em VB.NET + SQL Server + Crystal Reports
Conheça nossa Solução: www.cjsystem.com.br




#478225 - 03/12/2017 11:15:03

FELIXMG
RIO DE JANEIRO
Cadast. em:Dezembro/2017


Bom dia.
Não seria a primeira linha da tabela e sim o valor inicial quando carrega o como, o valor exibido no combo assim que é carregado, tipo "Selecione o usuário", este texto inicial fiquem em azul.
Consegui explicar melhor?

Muito obrigado,



#478226 - 03/12/2017 11:21:09

JCM0867
BALNEARIO CAMBORIU
Cadast. em:Março/2012


Última edição em 03/12/2017 11:22:20 por JCM0867

ao selecionar o Combo usa a propriedade GotFocucus
e coloca
ComboBox1.SelectionStart = 0
ComboBox1.SelectionLength = Len(ComboBox1.Text)  ou  ComboBox1.SelectionLength = ComboBox1.Text.Length


vai deixar a linha do combo toda em azul como se tivesse selecionado um item do combo desde que o combo já esteja com valor




#478227 - 03/12/2017 11:26:27

FELIXMG
RIO DE JANEIRO
Cadast. em:Dezembro/2017


Show de bola, RESOLVEU !!!!

'CLIENTE
Sheets("CAD-CLIENTE").Select
cmb_USUARIO.RowSource = "A2:C1000"
cmb_USUARIO.ColumnCount = 3
cmb_USUARIO.ControlSource = "D2"
cmb_USUARIO.BoundColumn = 1
cmb_USUARIO.ColumnWidths = "150;60;200"
Cells(2, 4).Value = "Selecione"


cmb_USUARIO.SelStart = 0
cmb_USUARIO.SelLength = Len(cmb_USUARIO.Text)


Muito obrigado!




#478228 - 03/12/2017 11:38:59

JCM0867
BALNEARIO CAMBORIU
Cadast. em:Março/2012


esse mesmo comando pode ser usados tb em:
Textbox
maskbox
Listbox
entre outros



 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por FELIXMG em 03/12/2017 11:41:16