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

版权声明:本文为博主原创文章,遵循 CC 4.0 by-sa 版权协议,转载请附上原文出处链接和本声明。
本文链接:https://blog.csdn.net/chenjl1031/article/details/9231491

        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 "CSDN中文网站"
        
    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(arr)
        Combo1.AddItem arr(i)
    Next
    Combo1.ListIndex = Combo1.ListCount - 1
    
End Sub


 

效果图如下:

展开阅读全文

表项的移动

03-21

☆ Java程序员居家旅行必备课程 ☆<br />rn<br />rnJava学习指南系列的第4篇,介绍基于Java Swing的的高级应用技术。本篇的前一篇是Swing入门篇。<br />rnSwing系列教程分为两篇:(1) Swing入门篇 (2) Swing高级篇。<br />rn<br />rn本篇内容至少包含:<br />rn- 高级绘制技术,包含线型、渐变色、文本的精确绘制<br />rn- 不规则形状及图表的绘制<br />rn- 工作线程与界面线程的原理<br />rn- 短任务、长任务、定时任务的应用举例<br />rn- 弹出式窗口 Popup的使用方法<br />rn- 短消息提示 Toaster 的设计与使用<br />rn- 事件处理机制,鼠标键盘事件处理,以及一个基于键盘操作的“推箱子”游戏&nbsp;<br />rn- 多行文本的显示<br />rn- 图片操作:缩放、剪裁、旋转、镜像,以及一个屏幕截图程序的实例<br />rn- 管理型应用界面的框架<br />rn- 向导型应用界面的框架<br />rn- 文档型应用界面的框架<br />rn- 拖放支持 Drag &amp; Drop,一个可拖拽排序的列表,以及一个拼图游戏的实现<br />rn<br />rn* 课程特色 *<br />rn轻快 - 采用小章节教学,学起来轻松<br />rn实用 - 以实际工程需要出发来设计课程<br />rn有趣 - 穿插大量特效实例,增加趣味性和学员的成就感<br />rn专业 - 课程中采用的代码库,就是经过良好封装的成熟的库<br />rn<br />rn本篇穿插多个实例,通过实例,综合运用多种技术,使学员对项目的构建有所有认识。<br />

没有更多推荐了,返回首页