列表框添加项目间距
问题描述:
这是我在表单中创建的列表框。列表框添加项目间距
我需要的是通过增加项目的间距如下修改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
请有人帮我这个。
答
也许:
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
它工作得很好。谢谢 –
请告诉我应该在代码中添加什么样的改进才能使列表中的文本添加到中间。 –
可能只适用于所有者绘制的ListBox。 – Bob77