小弟找不到什么属性可以使Width的值在运行的时候用户不能通过拖动来修改,请各位赐教!谢谢!

解决方案 »

  1.   

    ListBox 选项资料太长,如何设定 ListBox 的水平卷动轴?VB 的 ListBox 并没有水平卷动轴的功能,如果遇到某一个资料项很长时, 使用者就无法看到这一个资料项的所有内容,要如何设定水平卷动轴给 ListBox?可利用 SendMessage 传送 LB_SETHORIZONTALEXTENT 讯息给 ListBox,此一讯息的作用就是要求ListBox 设定水平卷动轴, 细节如下: 1. API 的声明:'16位
    Const WM_USER = &H400
    Const LB_SETHORIZONTALEXTENT = (WM_USER + 21)
    Private Declare Function SendMessage Lib "User" (ByVal hWnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, lParam As Any) As Long
    '32位
    Const LB_SETHORIZONTALEXTENT = &H194
    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
      

  2.   

    2. 程序范例:' List1 为 ListBox 的名称
    Call SendMessage(List1.hwnd, LB_SETHORIZONTALEXTENT, 水平卷动轴的宽度, ByVal 0&)