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

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 键 来 执 行 该 程 序。
用户界面设计攻略:设计师需注意的九大要点 Google Glass的竞争对手来了:看YC演示日的五款新孵化项目! GPU Saturday技术沙龙:OpenCL程序员眼中的下一代APU架构 黑帽大会演讲中国第一人:从攻到防,从白帽黑客到创业者 15个步骤创立技术公司,并收获千万用户(完结) CTO容易犯的三大错误 谷歌艺术计划:互联网能否取代真实的博物馆? Hadoop技术沙龙:Hortonworks技术研发总监展望Hadoop 2.0 Marissa Mayer:雅虎月活跃用户增长了20%达8亿 移动用户3.5亿 气死偷车贼:脑电波防盗技术,让偷车贼无计可施 TIOBE 2013年9月编程语言排行榜:Transact-SQL首次进入前十 前Oracle总裁Charles Phillips:商业软件领域的“乔布斯” 留住你的用户:8款第三方移动推送服务 人气最旺:主流移动应用创建工具大合集(一) 不要强迫用户注册,请让他们先试用产品 Eve:基于Python的REST API框架 想扩展你的数据库吗?那么先了解一下I/O 白帽黑客将现场爆料Android系统及框架漏洞 9月13日:程序员节,一起来过节吧! 欲与Siri、Google Now比高低:微软开始打造个人助理Cortana 【开源专访】禅道创始人王春生:覆盖项目全周期,回归管理的本质 携程无线创业者大赛成功落幕 梁建章为头名“快展”颁20万奖金 Bug报告:小角色,大用处! iOS开发者必备: 五大编程类工具 多核优化软件MCx释放EMC VNX闪存潜能 手把手教学:详解HTML5移动开发框架PhoneJS 快速学习新技术的几条建议 研发周报:Angular.js or Ember.js 谁将成为Web开发的新宠? 10款免费且开源的项目管理工具 Greg Pass:拯救Twitter的无名英雄 Cassandra杀回数据库排行Top 10,及需求Java 7的2.0版本 求在w2k3+sql2000(sp2)里用asp调用有输入值的存储过程的例子! 如何确定注册表中一个键值是否存在?! 初来乍到,拜见各位前辈………………散分啦! 为什么当我调用了Socket.Close 后,客户端还是能够发信息给服务端? 如何操作不同机器上的文件? 初来乍到,拜见各位前辈………………散分啦! 一个选择题 DataGrid的超级链接列如何传递二个以上的参数? 哪有ADODB的使用说明? 两个表之间的操作 鼠标哪里去了??/ 倒分 一个更新远程数据库的问题 · 一个更新远程数据库的问题 有没有JBuilder高手请过来看看 是不是有木马?几种杀木马程序多说没? 绝对真实,是中国人的都来看看 一个更新远程数据库的问题 csdn的精华区在哪里?怎么进去看? 一段C语言的程序,最后却跟了这么一段,有没有哪位高手知道这是干什么用的? 求助!!!!! 怎样提高编程水平阿?刚来请指教 下载的potoshop插件怎么安装? Move2008 J2ME SDK 发布,请下载 仅仅有OA的源代码,能做成一个可应用的商业软件吗?欢迎大家讨论 如何将OLE中的EXCEL设为指定的大小,高手救命 linux下如何安装jre? 关于打开文件的问题 我的程序怎么一放到其它机器 上就执行不了了 OLE保存时能不能单击实现??? 小问题,进者有分 一个关于sendmessage的问题。 救命啊,FTP的客户端程序 linux下如何安装jre? 怎么使验证失效? 如何实现字符串扫描? 我从来没用过C#,也不会,不过这个关于其运行的问题我确想先知道! 一个老问题! 今天我给一个男人骚扰了一回 有个问题,朋友们请进.sos 一个非常简单的问题 TListItem的Data属性(void)如何使用呀,如何读出它的值呢? bmp to ico 今天看到一个怪现象~! 软件过来人为小弟指点~~ bmp to ico 如何打开控制面板 高分求教,我爱上了兄弟的女朋友,我该怎么办?(100分) 求助:在首次适应算法和最佳适应算法中,分区分配和分区回收的c语言实现。 同在一个城市,呼吸着同样的空气,都为这老板的几块大洋打拼,蓦然回首才知道已经几年了,也该为自已的未来思考一下了。。。 第四题,如正确, 将一个高为1分米的圆柱的底面平均分成两份,这时表面积增加了28平方分米,这个圆柱的表面积是多少平方分米 初三历史:莎士比亚和陈独秀思想解放先驱对社会进步起到的共同作用是什么? 狼为什么会朝着月亮吼叫.!~~ 赞美绥中百货大楼的作文 两个小时 若sin(cosa) 什么事物能来比喻印象中的雪 秋风扫落叶的声音怎么写 保温杯质量检测标准是什么 雪比喻成什么东西或事物古诗句 Bastard,not care . 你是兴隆小学六年四班的么, 如题 好的追加 能做几道是几道 在低倍镜下观察时视野内所见的图像是“上”和“6”,那么载玻片上的图形是 英语翻译今世列强并立,皆挟其全国国民之德智力以相角,兴亡之数,不待战争而决.虽有为国献身之烈士,以莫之能救 两道初二几何~~~速度的~~~http://hiphotos.baidu.com/517417030/pic/item/cc4e1134c329585d91ef390a.jpghttp://hiphotos.baidu.com/517417030/pic/item/dae257fc96f02d09d7887d09.jpg速度速度~~~ 在低倍镜下观察时,视野内所见的图像是“上”和“6”,那么载玻片上的图形是什么?为什么是这个图形呢? 陈独秀讲过什么名言具体一点 汽车速度的三分之二等于火车速度的三分之七,那么火车速度是汽车速度的()一分钟内的才有分,是火车的七分之三不好意思。现在不需要了,是九分之十四, 天安门是由谁修建的 关于陈独秀的作文陈独秀创建了中国共产党,给中国带来了希望 汽车和火车的速度比是4:7,两车同时从两第相向而行,在离中点15千米处相遇,这时火车形了多少千米? quartus中 程序写好编译无误之后 如何生成电路图 y=根号下(x乘sinx乘根号下1-e^x) 求dy 火车的速度比汽车快50%,火车的速度相当于汽车速度的( )%. 市场营销学不学英语 y=(x/1+x)∧sinx 求dy arctanx=㏑根号下x方+y方 求dy 4个季节的代表诗句 比如:秋风扫落叶 怎样估算一个电路的速度,用QUARTUS搭出来的电路 三角形ABC中,向量AB的摸=3,向量AC的模=4,向量ABx向量BC=-9,则向量BC的模=? 中检质技(北京)金银珠宝质量检验中心证书编号:31202013118请问这个翡翠是什么玉.是什么翡翠玉.质量是12.35 如何在quartus里查看设计的电路一共使用了多少门电路或宏单元? f(x+y)=f(x)+f(y),当x小于0,总有f(x)大于0成立,f(-2)=3,求f(0)f(x)在R上是奇函数?是单调减函数?f(2x)+f(1-x)大于-9 “秋风扫落叶”有利用植物的------(填空)本题应是:“秋风扫落叶”可以减少植物的------!1 “神游其中”,“怡然自得”的解释是什么? 我是搞物流运输的,现在想购置几辆运油车和化工液体运输车,请问哪里制造的车子质量比较好? 中检质技金银珠宝质量检验中心 证书编号:21201017145总质量 30.47g不好意思,希望大师能帮一帮忙.想问问这玉如何.市价该多少呢? 角α的终边上有一点(-a,2a)(a<0),则sinα等于多少 英语翻译 消元法解题小王上午卖出3箱苹果和5箱梨,收入225元,下午卖出6箱苹果和4箱梨,收入306元.每箱苹果多少元?每箱梨多少元? 中检质技金银珠宝质量检验中心,证书编号:21211052769,谁能帮我看下? 《宋史》矮张到底是张顺还是张贵?张顺,民兵部将也.襄阳受围五年,宋闯知其西北一水曰清泥河,源于均、房,即其地造轻舟百艘,以三舟联为一舫,中一舟装载,左右舟则虚其底而掩覆之.出重赏募 用消元法解题甲乙丙三人一同去卖菜,甲买了4分之3千克茄子.4分之3千克黄瓜.1又2分之1的西红柿;乙买了3千克的茄子.2又4分之1千克黄瓜.1又2分之1千克西红柿;丙买了3又4分之3千克茄子.3千克黄 齐桓公和晋文公称霸的方式有什么不同? Funky Bureau - Clap Your Hands Together找这个歌仔细看看 那个问题就是我问的.怎么的都下不了啊 like hell you are 康有为与陈独秀的政治主张有什么区别?比较急 英语翻译其中有一句“中一舟装载”到底是装的士兵,还是装的粮草补给? 若x>0,y>0,x十2y=1,x分之2十y分之一大于等于a恒成立 康有为和陈独秀在政治主张上的共同之处是什么? Taking your hand, living to old age together. 是什么意思? 镜钉安装5mm玻璃,1m * 1.5m玻璃5毫米厚的,1 米高*1.5 米宽的用4个镜钉固定在墙上,经受得住吗?(离地)玻璃会不会太沉,破损后掉下来(玻璃挺重)如果承受得住,钉子要多长,粗细有要求吗钉子买 陈独秀的观点是什么?他所倡导的思想解放运动使中西文化在中国的境遇有什么不同? 求第2.3.4题过程加原理 语法里什么是不定代词,复合词,固定词,副词./我的英语不好读初1了,但第一学期没好好听,该学的没学会,我只好求救个\各位了...我除了这些,还需要掌握什么呢?.我的学习才能上去....只要英语 中检质技(北京)金银珠宝质量检验中心!求专家鉴定.检验结论:翡翠(A货)手镯总质量:75.47g 形状:镯形 颜色:淡绿色 折射率:1.66(点测)密度:3.33g/cm3放大检查:纤维交织结构 托注 3.4题 ,求, Shady baby.you rab bastard 如图△ABC中点O是AC边上的一动点,过点O作直线MN//BC,设MN交∠BCA的平分线于点E,交∠BCA的外角平分线于点E(1)求证:EO=FO(2) 当点O运动到何处时,四边形AECF是矩形,并证明你的结论.图 郎朗获任联合国和平使者吴建民:21世纪,世界需要“读懂中国欧洲多国遭强飓风袭击 已共致13人遇评论:平等对话才能改善美伊两国关系伊朗和国际机构就伊核问题对话 外界期美国监听借口难服众 欧洲回应着手协调美国制造业和楼市数据显示经济成长动力美参议院情报委员会主席:白宫将停止监韩国向美国求证是否监听朴槿惠 美方尚伊朗和国际原子能机构继续就伊核问题对郎朗被任命为联合国和平使者 成第二位西班牙对美国监听表不满 闭门召见美大墨西哥自2001年以来首现霍乱疫情 美国在罗马尼亚部署反导系统 巩固在黑卜拉希米访叙将劝反对派统一组团参加日暴风袭击西欧大部致德国七人死亡 英法以色列将释放第二批26名在押巴勒斯坦印媒:印度调整中国战略因不喜欢给中国英首相:媒体爆料美监听丑闻是“资敌”韩国向美国求证是否监听朴槿惠 美方尚12岁黑客入侵加拿大政府网站 辩称仅李克强:中俄合作不受国际形势变化和外牛津书香柯文哲邀连胜文政策辩论 场次题目待协屋藏古币 全村来挖靠潮汐发电的“海胆屋”热辣拉拉队女郎女仆装亮相 为公益\"中国地震局发布云南景谷6.6级地震烈大马设机构助中小企发展 华裔企业获5两华人竞选巴西国会众议员 威廉巫得逾白宫改变网络安全立法推动策略:拆分大图:台风搅局 熊猫“圆仔”户外踏青游世界侍酒大师方克的中国酒庄之旅(图)留美学生纪欣然命案受南加各界关注 盼重塑能源:新能源世纪的商业解决方案家电板块分化 公司战略成关键人多力量大,退团也不怕?美警官自费买儿童座椅帮助经济困难违规下周将有63家公司公布季报今日靓汤储安平的思想转折足坛热闻
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘