讓標(biāo)題欄文字置中

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
    以下放入模塊,以后用時調(diào)用即可.
    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