如何使组合框下接列表中的项目多于8个呢?默认只能显示8项。但是如何拉长些呢?
如何使组合框下接列表中的项目多于8个呢?默认只能显示8项。但是如何拉长些呢?----------
找了半天,也没找到,以前好象看到过,要通过api函数实现,可是如何做呢?
先声明movewindow函数,然后在窗体的load事件中用一句代码就能实现这个功能: 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 '调用API函数设置组合框下位列表长度 MoveWindow cbogongyi.hwnd, cbogongyi.Left / 15, cbogongyi.Top / 15, cbogongyi.Width / 15, 200, 1 为什么要除以15呢,因为VB窗体默认是缇,可是api函数是以像素为单位的. 所以长度就要转成像素.一缇=15像素 |