让access标题栏文字置中

时　间:2008-12-30 08:22:08
作　者:UMVsoft整理   ID：1445  城市：上海
摘　要:让Access标题栏文字置中
正　文:

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