我已經解決了!!!!
Public Const SB_VERT = 1
Public Const SB_HORZ = 0
Public Declare Function ShowScrollBar Lib "user32" _
(ByVal hWnd As Long, ByVal wBar As Long, ByVal bShow As Long) As LongPublic Sub ShowScrollBars(theTextbox As Object)
Dim hWnd As Long
hWnd = theTextbox.hWnd
ShowScrollBar hWnd, SB_VERT, 1
ShowScrollBar hWnd, SB_HORZ, 1
End Sub
Public Const SB_VERT = 1
Public Const SB_HORZ = 0
Public Declare Function ShowScrollBar Lib "user32" _
(ByVal hWnd As Long, ByVal wBar As Long, ByVal bShow As Long) As LongPublic Sub ShowScrollBars(theTextbox As Object)
Dim hWnd As Long
hWnd = theTextbox.hWnd
ShowScrollBar hWnd, SB_VERT, 1
ShowScrollBar hWnd, SB_HORZ, 1
End Sub
解决方案 »
- VBA DataGrid 问题
- 求助!
- DTPicker 日期控件有checkbox 属性问题
- Visual Basic真是搞笑
- sql = "select * into [xldata.txt] in 'c:\' 'Text;' from 表名"
- 如何将记录集中的数据以表格形式写到Word文档中?
- 谁有toolbar上的漂亮图标提供,有分相送
- access 2000问题,请帮忙!!!
- 怎么不启作用啊?急!!!
- 使用winsock控件,利用UDP协议,发送端一次最大能发送多少K的数据?
- Err.Raise Number:=intErr , Number:=intErr是什么意思?
- 如何实现例如 TXTEASY!、电子书库等软件实现的智能分段功能?
然后设定RichTextBox的SelStart和Sellenth,这样就可以设置颜色RichTextBox.selcolor
请问你这个api是什么意思?可以得到什么结果,我没有看到你把要找的字符串传进去呀,也没有返回值。对不起,我实在是很菜,看不懂