VB基本技巧.docVIP

如何加长 ComboBox 的下拉选单？ Combo 预设的下拉长度只有 5,6 个选项，当选项很多时，要卷老半天才能找到资料，很不方便！要加长 ComboBox 的下拉选单，方法如下： 在声明区中放入以下声明及 Subroutine 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 Public Sub SetComboHeight(oComboBox As ComboBox, lNewHeight As Long) Dim oldscalemode As Integer ? This procedure does not work with frames: you ? cannot set the ScaleMode to vbPixels, because ? the frame does not have a ScaleMode Property. ? To get round this, you could set the parent control ? to be the form while you run this procedure. If TypeOf oComboBox.Parent Is Frame Then Exit Sub ? Change the ScaleMode on the parent to Pixels. oldscalemode = oComboBox.Parent.ScaleMode oComboBox.Parent.ScaleMode = vbPixels ? Resize the combo box window. MoveWindow oComboBox.hwnd, oComboBox.Left, oComboBox.Top, oComboBox.Width, lNewHeight, 1 ? Replace the old ScaleMode oComboBox.Parent.ScaleMode = oldscalemode End Sub 在任何时候 (不一定是 Form_Load 或 Combo_DropDown)，想要加长 ComboBox 的下拉选单时，只要加入以下程序即可： Call SetComboHeight(Combo1, 270) ’设定的单位是 Pixels 如何使用 ToolTip 来显示内容？ ListBox 选项资料太长，虽然可以加上水平卷动轴，但卷来卷去还是有点麻烦，如果可以出现 Popup ToolTip 就更好了！当然，您若想要二种功能一起使用，也是可以的。 关于这个主题，我看过很多范例都是使用 API 来做，但是以下这个方法既简单，又不必使用任何 API Private Sub List1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim YPos As Integer, iOldFontSize As Integer iOldFontSize = Me.Font.Size Me.Font.Size = List1.Font.Size YPos = Y \ Me.TextHeight(Xyz) + List1.TopIndex Me.Font.Size = iOldFontSize If YPos List1.ListCount Then List1.ToolTipText = List1.List(YPos) Else List1.ToolTipText = End If End Sub 如何设定 ListBox 的水平卷动轴？ VB 的 ListBox 并没有水平卷动轴的功能，如果遇到某一个资料项很长时， 使用者就无法看到这一个资料项的所有内容，要如何设定水平卷动轴给 ListBox? 可利用 SendMessage 传送 LB_SETHORIZONTALEXTENT 讯息给 ListBox，此一讯息的作用就是要求ListBox 设定水平卷动轴， 细节如下： 1. API 的声明： ’16位 Const WM_USER = H400 Const LB_SETHORIZ