- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助] RichTextBox滚动条当前位置 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=78986)
-- 发布时间：2015/12/22 10:50:00
-- [求助] RichTextBox滚动条当前位置
网上找的代码，怎么用到狐表中：
Private Const EM_GETLINECOUNT = &HBA
Private Const EM_LINEFROMCHAR = &HC9
Private Declare Function GetScrollPos Lib "user32" (ByVal hwnd As Long, ByVal nBar As Long) As Long
pos = GetScrollPos(Richtextbox1.hwnd, 1)
pos 变量为 RICHTEXTBOX 的滚动条位置，保存POS 值
设置位置
读取 保存的POS值
Private Declare Function SetScrollPos Lib "user32" Alias "SetScrollPos" (ByVal hwnd As Long, ByVal nBar As Long, ByVal nPos As Long, ByVal bRedraw As Long) As Long
private const SB_VERT = 1
SetScrollPos RichTextBox1.Hwnd, SB_VERT,保存的 pos值, true
-- 发布时间：2015/12/22 11:00:00
--
参考
| 下载信息 [文件大小：300.0 KB 下载次数：14] | |
 点击浏览该文件:textbox滚动例子.table |
-- 发布时间：2015/12/22 11:15:00
--
好的，谢谢。