Question

在我的程序中，创建了一个字符串，其大小变化很大。

然后应在单独的窗口中显示此字符串。

不幸的是，常规的 Msgbox （我认为限制为1024个符号）太小了，无法满足我的需求。

现在，我为此问题创建了一个 Userform ，但是当存在巨大的 Userform 且其中只有两个值时，它看起来很傻，但是下次我需要该大小因为字符串中有1000个值。

我注意到常规的 Msgbox 会根据其中的字符串的长度来改变大小。

对于我创建的 Userform ，我该怎么办？我只找到有关如何使其全屏显示的信息，对于这种情况没有帮助。

Answer 1

您可以更改width属性的值。我要怎么做是用文本框创建用户窗体，并为用户窗体提供displaytext属性。

Property Let DisplayText(s as String)
Dim x as Long
x = Len(s)
If x > 0 Then 
   Me.Textbox1.Width = x*.7
   Me.Width = Me.Width * 100/x
Else
   Me.Textbox1.Width = 75      ' (edited)
   Me.Width = 100
End If

End Property

然后我会这样称呼

Load Userform1
With Userform1
   .DisplayText = "your message here"
   .Show
End With

您必须使用代码中的数字才能使其适合您的屏幕分辨率等

大小可变的用户表单

1 个答案: