让标题栏文字置中
private Sub Form _ Load()
CenterC Me
oldsize = Me。宽度
末端接头
private Sub Form _ Resize()
If Me。Width = oldsize然后
Exit Sub
Else
CenterC Me
oldsize = Me。宽度
End If
End Sub
将以下内容放入模块中,稍后调用。
public Sub center c(frm As Form)
Dim SpcF As Integer
Dim clen As Integer
Dim oldc As String
Dim I As Integer
oldc = frmCaption
Do While Left(oldc,1)= Space(1)
DoEvents
oldc = Right(oldc,Len(oldc)-1)
Do While Right(oldc,1)= Space(1)
DoEvents
oldc = Left(oldc,Len(oldc)-1)
Loop
clen = Len(old)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[/brwidth/61.2244
SpcF = SpcF-clen
如果SpcF > 1,则
DoEvents
frm。caption = Space(Int(SpcF/2))+oldc
Else
frm。caption = oldc
End If
End Sub
0条评论