VB中TEXT字数超过一定数量就自动变小

Dim Size As Long

Private Sub Form_Load()
Size = Text1.FontSize '在打开程序时读取text的字体大小

End Sub

Private Sub Text1_Change()
If Len(Text1.Text) > 30 Then '判断是否超过30个字
Text1.FontSize = Size - 4 '超过30个字时，字体缩小4个尺寸
Text1.Refresh
End If
End Sub

If len(text1.text)>30 then
text1.fontsize=text1.fontsize-4
end if
把这段代码放到text1的change事件中.

If len(text1.text)>30 then text1.fontsize=-1 end if

你没有说明你使用的VB版本（VB5/6/.NET）
在 TEXT的 onTextChange 事件中写入代码：
1、判断 Text文本长度；
2、如果 Length超过30，Then 设置 Font 为 x（根据实际情况自己决定字体大小）；
3、如果 Length >=30 and length <= xx? xxx? then 设置 font 为 x（字符串长度超过30并且小于多少，设置字体大小为x，这取决于你文本框的大小，自己根据实际情况来设）；