html标题栏显示文字居中,让标题栏文字居中

下载本文示例代码

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

下载本文示例代码

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

阅读(14) | 评论(0) | 转发(0) |