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