VB中根据文本行数显示滚动条(动态显示滚动条)的方法

很多时候,我们不想一开始就显示滚动条,当文本到达指定行数文本框无法完全显示的时候再显示它,由于Scrollbar属性是只读的,无法在运行时的代码中改变这个属性,只能使用下面的API实现这个功能:

Public Declare Function ShowScrollBar Lib "user32" (ByVal hwnd As Long,ByVal wBar As Long,ByVal bShow As Long) As Long

Public Const SB_HORZ = 0 '水平
Public Const SB_VERT = 1 '垂直
Public Const SB_BOTH = 3 '两者都有

在Change事件中,调用就可以了:

Private bShow As Boolean '是否已经改变Scrollbars属性,你也可以省略这个控制

Private Sub txtText_Change()

txtText.SelStart = Len(txtText.Text)

If bShow =True Then Exit Sub '读取一个变量的速度要比读取一个属性快,看下C++

If TextHeight(txtText.Text) > txtText.Height Then

ShowScrollBar txtText.hwnd,SB_VERT,True

bShow = True '下次不用再判断

End If End Sub