label控件一行最多只能显示128个汉字，有什么办法可以突破这个限制？在线中 @_@

[gpo2002]

如题

如果有现成控件的化，最好有源码

[xhggg]

可以让这个'label'透明吗？

[LiangWu25]

To xhggg(xh):
你说的对，我没考虑过。虽然可以提供'Label'的背景色，但两个'Label'在一起会遮挡，比不上Label控件的'透明'属性。

我在这里是提供一种思路而已，也希望大家提一下自己的思路，共同学习。

[xhggg]

学习

[gpo2002]

Label得值可以超过256字节，但是显示的时候只能显示128个
=====================================================
up！

[wolfhero]

学习

[xhggg]

用2个label

[LiangWu25]

可以做成自定义控件，把一个Textbox放进去，自定义所有的属性和Label一臻，再把UserControl的Enabled设为False,这样的话程序运行时Textbox就得不到焦点，并且字的颜色也不会变为灰色。
exp:
UserControl1:
Option Explicit

Public Property Get Caption() As String
Caption = Text1.Text
End Property

Public Property Let Caption(ByVal vText As String)
Text1.Text = vText
End Property

Private Sub UserControl_Initialize()
Text1.Left = 0
Text1.Top = 0
End Sub

Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
PropBag.ReadProperty "Caption", "Label1"
End Sub

Private Sub UserControl_Resize()
Text1.Height = UserControl.Height
Text1.Width = UserControl.Width
End Sub

Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
PropBag.WriteProperty "Caption", Text1.Text, "Label1"
End Sub


Form1:
Private Sub Form_Load()
Dim i As Integer
UserControl11.Caption = ""
For i = 1 To 200
UserControl11.Caption = UserControl11.Caption + "我"
Next
End Sub

[kmzs]

可能吗？

[gpo2002]

因为我要在一行里面显示一个不定长（几百个字左右）的字符串。
Label有Autosize属性很方便。
用Text就要自己判断长度，改变宽度，感觉比较麻烦。

[liuxiaoyuzhou]

为什么非用LAGEL别的不行吗？
人是活的！

[rainstormmaster]

把lable控件的高度设大点，显示为两行不行吗？

[weaest]

分行显示
Private Sub Command1_Click()
Label1.Caption = "王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王" _
& Chr(10) & Chr(13) & "王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王" _
& Chr(10) & Chr(13) & "王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王" _
& Chr(10) & Chr(13) & "王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王" _
& Chr(10) & Chr(13) & "王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王" _
& Chr(10) & Chr(13) & "王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王" _
& Chr(10) & Chr(13) & "王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王" _
& Chr(10) & Chr(13) & "王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王" _
& Chr(10) & Chr(13) & "王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王王"
End Sub

len(label1.caption)=466

[gpo2002]

因为要作成透明的跑马灯的效果，所以要一行，我现在是用动态数组空间作的。

虽然len(label1.caption)=466但是显示的只有前面一部分

还想看看能不能实现
up

[FSoft]

在工具箱中单击右键选
部件-->控件-->Microsoft Forms 2.0 Object Library
该部件中有Label控件(2.0版),可以实现你的目标,不过不知道该控件是否也有字数限制,自己试试吧!

[fengyetianshi]

LABEL1控件加宽一些，使用代码来加值：
Label1.Caption = "4444444444444444444444444444444444444444444444444444444444" _
& Chr(10) & Chr(13) & 22222222222222222222222222222222244444" _
& Chr(10) & Chr(13) & "444444444444444444444444444444444444444"_
& chr(10) & chr(13) & "54456465465456465456464546456465465465"
就这样一值加可发超过。

[northwolves]

LABEL数组实现：
Dim a(4) As String

Private Sub Command1_Click()
Timer1.Enabled = True
Timer1.Interval = 50
End Sub

Private Sub Form_Click()
Timer1.Enabled = False
End Sub

Private Sub Form_Load()

For i = 0 To 4
a(i) = String(200, Chr(i + 65))
Label1(i).BorderStyle = 0
Label1(i).AutoSize = True
Next
Label1(0).Left = Me.Left + Me.Width
Label1(0).Top = 2000
Label1(0).Caption = a(0)
For i = 1 To 4
Label1(i).Caption = a(i)
Label1(i).Left = Label1(i - 1).Left + Label1(i - 1).Width
Label1(i).Top = Label1(0).Top
Next
End Sub

[wsd309]

For i = 1 To 300
If Len(Label1.Caption) >= 128 Then
Label2.Caption = Label2.Caption + "王"
End If
Label1.Caption = Label1.Caption + "王"
Next i
Label2.Left = Label1.Left + Label1.Width

[wsd309]

用两个就行了

[wsd309]

For i = 1 To 300
If Len(Label1.Caption) >= 128 Then
Label2.Caption = Label2.Caption + "王"
Else
Label1.Caption = Label1.Caption + "王"
End If

Label2.Left = Label1.Left + Label1.Width
Next i

[lanslotliu]

多用几个label就行了，如果用MS forms2.0 的label做成透明的，看不出是多个label