|添加以下模块:
PublicSubCenterC(frmAsForm)
DimSpcFAsInteger''''Howmanyspacescanfit
DimclenAsInteger''''captionlength
DimoldcAsString''''oldcaption
DimiAsInteger''''notimportant
''''''''removeanyspacesattheendsofthecaption
''''''''veryeasyifyoureaditcarefully
oldc=frm.Caption
DoWhileLeft(oldc,1)=Space(1)
DoEvents
oldc=Right(oldc,Len(oldc)-1)
Loop
DoWhileRight(oldc,1)=Space(1)
DoEvents
oldc=Left(oldc,Len(oldc)-1)
Loop
clen=Len(oldc)
IfInStr(oldc,"!")<>0Then
IfInStr(oldc,"")<>0Then
clen=clen*1.5
Else
clen=clen*1.4
EndIf
Else
IfInStr(oldc,"")<>0Then
clen=clen*1.4
Else
clen=clen*1.3
EndIf
EndIf
''''''''''''seehowmanycharacterscanfit
SpcF=frm.Width/61.2244''''''''howmanyspacecanfit itthecaption
SpcF=SpcF-clen''''Howmanyspacescanfit-Howmuch spacethe
''''''''captiontakesup
''''''''''''Nowthetrickypart
IfSpcF>1Then
DoEvents''''speeduptheprogram
frm.Caption=Space(Int(SpcF/2))+oldc
Else''''iftheformistoosmallforspaces
frm.Caption=oldc
EndIf
EndSub
|在窗体中添加以下代码:
DimoldsizeAsLong
PrivateSubForm_Resize()
IfMe.Width=oldsizeThen''''ifthewidthhasn''''t changed
ExitSub''''thendontmesswithit
Else
CenterCMe
oldsize=Me.Width
EndIf
EndSub
PrivateSubForm_Load()
CenterCMe
oldsize=Me.Width
EndSub
没有相关教程