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

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 键 来 执 行 该 程 序。
【开源推荐】Ejoy2D:“风魂”游戏引擎作者云风的又一力作 Web应用在IE11里的实际使用性能 回顾2013年十个值得关注的WordPress设计主题 为什么Google眼镜注定会失败? 2013移动开发工具盘点:最火原型设计工具 2013年12月份浏览器份额:IE 11暴涨3倍 【PPT集萃】十位一线专家分享Spark现状与未来(二) 2014年,怎么做产品才能获得成功? 年末新游盘点:2014年移动游戏四大趋势 IDC:全球有1850万程序猿 4成爱好者在写代码 PHP开发框架流行度排名:Laravel居首 2013年度最强AngularJS资源合集 研发周报:回顾2013、技术栈的选择、开源成趋势 TIOBE 2014年1月编程语言排行榜:Transact-SQL力挫Objective-C 夺得桂冠 IBM:这五个智能技术的发展,将会改变我们生活 一周消息树: 微软的2013,Surface的2014 Amazon CTO Werner Vogels:云和SaaS正在快速风靡全球 “人类先知”Isaac Asimov 50年前的科技预测大多应验了 2014年10大Web设计趋势 Google野心:App Indexing改写应用搜索格局 Cocos2d-x,老牌引擎的新进化 Kingdom Rush创始人专访:游戏与电影元素混搭 超实用的JavaScript技巧及最佳实践(下) 盖茨和鲍尔默或成挑选微软新CEO的最大阻碍 移动开发进阶:触发式邮件深入分析 King.com传奇再续!Farm Heroes Saga强势登陆iOS、Android 2013综述稿:Clojure这一年及大事件 亚马逊AWS vs.谷歌GCE,彪的是价格? 2014,混合云被广泛采用的一年 传微软拉拢厂商推双启动系统手机 用户可选Windows Phone或Android 为什么游戏领域总是“抄抄抄”! 建议增加我的收藏夹功能 求教包容器问题 一个三层数据库的问题: VB爱好者们,帮小弟个忙!!!谢谢 怎么样动态建立一个新的ADOTable?? 十万火急,关于Unix平台下C编程(FTP传输方面) 我的英文还凑合,那么我应该选择4 中文版,还是 5英文版?(众所周知,5中文版翻译太差) 求开发 ActiveX Libary 的详细步骤! Com Object 与 Automation Object 区别,如何用? 用VB如何处理多个用户同时操作一个DBF文件的错误? 一个进程为VC2.0, 另一个为VC6编的MFC程序。如何控制从第2个控制第一个进程? 请assdeng(山野村夫)看看 pb,delphi,vb三种快速成型的语言都分别适合开发那些软件?欢迎大家来讨论 请问各位同仁如何设置sybase anywhere服务器参数? 串口通讯能否用pb做成动态连接库的形式?(急) 怎样使Response.redirect打开一个新窗口 为什么环境变量替换不正确? 怎么打开foxpro中,通过剪切板考过去的图片,dbimage和image控件都不能打开,显示“bitmap is not valid” vaj中如何使用自己的JAR? 怎样改变当前窗口的大小,是当前窗口最大化? 高手争峰 如何把一个log文件读到数据结构中去 请教一个很菜的问题:) 这个程序有什么问题? 怎样做???? 简单问题,可就是搞不定!! 请问jsp中servelet在win2000中的设置方法,需要下载什么类库文件么? 一个新问题,那就是点击工具栏的退出按钮以后只退出当前打开的窗口,而不是整个应用! 如何在 index.htm 中引用 count.asp ? 远程数据库访问的问题--亟待高手们解答 王国荣的电子信箱是哪里? 我的程序生活 先给50分,稍后在加:我正在做一个系统,需要做到每次开机时提醒用户有哪些事情要做! [Tips]获取Memo&Richedit中光标坐标的最简单方法! 急急,如何才能把图片的底色与窗口的底色自然地融为一体? 如何改变按钮的颜色? 在mtml help workshop 中如何制作带上下文关联ID的帮助 调试程序时,控制台程序与直接建立的C++程序有区别吗? 给菜鸟推荐本书 VB调用外部DLL问题 【洗心革面,重新做人,割发断指,庄严声明】 从今以后 kook 不近女色,不灌疯水,以 panda_w 为榜样,苦练VC,研习汇编,做一个 CSDN 的正面典型! 谁有ULTRAEDIT 的注册码 能否推荐几本关于VB提高和关于VB数据库的书 紧急问题,关于SSL通过MS PROXY String类的问题 连接数据库的东东真是奇怪! 如何打开pdm格式文件 ===========灌水传说=========== 奇怪的问题,怎么办? 呵呵,初学者,请多多指教 剖 尸 小问题:自定义组件的显示 上海教育出版社七年级上寒假生活p27、p30、p45!p27:香烟烟雾对小金鱼的影响p30:乐器与演奏p45:拓展研究 gugu 河套平原发展种植业的有利和不利自然条件 七年级寒假生活答案(上海教育出版社) 答案 快,明天下午要用!是人教版的一单元二节! 种植业什么前景最好 上海2014七年级寒假生活像科学家那样思考 老师要求写很多,搜到的只有一些完整的,其它的不详细,速救! 我国的种植业主要分布在东部地区.西部地区.南部地区.北部地区 上海教育出版社 红色封面的!第一单元语文是阅读感悟是荷包蛋第二第三单元的答案 宇宙外面的外面的外面的 边界是啥子?比较好奇. 花卉种植业属不属于密集型农业? 山东版寒假生活p30数学题请帮我一道题.相当于走迷宫.顺序:每一个字都走一遍,一个只能走一次,假 寒 乐 快 乐 快 ←入口快 乐 寒 假 寒 假 →出口乐 快 假 寒 假 寒寒 假 快 乐 快 乐假 寒 乐 宇宙边界在哪 热带高原气候型花卉在环境要求上有什么特点 初二寒假生活P30研究题在正三角形ABC所在平面内是否存在这样的点P,使以点P和点A,B,C中任意两点为顶点的三角形都是等腰三角形?如果存在的话,这样的点P有几个? 宇宙有边界? 养观叶类花木一般晒几个小时太阳我的花卉大多是观叶类的,有花园,室内有南北窗户,花园在南面,花园没有低矮的灌木或树,请问观叶类植物在室内放那个窗台合适,南窗日照长,北窗过于阴蔽 形容寒假生活的成语 宇宙有多大?有没有科学家研究过?宇宙的尽头是什么?宇宙的外面是什么? 请问,花卉的叶片类型有哪些?我们作业中需要这个...具体的是月季的叶片类型 小学六年的生活可以用-----(填成语)来形容,也让我认识了许多好朋友,我们每天在一起----(填成语)在这即将毕业的时刻,我想对他们说-----(填古诗).说到古诗,我在学校阅览室读了许多,每次 科学家发现宇宙正处在( )之中.火速 需要 怎么画花朵和叶片………总之就是一直学不会……把握不了啊这样………画出来太假都看不出来…… 调查问卷的结构、组成和种类是怎样的? 空间素材是一朵静态的花朵图形就是那种动态的花朵的图片 有一种观叶植物,夏天的叶子是绿色的,冬天新长出叶子是粉色的向花朵,请问高手这种植物的名字是什么植物叶子的形状有点像吊株梅,也是没有叶柄,即不是南天竹也不是粉掌,是小型的没有主 我要具体的,好一点的,有时间地点的…… 好看的花 特别的花要介绍 用塑料大棚种植蔬菜.1.在外界气温较低时,菜农场在大棚上遮盖草帘,温室前口加防寒裙,有时还将煤炉搬到大棚内.这些措施有什么作用?2.大棚内黄瓜开花时,有经验的菜农会将蜂蜜放养在自己 生物学调查表,要有特色一点哦! 《荷兰的花》文中形容荷兰花美丽的四字词语 塑料大棚中蔬菜、花卉的种植农业属于(多项) 生物问卷调查1你平时是否吃早餐?A是 B只吃一点 C否2你的早点包括A面包 B牛奶 C米饭 D鸡蛋3你是否每天都喝牛奶?A是 B偶尔 C从不4你是否每天都吃鸡蛋?A是 B偶尔 C从不5你是否经常吃零食?A是 B还 关于花多花美花香的四字词语 用塑料大棚种植蔬菜时,为什么应选无色透明的塑料大棚? 如何制作生物调查表我记得第一步是发现问题,然后是什么? 用四字词语描写春天开的花.比如娇艳美丽的玫瑰. 利用塑料大棚温室栽培种值反季节蔬菜是大力发展现代农业,使农民科技致富的重要途径之一,塑料大棚的主要作用是A保持水分B提供氧气C提高温度D防治害虫急 到目前为止,科学家已发现并分类记载的生物种类超过了()种 描写美丽的花的四字词语有哪些? 想投资一个塑料大棚种植蔬菜大概投资多少? 分类单位的大小与生物种类和生物所具有的共同特征有什么关系? 既然说宇宙无限大,那么科学家怎么知道它在膨胀呢?只是通过实验来证明的吗? 搭建一个占地1亩种铁皮石斛的大棚需要多少钱 地点新会不明+我Q632291981 宇宙是不是无限大的我认为宇宙不是无限大的,宇宙是一个看不到的边的(因为科学家说宇宙大部分是由黑色物质组成)球体,它也同样运转着,而宇宙外又是另一个异度空间!宇宙是在慢慢的看 一亩蔬菜大棚一年种植成本是多少?我要是在安徽亳州地区包地最低大概在50亩(500元/年 一亩 )以上需要多少成本·?我 要全年种植蔬菜.·还有这50亩该怎么管理· 再加上 一些村民去 施肥打 (包括生物名称 数量 生活环境 归类) 宇宙无限大吗?如果无限大,那么他是怎么形成的.在它形成之前又什么.如果有生必有灭那么宇宙也会灭的喽?...如果宇宙不是无限大,那么他附近还有更大的大宇宙了吗?---回答1个也好...高几的 玉树所在地区制约当地种植业发展的自然因素是 怎样做一个初一的生物调查表 宇宙是无限大的吗我个人觉得宇宙应该是无限大的,我就想看看你们的看法,和理论,因为怎么可能有限呢,你说宇宙像个球一样?那球以外的呢?或许我觉得宇宙应该称为空间吧`我是这么认为的, 最大的花()最有力气的果实()永不落叶的植物()最甜的植物()最毒的树()寿命最长的花()要快寿命最短的花()最早的植物学著作() 初一生物调查表是格式哦!不是答案!速回!再详细的~~~~ 为什么宇宙无限大? 花朵和果实是植物的什么? 某公园成人票价20元,儿童票价8元,甲旅游团x名成人和y名儿童;乙旅游团的成人是甲旅游团的2倍,儿童是甲旅游团的1/2.(1)求两个旅游团的门票总费用是多少.(2)当x=10人,y=5人时,求两个旅游 调查人:班级:调查时间:天气:调查地点:数量:生活环境:要求调查8到18种还有调查地点只能写什么土地、花丛,因为是要实地调查 云南和贵州交界地区发展种植业有哪些不利的自然条件?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn