让标题栏文字居中

让标题栏文字居中
|添加以下模块:

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

  • 0
    点赞
  • 0
    评论
  • 0
    收藏
  • 一键三连
    一键三连
  • 扫一扫,分享海报

相关推荐
©️2020 CSDN 皮肤主题: 大白 设计师:CSDN官方博客 返回首页
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值