VB中根据文本行数显示滚动条(动态显示滚动条)的方法
很多时候,我们不想一开始就显示滚动条,当文本到达指定行数文本框无法完全显示的时候再显示它,由于Scrollbar属性是只读的,无法在运行时的代码中改变这个属性,只能使用下面的API实现这个功能: Public Declare Function ShowScrollBar Lib "user32" (ByVal hwnd As Long,ByVal wBar As Long,ByVal bShow As Long) As Long
在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 (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |