Tamanho Da Combobox

[Angelo Augusto]

Amigos,

Gostaria de saber de vocês se tem algum jeito de fazer que quando a combobox receber alguns textos

ela fique do tamanho dos textos.Sem que eu tenha que colocar o tamanho dela manualmente!

tipo assim,

|combo aqui| --> aqui o tamanho normal da combo

|texto texto texto texto texto texto texto texto texto texto texto| --> aqui o tamanho que ela deve ficar !!

|texto texto texto texto texto|

|texto texto texto texto textotexto texto texto texto texto|

|texto texto texto texto texto texto texto|

desde já muito obrigado!!!

[Macêdo]

Joga isso ai!

Private Sub Combo1_Change()

If Len(Combo1.Text) + 1 Then

Combo1.Width = Combo1.Width + 90

End If

End Sub

Boa sorte,

O Código que te enviei acima acrescenta ao combo o tamanho referente a um caracter sempre que qualquer caracter for pressionado no teclado, ou seja se você precisar apagar com backspace quando apertar backspace ele tambem irá acrescentar o tamanho de um caracter ao combo.

você pode fazer de outras formas, por exemplo, se você quiser que a combo só aumente quando a tecla pressionada for alfabetica então use:

Private Sub Combo1_KeyPress(KeyAscii As Integer)

If KeyAscii >= Asc("a") And KeyAscii <= Asc("z") Then

Combo1.Width = Combo1.Width + 90

End If

End Sub

assim quando você teclar backspace ou delete ou qualquer outra tecla o combo não acrescentará tamanho, só quando a tecla for uma LETRA.

O segredo está no final do código: Combo1.Width = Combo1.Width + 90, é isto que informa o tamanho do combo por caracter.

[Angelo Augusto]

meu amigo, muito obrigado pela força mas é o seguinte !!1

a combo esta recebendo valores de um banco !

e não sei qual vai ser o tamanho dos itens que ela vai receber !!!

o tamanho (Width) é de 516 esse é o tamanho que ela tem que ficar no FORM

mas o ListWidth tem que variar de acordo com os itens que receber!!!

entendeu