读书人

关于标签使用的一个有关问题

发布时间: 2012-01-29 21:39:32 作者: rapoo

关于标签使用的一个问题
我放一个标签在窗体中,我想固定它的宽度,但是标签的高度根据标签内容的多少进行变化。想了一些办法不能实现,有没有高手能提出一点思路?谢谢

[解决办法]
autosize=false
[解决办法]
autosize=True
然后当达到宽度时,把现实在标签的字符串换行即可。
例如:每行只显示4个字符:

VB code
Option ExplicitPrivate Sub Form_Load()    With Label1        .AutoSize = True        .Caption = "中华人民" & Chr(13) & "共和国"    End WithEnd Sub
[解决办法]
给你个小例子,自己去举一反三吧。
VB code
Private Sub Form_Load()    Label1.AutoSize = True    Label1 = "1234567890123"End SubPrivate Sub Label1_Change()    Static f As Boolean    If f Then f = False: Exit Sub    For i = 1 To Len(Label1)        x = x & Mid(Label1, 5 * (i - 1) + 1, 5) & vbCrLf    Next    f = True    Label1.Caption = xEnd Sub 

读书人网 >VB

热点推荐