标题太长用省略号代替
哈喽,哈喽,大家好呀!
炎炎夏日,大家是否还有一颗学习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、运行测试
最后,我们来运行看一下效果
那到这里的话,整个示例就讲完了,大家快去试一下吧。
从事access开发多年,喜欢access做一些小东西,分享一些小经验