编程语言 VB60，控件richtextbox1，属性是允许垂直滚动条

当我在文本框中键入文字或者是拖入对象的时候，当文本超过过文本框的时候垂直滚动条就出现了。

我想知道是否有一个函数，可以检测 richtextbox1中是否有显示垂直滚动条。
或者可以检测文本是否超出文本框的范围。
谢谢啦。

我现在只能使用
Private Sub RichTextBox1_Change()
intMaxLine=Len(RichTextBox1.text)/31+1 '每行大概能够显示31个字符
RichTextBox1.Height=intintMaxLine*320 '每行的高度大概是320
End Sub
但是这样使用起来有很大问题，因为中文和英文每行可以显示的字数不同，而且英文大多会从空格处断行
使得每行显示的不一定是31个字符了，真正出现的行数是不可预知的了。如果有这样一个函数
假设为：

Private Function IsVscrollBarExist(RichTextBox1 As RichTextBox) As Boolean

那就可以把它改成
Private Sub RichTextBox1_Change()
If IsVscrollBarExist(RichTextBox1) Then
Do
RichTextBox1.Height=RichTextBox1.Height+320
Loop While IsVscrollBarExist(RichTextBox1)
End If
End Sub

这样画出来的文本框就会漂亮了。

谢谢！

[此贴子已经被作者于2007-10-28 11:48:06编辑过]