发信人: nomean()
整理人: hunter__fox(2002-03-16 22:47:21), 站内信件
|
如何显示垂直的标签？
由于VFP中的标签控件并不具备垂直显示的选项，那么我们如何能使标签
垂直显示呢？要实现这个功能，就要使用CHR（13）这个换行符，以下为一例：
设要显示一垂直字串“管理系统”。
Label.caption=”管”+CHR（13）+”理”+CHR（13）+”系”+CHR(13)+”统”
若要经常使用这功能，可按如下步骤：
于CAPTION中录入要显示的字串，并于INIT方法中加入
LOCAL Nlen,Cstring
Nlen=lenc(this.caption)
Cstring=””
For I=1 to nlen*2
Cstring=cstring+substr(this.caption,I,2)+chr(13)
I=I+1
Endfor
This.caption=cstring
--
我颤颤地伸出手
却没能握住一丝温柔
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 202.101.119.187]
|
|