Office中国论坛/Access中国论坛 › Access中国门户旧版 ›Access› 表 › 查看内容

让标题栏文字置中

2015-2-16 22:33| 发布者: 想不通| 查看: 2888| 评论: 0

摘要: 文章正文： Private Sub Form_Load() CenterC Me oldsize = Me.WidthEnd SubPrivate Sub Form_Resize() If Me.Width = oldsize Then Exit Sub Else CenterC Me oldsize = Me.Width End IfEnd Sub以下放入模 ...

文章正文：
Private Sub Form_Load()
CenterC Me
oldsize = Me.Width
End Sub

Private Sub Form_Resize()
If Me.Width = oldsize Then
      Exit Sub
Else
      CenterC Me
      oldsize = Me.Width
End If
End Sub

以下放入模块,以后用时调用即可.

Public Sub CenterC(frm As Form)
Dim SpcF As Integer
Dim clen As Integer
Dim oldc As String
Dim I As Integer

oldc = frm.Caption
Do While Left(oldc, 1) = Space(1)
      DoEvents
      oldc = Right(oldc, Len(oldc) - 1)
Loop

Do While Right(oldc, 1) = Space(1)
      DoEvents
      oldc = Left(oldc, Len(oldc) - 1)
Loop

clen = Len(oldc)

If InStr(oldc, "!") <> 0 Then
      If InStr(oldc, "") <> 0 Then
         clen = clen * 1.5
      Else
         clen = clen * 1.4
      End If
Else
      If InStr(oldc, "") <> 0 Then
         clen = clen * 1.4
      Else
         clen = clen * 1.3
      End If
End If

SpcF = frm.Width / 61.2244
SpcF = SpcF - clen

If SpcF > 1 Then
      DoEvents
      frm.Caption = Space(Int(SpcF / 2)) + oldc
Else
      frm.Caption = oldc
End If
End Sub

收藏分享邀请

上一篇：隐藏表的一种特殊方法下一篇：刷新联接表的函数

帐号		自动登录	找回密码
密码			注册

让标题栏文字置中

最新评论

相关分类