SCROLL BAR NA COMBOBOX

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

SCROLL BAR NA COMBOBOX

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#487807 - 22/03/2019 18:57:55

IVANPI
GUAPIARA
Cadast. em:Janeiro/2017


 Anexos estao visíveis somente para usuários registrados

Boa noite pessoal!
Eu tenho uma combobox, onde eu alterei a listwidth, para ficar exatamente do tamanho da combobox.

Por exemplo, a combobox tem 38 de width, então coloquei a listwidth no mesmo tamanho, porém apareceu uma scroll bar horizontal, que não há meio de sair, alguém me da uma luz por favor :)

Muito obrigado





Resposta escolhida #487810 - 23/03/2019 10:02:12

EPISCOPAL
VARZEA GRANDE
Cadast. em:Maio/2009


Vc quer ocultar ela ... é isso?

____________________________________________________________________
Episcopal Studios





#487812 - 23/03/2019 10:37:40

IVANPI
GUAPIARA
Cadast. em:Janeiro/2017


Citação:
:
Vc quer ocultar ela ... é isso?


Isso Episcopal :)



#487814 - 23/03/2019 11:04:17

EPISCOPAL
VARZEA GRANDE
Cadast. em:Maio/2009


Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Const LB_SETHORIZONTALEXTENT = &H194  
      
SendMessage(ComboBox1.hWnd, LB_SETHORIZONTALEXTENT, ByVal 0&, ByVal 0&)  
    

Nao sei se vai funcionar ... no combobox.

____________________________________________________________________
Episcopal Studios





#487815 - 23/03/2019 11:12:46

EPISCOPAL
VARZEA GRANDE
Cadast. em:Maio/2009


Private Declare Function ShowScrollBar Lib "user32" _ (ByVal hwnd As Long, ByVal wBar As Long, ByVal bShow As Long) As Long

Private Const SB_VERT = 1
Private Const SB_HORIZONTAL = 0


Call ShowScrollBar(Combobox.hwnd, SB_HORIZONTAL, False)


Este exemplo deve funcionar .....

____________________________________________________________________
Episcopal Studios





#487817 - 23/03/2019 14:31:31

IVANPI
GUAPIARA
Cadast. em:Janeiro/2017


Citação:
:
Private Declare Function ShowScrollBar Lib "user32" _ (ByVal hwnd As Long, ByVal wBar As Long, ByVal bShow As Long) As Long

Private Const SB_VERT = 1
Private Const SB_HORIZONTAL = 0


Call ShowScrollBar(Combobox.hwnd, SB_HORIZONTAL, False)


Este exemplo deve funcionar .....



Não deu certo, deu Erro de compilação: Inválido fora de um procedimento

Tentei como Combobox.hwnd e também tentei como o nome do controle também.




#487818 - 23/03/2019 16:02:38

JONESPARIS
ERECHIM
Cadast. em:Fevereiro/2006


Acredito que a única forma de solucionar esta questão é aumentar levemente o width dos 2 componentes

Jones Paris

#487820 - 23/03/2019 18:55:30

EPISCOPAL
VARZEA GRANDE
Cadast. em:Maio/2009


o problema que a combo abre mais uma list .... ou seja é outra janela com handle diferente ...

Eu tenho código de aumentar o tamanho da list da combo  ..... vou ver se tem para isto .... pera-lá

____________________________________________________________________
Episcopal Studios





#487821 - 23/03/2019 21:25:03

IVANPI
GUAPIARA
Cadast. em:Janeiro/2017


 Anexos estao visíveis somente para usuários registrados

Citação:
:
o problema que a combo abre mais uma list .... ou seja é outra janela com handle diferente ...

Eu tenho código de aumentar o tamanho da list da combo  ..... vou ver se tem para isto .... pera-lá


Ola, consegui acertar, mais simples do que parece.

Consegui la no grupo de whats, alterei a columnwidth para o mesmo tamanho da combobox.

Agradeço imensamente, pela disposição do tempo.

Deus abençoe.





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


Tópico encerrado, respostas não sao permitidas
Encerrado por IVANPI em 23/03/2019 21:27:21