Visual Basic - ComboBox y scroll

Life is soft - evento anual de software empresarial
 
Vista:

ComboBox y scroll

Publicado por Juan Manuel (124 intervenciones) el 18/08/2005 01:04:22
Hola...
Necesito ampliar la cantidad de elementos (8) que muestra el combobox antes de que muestre el scrollBar.
Desde ya... muchas Gracias

Juan Manuel
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil
Val: 11
Ha disminuido su posición en 6 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

RE:ComboBox y scroll

Publicado por SuNcO (600 intervenciones) el 18/08/2005 05:30:28
Bueno, la Scroll no se que tiene que ver aqui.. Este codigo ya lo revise y funciona muy bien

Private Declare Function MoveWindow Lib "user32" (ByVal hwnd As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long

Private Sub Form_Load()
Dim i As Integer

For i = 1 To 50
Combo1.AddItem i
Next i
Combo1.ListIndex = 0

SizeCombo Me, Combo1
End Sub

Public Sub SizeCombo(frm As Form, cbo As ComboBox)
Dim cbo_left As Integer
Dim cbo_top As Integer
Dim cbo_width As Integer
Dim cbo_height As Integer
Dim old_scale_mode As Integer

old_scale_mode = frm.ScaleMode
frm.ScaleMode = vbPixels

cbo_left = cbo.Left
cbo_top = cbo.Top
cbo_width = cbo.Width

cbo_height = frm.ScaleHeight - cbo.Top - 100
frm.ScaleMode = old_scale_mode

MoveWindow cbo.hwnd, cbo_left, cbo_top, cbo_width, cbo_height, 1
End Sub

Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar