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, ento coloquei a listwidth no mesmo tamanho, porm apareceu uma scroll bar horizontal, que no h meio de sair, algum 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 .....



No deu certo, deu Erro de compilao: Invlido fora de um procedimento

Tentei como Combobox.hwnd e tambm tentei como o nome do controle tambm.




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

JONESPARIS
ERECHIM
Cadast. em:Fevereiro/2006


Acredito que a nica forma de solucionar esta questo 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 cdigo 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 cdigo 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.

Agradeo imensamente, pela disposio do tempo.

Deus abenoe.





 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