只有使用API函数。Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongConst LB_SETHORIZONTALEXTENT As Long = &H194Private Sub Form_Load()
SendMessage List1.hwnd, LB_SETHORIZONTALEXTENT, 300, ByVal 0End Sub参考资料:http://www.ujx.cn/program/bbs/VB/200007/171693.html本回答被提问者采纳 |