求滚动条的计算方式

Question

一个察看文本的容器，可见行为15行。请问应该如何设置滚动条的Min、Max、LargeChange、SmallChange 属性，以应付文本为16-30行和30行以上时，滚动条都能完全按比例显示?

Answer 1

Min = 0
Max = 总行数 - 可见行LargeChange、SmallChange 自己看着办。

Answer 2

1.先取得文本框中文本的总行数
Function GetLineCount(CTextBox As TextBox) As Long 
　　GetLineCount = SendMessage(CTextBox.hWnd, EM_GETLINECOUNT, 0, 0) 
End Function 
2.设滚动条的Min为0、Max=GetLineCount(Textbox)-15,LargeChange=15,SmallChange=15