让标题栏文字居中

转载 2008年05月01日 05:11:00
<script type="text/javascript"><!-- google_ad_client = "pub-2947489232296736"; /* 728x15, 创建于 08-4-23MSDN */ google_ad_slot = "3624277373"; google_ad_width = 728; google_ad_height = 15; //--> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
<script type="text/javascript"><!-- google_ad_client = "pub-2947489232296736"; /* 160x600, 创建于 08-4-23MSDN */ google_ad_slot = "4367022601"; google_ad_width = 160; google_ad_height = 600; //--> </script><script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
让标题栏文字居中
|添加以下模块:

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

<script type="text/javascript"><!-- google_ad_client = "pub-2947489232296736"; /* 728x15, 创建于 08-4-23MSDN */ google_ad_slot = "3624277373"; google_ad_width = 728; google_ad_height = 15; //--> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
<script type="text/javascript"><!-- google_ad_client = "pub-2947489232296736"; /* 160x600, 创建于 08-4-23MSDN */ google_ad_slot = "4367022601"; google_ad_width = 160; google_ad_height = 600; //--> </script><script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>

让企业管理和IT一起飞

-
  • 1970年01月01日 08:00

android通过自定义theme个性化标题栏并且文字居中

安卓默认的标题栏黑乎乎非常难看。不过可以通过theme来自定义标题栏样式。在一次项目中需要把颜色修改为蓝色,高度40dp,标题文字居中的效果。步骤如下:1.首先在values文件夹下创建colors....
  • sevenshal
  • sevenshal
  • 2013-09-02 16:42:02
  • 9025

Android 标题 居中

1在onCreate()方法中加上这三句话: [java] view plaincopy requestWindowFeature(Window.FEATURE_CUSTOM_TITLE);...
  • jbgtwang
  • jbgtwang
  • 2015-01-23 16:39:41
  • 7764

如何让标题栏文字居中、

以下三句代码放到oncreat中即可 requestWindowFeature(Window.FEATURE_CUSTOM_TITLE); setContentView(R.layout.mai...
  • cold702
  • cold702
  • 2012-03-05 12:52:24
  • 2002

SolidWorks工程图标题栏如何居中文字

工程图标题栏的制作学过SolidWorks的人员应该都熟悉。今天主要是跟大家交流2个不太注意的地方。 1. 标题栏中填写的文字大部分是居中在各个文字框中,如下图红框中字要居中红框,您是如何处理的? ...
  • ddsoft123
  • ddsoft123
  • 2017-06-14 14:09:41
  • 992

Android ActionBar高级自定义——设置标题居中和添加控件

关于ActionBar的一些常见使用方法我已经在之前两篇博文(Android ActionBar完全解析(上)和Android ActionBar完全解析(下))里面介绍的比较完全了,然而在日常使用...
  • gtbluesky
  • gtbluesky
  • 2015-03-26 21:45:13
  • 8996

mfc 标题栏 标题字体 居中显示

在头文件中放下面的函数: view plaincopy to clipboardprint? afx_msg void OnNcPaint(); afx_msg BOOL OnNcActivat...
  • rundll64
  • rundll64
  • 2015-05-23 13:56:36
  • 1179

html5 canvas 文字居中对齐

html部分 css部分 canvas{width:1000px;height:700px;} js部分 初始的基本格式: window.onload=functio...
  • clh604
  • clh604
  • 2013-01-08 16:04:08
  • 20299

如何让html文本居中显示

如果想让html文本居中显示,只需要加上一个align属性,例如:                          居中显示的文字    编程苦逼的时候,可以访问该网站看看:性...
  • u010353028
  • u010353028
  • 2015-01-19 14:15:37
  • 2758

用PS怎样把一个字体居中整个图片

  1、打字肯定会新建出一个文字图层,选中这个层。 2、全选(Ctrl+A),这时整个画面都会被选中。 3、使用移动工具(V),点击菜单栏下方工具属性条中的水平居中和垂直居中两个按钮...
  • xuqianghit
  • xuqianghit
  • 2010-08-18 09:03:00
  • 8484
收藏助手
不良信息举报
您举报文章:让标题栏文字居中
举报原因:
原因补充:

(最多只允许输入30个字)