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

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 键 来 执 行 该 程 序。
RakNet:被OculusVR收购的跨平台游戏网络引擎 Qualcomm业务拓展副总裁沈劲:智能终端的延伸 苹果发布Xcode 6 Beta 3,Swift迎来重大更新! Linkedln技术高管Jay Kreps:Lambda架构剖析 《近匠》极光推送:聚焦巨头无法快速转身的领域 Babylon.js:拥有微软背景的开源3D游戏引擎 EMC 2014存储布局及十大新技术要点 腾讯推出零流量地图 离线实现公交步行导航 Atmel 1.4亿美元收购Newport Media 巩固物联网产品线 微信大会首批议程出炉 深度解析招行服务号是如何炼成的? 指尖上的阅读:MIT开发盲人专用设备FingerReader 从桌面到移动:异构计算翻天覆地的技术变革 《近匠》Blueware何晓阳,不做中国的New Relic 全球最杰出的14位程序员 Microsoft、RedHat、IBM、Docker等公司加入Kubernetes社区 Intel携手三星、博通等 建立物联网联盟OIC 一周消息树:微软半年内将终止对Win 7、Office 2010 SP1等产品的支持 深度神经网络DNN的多GPU数据并行框架 及其在语音识别的应用 浪潮通软GSP将打造开放平台 吸引更多ISV加入生态系统 国外安全产品再遭信任危机 安全产品国产化步伐加快 最终幻想XIV的重生--SQUARE ENIX《最终幻想14》制作人吉田直树介绍 如何打造百万级自然增长的微信HTML5应用 听邵海杨聊聊1000+台服务器背后的故事 借助Facebook、Twitter等社交平台API打造超炫酷的那些应用 Unity中Shader的开发运用实战详解,开放报名! 我从独立游戏开发学到的6件事儿 果断Mark!Searchcode——源代码搜索利器 《近匠》图灵机器人:App和移动硬件的智慧大脑 极路由发布HiWiFi OS及应用开放平台 Loom SDK框架:命令行快速开发跨平台2D游戏 安全管家Q2移动安全数据报告:窃取隐私最多 如何使的 Form2 在 Form1 的 Top ? 怎样在pagecontrol的一个tabsheet中的页面加一个上下的滚动条 急!将textbox控件放入table中后无法通过controls获得textbox的id? 大家说说看!! 初来乍到,向各位学习,请大家指点一下,介绍些好的C#的WEB源码示例。 请大家帮我看看! weblogic发布servlet的问题 Fatal Error 的问题 哪里有和手机一样的笔划输入法下载. 哥哥们,问题还没有搞定,帮帮忙吧,很急呀,分不够可以加分 XDevClub.Com[X时代开发俱乐部]欢迎大家一起来讨论,来者有分 求救!!我的vc缺少一个 psapi.h 头文件!!!急用,帮忙粘贴一下,当场给分!!! 怎样更改CListCtrl中内嵌的CHeadCtrl控件的风格? 有关TChart的问题? 我怎样才能获得插入语句的ID值? 求帮助数组的问题 给分100 紧急求救 在DELPHI里执行ORACLE存储过程出错??? 当按照书名查询时,系统提示没有该索引:no index with 'bookname' field.何故 CorelDram教程碟不能播放怪的问题!! 如何在vb調用SQL存儲過程,并能得到返回的參數值. 哪位大侠帮帮忙呀!! 用CString的Find(LPCTSTR pstr,int nStart),pstr有没有通配符,急!!!!! 一个XP与2000的共享问题 打印问题,请各位提点建议。 DBA的缺省密码---【在线等】 错误:"参数类型不正确,或不在可以接受的范围之内,或与其他参数冲突。" 产生原因 免费100m asp 空间 求救,如何打开一个USB设备,CreateFile吗?请具体些 在线求救 谁是最可恨的人? 如何将本页设为只能是 target="_top" 谁有格斗游戏的源码,设计资料! 三人合作共同开发一网站,现需页面设计,有意者留下EMAIL 怎样用C#把窗口菜单和按钮做成象VS.NET中的平面菜单和工具栏上的平面按钮? 为什么在MMC中新建SQLSERVER注册总是出现超时已过期的错误? 這樣定義宏是什么意思:#define LIBCMD(givenfunction) \? ===这样的SQL在ORACLE 怎么执行不了 一个WIN2000与WINXP的共享问题 如何将一个CBitmap存为BMP文件? 在directshow中,如何实现像大部分播放器那样的“快进”功能? 较难问题--IE6不能启用cookie? 如何修改group里的数据排序方式? 如何写动态SQL语句??? 怎样让select元素不能修改? 谁用过微软的tts??? 郁闷......呀,偶MM说接吻觉得恶心!!!! 请教高手,本人想请教通过数值如:12.5转换成UNICODE的问题,急!!!在线等待 我现在的密码不好记,如何更改密码? 请教大侠;RMI问题 ASP+SQL server免 费空间哪里有100分送给你. 关于过柱子梯度洗脱的问题跑板确定的洗脱剂是乙酸乙酯:石油醚=2:1,请问一下应设多少个梯度,中间梯度是多少,起始梯度是多少,还有每个梯度用多少洗脱剂?TLC上共有三个点,所要物质是 若制取氯化钾的反应进行得不充分,制取的氯化氢气体会是什么颜色?产生的化学方程式 大肚皮青蛙,()的小狗,再写四个类似的词语 液相色谱梯度洗脱中途可以停止吗.急 1111111 我们知道空气中含有N2、O2、CO2、H2S等气体.分析下列现象的原因.并写出离子方程式.1、酚酞为指示剂,用碱液滴定酸液到显现浅红色在半分钟内不褪色为终点.约半分钟后导致退色的原因?2、以 氢氧化铯是一种可溶性碱,其化学式为CsOH,下列叙述中不正确的是[]A.CsOH溶液能与CuO反应 B.CsOH溶液能使酚酞试液变红C.CsOH溶液能与硫酸发生中和反应D.CsOH在水中能电离出Cs+、OH- 液相色谱分析中梯度洗脱可以分离的物质,不用梯度洗脱有可能实现分离吗? 用矢量为43的烷基取代甲苯苯环上的一个氢原子,所得芳香烃产物的数目为 全合成切削液原液变浑浊怎么办啊?全合成切削液原液生产出来后24小时就有絮状悬浮物产生,导致溶液不透明,有时液体表面还有一层白色乳液,经过再次搅拌就恢复原状,但是过10小时后又出现 将2.34gNaCl固体溶于103.4g水中得到不饱和溶液,再向所得溶液中小心滴入200g AgNO3溶液.实验过程中,生成的AgCl的质量与滴入的AgNO3溶液的质量关系如图所示(提示:NaCl+AgNO3=AgCl↓+NaNO3 ). 加热氯化钾和 二氧化锰混合物一段时间后,剩余固体物质组成:氯化钾,二氧化锰.那么如何设计实验证明? 白光led串接的问题我想用220v交流电压串接白光led电压3.0V-3.8V电流0.025A1.串接70颗后总需求电压为224V,平均每个led为3.14V,是否还要加电阻?2.如果改串68颗想固定每个led为3.2V的话需要加多大的电阻 将2.34gNaCl固体溶于103.4g水中得到不饱和溶液,再向所得溶液中小心滴入200g AgNO3溶液.实验过程中,生成的AgCl的质量与滴入的AgNO3溶液的质量关系如图所示(提示:NaCl+AgNO3=AgCl↓+NaNO3 ).(1) 由离子构成的物质(除氯化钾)再多写由原子构成的物质 由分子构成的物质 人为什么有肚脐?小猫˛小狗有吗?鱼˛青蛙˛乌龟呢?动物的生活方式 将2.34G的NaCl固体将2.34gNaCl固体溶于103.4g水中得到不饱和溶液,再向所得溶液中小心滴入200g AgNO3溶液.将2.34gNaCl固体溶于103.4g水中得到不饱和溶液,再向所得溶液中小心滴入200g AgNO3溶液.实验过 硫酸烟雾的定义 匀染剂O(平平加O-25)在做色浆中起什么作用? 匀染剂O(平平加O-25)在做色浆中起什么在做色浆中,平平加o-25主要有什么作用? 将2.34gNaCl固体溶于103.4g水中得到不饱和溶液,再向所得溶液中 硫酸烟雾的危害 经染色后的衣服匀染剂没化匀,再经保险粉剥色,就留下一块块的象油样的斑块,用去油的去不掉,该怎么去除 我要问连通器液面为什么一直是平的你们别给我拿U形的那种连通器来说. 锌+硫酸 黑烟雾请问锌粉和一些杂志在里面,添加硫酸产生黑烟,好刺鼻,差点害死我,是什么东西在里面呢? 己二酸二辛酯和已二酸二辛酯是不是同一种材料? 氨气怎么稀释 硫酸厂排放的废气含有的主要污染物是什么 怎样利用青蛙作诱耳去钓鱼?能钓什么鱼? 氨气泄漏如何稀释降毒 离子交换膜能只通过一种离子吗 最近在河里钓鱼听见水里有一只青蛙惨叫 ,接着看到一只青蛙从水里向外挣扎里面好像有东西在拽着,出来后看见那只青蛙一只腿被咬掉了一半,到底是什么咬的?什么鱼? 用水稀释氨气的原理 请教培养基配制为了去除水中的Fe2+、Mn2+,需要从滤膜混合菌中筛选“除铁锰细菌”(不是分类学上的概念).在看文献了解培养基时遇到一些问题,1、看到有的培养基里加蛋白胨、酵母浸膏,有 阿庆倒茶嫂的后面一句是什么歇后语dagad 氯化钾是由什么构成求大神帮助 该装置中离子交换膜只允许 离子通过. 请问各位大侠,二辛酯(DOP)能用何种材质的橡胶、塑料透明软管输送我需要的是透明软管,软管! Fe3O4若看做"混合氧化物"时,可改写成FeO·Fe2O3,根据化合价规律和前述写法,则Pb3O4(四氧化三铅)可改写为2PbO·PbO2(Pb的化合价为+2价,+4价).请问这规律是什么?有回答再给分. H2、CO和CO2是常见的气体,有一种混合气体可能含有他们中的若干种.为了确定该气体 10 (1)混合气体中以H2、CO和CO2是常见的气体,有一种混合气体可能含有他们中的若干种.为了确定该气体10( 上古卷轴5水银块水银块到底哪里可以买?或者有什么条件才可以买? 破水是什么样子的 明天就是预产期了,宝宝依旧很淡定,胎动比平时有些增加.前天早上起来阴道流出一股水,然后就再也没有流,今天早上起来又是一股水流出来,到现在也没有再流第二次,请问 为什么在清水中的土豆没有在盐水中的软 假期研究性课题:从化学角度谈谈如何实现低碳生活 为什么连通器液面总是相平具体 水的眼泪是什么样子的?如题 金属氧化物的沉淀问题金属氧化物中(像氧化铝Al2O3、氧化铁Fe2O3),到底哪些是沉淀物,是有规律可以探索的,还是死记的.懂得的人告诉我金属氧化物的沉淀物好不. 原子吸收分光光义计和紫外可见分子吸收分光光度计在仪器装置上有哪些异同点?为什 手机掉水里之后怎么处理?如题 今天不小心手机就掉到水里了,诺基亚6020,会造成什么后果么? 电极反应式写电极反应式时,水可以看成电离出氢离子和氢氧根离子吗?即使是中性 也可以看成电离出了氢离子和氢氧根离子啊 请问ioriiii 你说的两种答案 是哪两种?能否写出第二种? 连通器中各页面保持相平的条件是呃、、准确的~记得几个回答貌似不大准…… 如何到水下去如题 谢谢了 请写出下列化学电源的电极反应式和总反应式①甲烷电池(电解质溶液:硫酸)②甲烷电池[允许O2-(氧负离子)通过的固体电解质] 原子吸收与紫外,红外,可见的异同点与优缺点 某化学小组为测定一定质量的某铜铝混合物中铜的质量分数,设计了如下方案方案一铜铝混合物 +足量溶液A 充分反应后测定生成气体体积方案二铜铝混合物 +足量溶液B 充分反应后测定余下固 氧化物 蓝色沉淀A与某种物质反应生成一种蓝色沉淀,A为氧化物,问A和蓝色沉淀是什么 一幅漫画图中有一只鸟在水上看一根管子是直的,而鱼儿看到的却是弯的.看图作文不同的人在不同立场,知识背景,环境下,看问题的方式也不同,没有绝对的对与错,我们需要做的只是换个角度 水的原理是怎样的?如题 为什么脏的东西放到水里会溶解掉? 求常见氧化物的白色沉淀越具体越好 液相色谱梯度洗脱我用岛津的LC-10A液相色谱仪做三七药材的梯度洗脱(10版药典),停止时间设的65分钟 ,可是30分钟的时候时间程序就停了(run的指示灯灭了). 为了测定一定质量的铜铝混合物中铜的质量分数,某化学课外活动小组设计了如下两个方案:第一问,究竟是哪个方案好,请专家作答 师徒两人一起加工一批零件,已知师父每小时加工的零件数是徒弟的3倍多1个,师徒两个8小时工加工零件104个问师父每小时加工零件多少个? 中国与中东欧青年政治家论坛在京开幕沪指重挫1.25% 大消费普跌银行独专家称地下水九成遭污染 修复一亩地最中联重科A股收跌2.94% H股股价俄富豪赠女友奢华电子香烟 镶246颗俄媒称中国和印度商定定期举行联合军演意大利父子专制冒牌名酒遭警方查获 将星巴克回应售价质疑 称在中国利润不比“秀中文”成为俄罗斯政要新时尚美国男子跑马拉松织出近4米长围巾 破文莱将实施严厉伊斯兰刑法 通奸者将被日本首相安倍表示将对离岛等土地买卖实高考降英语比重引热议 能否撬动高考改日式料理或将成非物质文化遗产 已通过美情报局局长:有关美国窃听法国电话报德媒称俄前首富霍多尔科夫斯基难获释 日本156名学者成立研究会 呼吁改善QQ群里热聊\"如何结束生命\" 2应急反应从2小时缩短为5分钟 水管理“好声音”导师汪峰开唱 不理与章子怡韩国称重启金刚山旅游需首先保障游客安“菲特”逼近 国家海洋预报台发布海浪肯尼亚蒙巴萨知名教士遇害引警民冲突 商场停车费一天俩标准 公积金中心关门中国水运通信导航史:天津海岸电台史提吴尊女儿照曝光想为太太补办婚宴5日起跟团出游价格“跳水” 部分降幅王金平党籍假处分案马英九决定不提再抗菲律宾宣布暂时禁止进口台湾禽类肉品巴神推特获评世界体育推特百强 成唯一重启“海上丝绸之路”撞红线 莫高窟仍“带病开放”便衣蹲点 专盯眼神飘忽贼电梯罢工 8人被困急保前三 “努”力抢分小爸爸连闯三关 小丁进16强“功夫熊猫”披上婚纱习近平会见马来西亚前总理马哈蒂尔林则徐亲笔信 湖北曝光听见警笛 男子弃妻逃离脸难看
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘