让标题栏文字居中

下载本文示例代码
p>|添加以下模块： PublicSubCenterC(frmAsForm) DimSpcFAsIntegerHowmanyspacescanfit DimclenAsIntegercaptionlength DimoldcAsStringoldcaption DimiAsIntegernotimportant 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,"!")$#@60;$#@62;0Then IfInStr(oldc,"")$#@60;$#@62;0Then clen=clen*1.5 Else clen=clen*1.4 EndIf Else IfInStr(oldc,"")$#@60;$#@62;0Then clen=clen*1.4 Else clen=clen*1.3 EndIf EndIf seehowmanycharacterscanfit SpcF=frm.Width/61.2244howmanyspacecanfit itthecaption SpcF=SpcF-clenHowmanyspacescanfit-Howmuch spacethe tiontakesup Nowthetrickypart IfSpcF$#@62;1Then DoEventsspeeduptheprogram frm.Caption=Space(Int(SpcF/2)) oldc Elseiftheformistoosmallforspaces frm.Caption=oldc EndIf EndSub |在窗体中添加以下代码： DimoldsizeAsLong PrivateSubForm_Resize() IfMe.Width=oldsizeThenifthewidthhasnt changed ExitSubthendontmesswithit Else CenterCMe oldsize=Me.Width EndIf EndSub PrivateSubForm_Load() CenterCMe oldsize=Me.Width EndSub p>|添加以下模块： PublicSubCenterC(frmAsForm) DimSpcFAsIntegerHowmanyspacescanfit DimclenAsIntegercaptionlength DimoldcAsStringoldcaption DimiAsIntegernotimportant 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,"!")$#@60;$#@62;0Then IfInStr(oldc,"")$#@60;$#@62;0Then clen=clen*1.5 Else clen=clen*1.4 EndIf Else IfInStr(oldc,"")$#@60;$#@62;0Then clen=clen*1.4 Else clen=clen*1.3 EndIf EndIf seehowmanycharacterscanfit SpcF=frm.Width/61.2244howmanyspacecanfit itthecaption SpcF=SpcF-clenHowmanyspacescanfit-Howmuch spacethe tiontakesup Nowthetrickypart IfSpcF$#@62;1Then DoEventsspeeduptheprogram frm.Caption=Space(Int(SpcF/2)) oldc Elseiftheformistoosmallforspaces frm.Caption=oldc EndIf EndSub |在窗体中添加以下代码： DimoldsizeAsLong PrivateSubForm_Resize() IfMe.Width=oldsizeThenifthewidthhasnt changed ExitSubthendontmesswithit Else CenterCMe oldsize=Me.Width EndIf EndSub PrivateSubForm_Load() CenterCMe oldsize=Me.Width EndSub 下载本文示例代码


让标题栏文字居中让标题栏文字居中让标题栏文字居中让标题栏文字居中让标题栏文字居中让标题栏文字居中让标题栏文字居中让标题栏文字居中让标题栏文字居中让标题栏文字居中让标题栏文字居中让标题栏文字居中让标题栏文字居中让标题栏文字居中让标题栏文字居中