组合框控件列表项简单居中

最新推荐文章于 2023-12-18 23:37:30 发布

置顶

东方之珠

最新推荐文章于 2023-12-18 23:37:30 发布

阅读量1.9k

点赞数

CC 4.0 BY-SA版权

分类专栏：基础知识文章标签：组合框控件组合框控件项目居中

本文链接：https://blog.youkuaiyun.com/chenjl1031/article/details/9231491

VB中的组合框控件ComBoBox实现列表项目居中是个挑战。可以采取自绘方式精确居中，或者简单地通过在每个列表项前添加空格来达到大致居中的效果。但由于不足一个空格会被忽略，这种方法存在误差，只能做到大致居中。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

VB的组合框控件ComBoBox控件列表项目如何居中，这是个难题。可以自绘，并且非常精确；也可以不用自绘，采用简单居中，即在前面加空格实现。至于加多少空格，要根据控件本身的宽度和列表项的文字多少来决定。由于这个方法是在列表项前面加空格实现的，不足一个空格将被忽略，因此不很精确，有误差，只有大概居中。

Option Explicit

Private Sub Form_Load()
    Dim i As Long, W1 As Long, W2 As Long, W3 As Long, S As String, arr() As String
        
    Me.ScaleMode = 3
    
    Combo1.AddItem "C"
    Combo1.AddItem "CS"
    Combo1.AddItem "CSD"
    Combo1.AddItem "优快云中文网站"
        
    Me.Font.Size = 48
    Me.FontName = "黑体"
    Combo1.Font.Size = Me.Font.Size
    Combo1.FontName = Me.FontName
    W2 = Me.TextWidth(" ")
    W3 = Combo1.Width '/ Screen.TwipsPerPixelX
    ReDim arr(Combo1.ListCount - 1)
    For i = 0 To Combo1.ListCount - 1
        S = Combo1.List(i)
        S = Trim(S)
        W1 = Me.TextWidth(S)
        arr(i) = Space(((W3 - W1) / 2) / W2) & S
    Next
    
    Combo1.Clear
    
    For i = 0 To UBound(a