说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

VB使用SendMessage函数滚动文本框控件中的内容

HTML文档下载 WORD文档下载 PDF文档下载
VB使用SendMessage函数滚动文本框控件中的内容

在Visual Basic 中, 可 以 通 过 程 序 使 文 本 框 控 件 中 的 内 容 进 行 滚 动, 而 不 用 等 待 用 户 单 击 滚 动 条 控 件, 可 以 通 过 使 用Windows API 的SendMessage 函 数 将 一 个 或 多 个 滚 动 消 息 发 送 到 系 统 来 实 现 上 述 功 能。

在 文 本 框 控 件 中 滚 动
---- 在 下 面 的 样 例 程 序 中, 连 接 到Left 命 令 按 钮 上 的 代 码 将 文 本 框 中 的 内 容 向 左 移 动 一 个 字 符 的 位 置。 当 用 户 单 击 了 文 本 框 控 件 上 的 水 平 滚 动 条 时, 该 消 息 被 发 送 到 窗 口。 然 而, 在 这 个 程 序 中, 是 在 用 户 单 击 命 令 按 钮 时 发 送 该 消 息。
---- 要 控 制 滚 动 行 为 的 方 向, 必 须 告 诉SendMessage 函 数 将 一 个WM_HSCROLL 消 息 发 送 到 文 本 框 控 件 中, 并 在wParam 参 数 中 指 定 方 向 参 数。 下 面 是 可 以 在wParam 参 数 中 指 定 的 有 效 设 置。

---- SB_LEFT 往 左 边 移 动 较 多 部 分
---- SB_RIGHT 往 右 边 移 动 较 多 部 分
---- SB_LINELEFT 往 左 边 移 动 一 个 单 元
---- SB_LINERIGHT 往 右 边 移 动 一 个 单 元

---- 可 见, 要 将 文 本 框 中 的 文 本 向 左 移 动 一 个 字 符, 可 以 将wParam 参 数 设 置 为SB_LINELEFT; 要 将 文 本 框 中 的 内 容 向 右 移 动 一 个 字 符, 则 将wParam 参 数 设 置 为SB_LINERIGHT, 等 等。

样 例 程 序
---- 该 程 序 显 示 了 如 何 使 用SendMessage 函 数 来 滚 动 文 本 框 控 件 中 的 内 容。
---- 1. 在Visual Basic 中 开 始 一 个 新 的 工 程, 采 用 缺 省 的 方 法 建 立Form1。
---- 2. 将 如 下 常 量 和 声 明 语 句 添 加 到Form1 的 通 用 声 明 部 分 中( 注 意 该 声 明 语 句 需 要 书 写 在 一 行 内):
---- Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Long) As Long
---- Const SB_LINERIGHT = 1
---- Const SB_LINELEFT = 0
---- Const WM_HSCROLL = &H114

---- 3. 在Form1 上 添 加 一 个 文 本 框 控 件, 采 用 缺 省 的 方 法 建 立Text1。 将 其MultiLine 属 性 设 置 为True,ScroolBars 属 性 设 置 为3-Both。

---- 4. 在Form1 上 添 加 一 个 命 令 按 钮 控 件, 采 用 缺 省 的 方 法 建 立Command1。
---- 将 其Caption 属 性 设 置 为“ 左”。

---- 5. 将 如 下 代 码 添 加 到Command1 的 单 击 事 件 中:

Private Sub Command1_Click()
Dim X As Long
X = SendMessage(Text1.hwnd, WM_HSCROLL,
SB_LINELEFT, ByVal 0&)
End Sub

---- 6. 在Form1 上 添 加 第 二 个 命 令 按 钮 控 件, 采 用 缺 省 的 方 法 建 立Command2。
---- 将 其Caption 属 性 设 置 为“ 右”。
---- 7. 将 如 下 代 码 添 加 到Command2 的 单 击 事 件 中:

Private Sub Command2_Click()
Dim X As Long
X = SendMessage(Text1.hwnd, WM_HSCROLL,
SB_LINERIGHT, ByVal 0&)
End Sub

---- 按 下F5 键 来 执 行 该 程 序。
clone(deep) -JQuery API empty()-JQuery API insertAfter(expr)-JQuery API insertBefore(expr) -JQuery API prepend(content)-JQuery API 在ASP中需要上传PPT和声音文件等,如何保证在客户端可以正常播放? 请教关于java.swing.*中的一个类的问题,让我很是不明白 如何将VBA程序代码移植到VB程序代码中? 有关下载 两个Struts的简单问题!请高手指教 怎样用C#在网页上编程动态修改服务器端控件的位置? 我的问题怎么没有权威的有用的答案呢?w2k不能安装sp4的 问题! JServlet怎样实现类似ASP中XMLHTTP的功能 怎样捕抓ADO访问数据库产生的错误? I read English books ____ we read english for half 解方程 5.3+6x=16.1 一家商店的招牌是“行行行”,请标出读音并略家说明 一家商店的招聘是\"行行行\",请标出读音并略加说 一家商店的招牌是"行行行",请标出读音并略加说明 对(量杯量筒,量量学识深浅) 对对联:上联:量杯量筒,量量学识深浅. 量杯量筒,量量学识深浅的下联是什么? 美国北卡州狂欢活动发生意外事故 致5欧盟主席谈隐私 被称暗示美国搞监视是挪威拒绝美国请求 将不接收销毁叙利亚克里叹美政府关门损形象 他国外交官欲德一男子拒绝受审持枪劫持12名亲友终享受家具盛宴 只在八益家具城2014款奔腾B90华夏商道之旅西安本周末 来成都米娅中心看特斯拉首秀雄飞集团全面进军品牌房企□肖姗姗破玄虚梦之极夜六属六道北宋大郎百魔图檀头山岛旅游月亮岛旅游弘福寺旅游黔灵山动物园旅游上帝庙旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘