Código:
Pero me da errores al decirme que .hwnd no es una propiedad del ListBox (puede ser porque esta función sea para ser usada con un ListBox de la clase System.Windows.Forms)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 Const LB_SETHORIZONTALEXTENT = &H194 ' Set the horizontal extent of the control (in pixel). ' If this value is greater than the current control's width ' an horizontal scrollbar appears. Sub SetHorizontalExtent(lb As ListBox, ByVal newWidth As Long) SendMessage (lb.hwnd, LB_SETHORIZONTALEXTENT, newWidth, ByVal 0&) End Sub
¿Alguien sabe cómo se hace esto de añadir un scroll horizontal a un ListBox (el de la clase System.Web.UI.WebControls) usando este código o cualquier otro?
Saludos