标题太长用省略号代替

哈喽，哈喽，大家好呀！

炎炎夏日，大家是否还有一颗学习Access的热心！我们家这里温度已经到40度左右了，刚出门就化了。今天，给大家分享一个不想说话的示例，只想打三个点。。。

我们经常在网页看到这样的情况，因为内容比较多，显示的主地不够显示，则最后就用三个省略号代替。那在Access可以实现吗？我们来看一下吧。

01、创建窗体

首先，我们创建一个窗体，在窗体上放一个文本框（txtLen），用于填写最大的显示长度，接着我们在放一个标签(lblTitle)用于内容的显示，如下图：

02、添加代码

接着，我们来添加一下代码

Option Compare Database
Option Explicit
Dim s As String
Private Sub Form_Load()
  s = lblTitle.Caption
End Sub
Private Sub txtLen_AfterUpdate()
    Dim Tmpstr As String
    Dim ctl As Control
    If Len(Me.txtLen) > 0 Then
        For Each ctl In Me.Controls
            If ctl.ControlType = acLabel Then
                If ctl.Name = "lblTitle" Then
                    If Len(ctl.Caption) > Val(Nz(Me.txtLen, 0)) Then
                        Tmpstr = ctl.Caption
                        ctl.Caption = Left(Tmpstr, Val(Me.txtLen)) & "..."
                        ctl.ControlTipText = Tmpstr
                    End If
                End If
            End If
        Next
    Else
        lblTitle.Caption = s
    End If
End Sub

代码原理比较简单，其实就是判断一下长度，如果超出了设置的长度，那超出的部分用...代替

03、运行测试

最后，我们来运行看一下效果

那到这里的话，整个示例就讲完了，大家快去试一下吧。