ListBox添加项目间距

ApsSanj

这是我在表单中创建的列表框。

我需要的是通过添加项目间距来修改listBox项目列表，如下所示。

我在网上搜索并应用了在代码中找到的解决方案，但没有任何效果。这是我用于将项目添加到listBox的代码。

With mobjApplication
    List1.AddItem vbCrLf + " " + .GetUIString("frmSettings.ServerConnections") + vbCrLf + "", 0
    List1.AddItem " " + .GetUIString("frmSettings.WorkflowOptions") & "", 1
    List1.AddItem " " + .GetUIString("frmSettings.Appearance") & "", 2
    List1.AddItem " " + .GetUIString("frmSettings.FileLocations") & "", 3 
End with

请有人帮助我。

鲍勃77

也许：

Option Explicit

Private Const LB_SETITEMHEIGHT As Long = &H1A0&

Private Declare Function SendMessage Lib "user32" Alias "SendMessageW" ( _
    ByVal hWnd As Long, _
    ByVal wMsg As Long, _
    ByVal wParam As Long, _
    ByVal lParam As Long) As Long

Private Sub Form_Load()
    Const LIST_ITEM_HEIGHT As Long = 40 'Pixels.

    With List1
        .Font.Name = "Segoe UI"
        .Font.Size = 14
        SendMessage .hWnd, LB_SETITEMHEIGHT, 0, LIST_ITEM_HEIGHT
        .AddItem "Server Connections"
        .AddItem "Workflow Options"
        .AddItem "Appearance"
        .AddItem "File Locations"
    End With
End Sub

本文收集自互联网，转载请注明来源。

如有侵权，请联系 [email protected] 删除。