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

VB如何在VB中判断Windows9x的运行模式

HTML文档下载 WORD文档下载 PDF文档下载
VB如何在VB中判断Windows9x的运行模式
作者:植国贤
在Windows下编程,经常发现有不少功能Windows系统已经做了,如果能够直接调用,就可省去不少程序的编写,并能提高程序的运行效率。在很多情况下,我们都可以用“Ctrl + X”、“Ctrl + C”、 “Ctrl + V”和“Ctrl + Z”分别进行“剪切”、“复制”、“粘贴”和“撤消”操作,由此想到,如果我们能够在程序中调用系统的这些功能,就无需为如何实现这些操作而操心了。经过不断的探索,终于发现SendMessage和PostMessage能够担此重任,真是如获至宝,于是迫不及待地把它们介绍给各位朋友。
  用VB5的“API浏览器”可以很容易地找到这两个API 函数:
Declare Function SendMessage Lib “user32” Alias “SendMessageA” _(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _lParam As Any) As Long
Declare Function PostMessage Lib “user32” Alias “PostMessageA” _(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _ByVal lParam As Long) As Long
  这两个函数的功能几乎是一样的,只是SendMessage是直接调用Windows函数来发送消息,只有这个消息完全被处理后此函数才返回,而PostMessage则给窗体的消息队列增加一个消息,这个消息将在未来某个时候进行正常事件处理时得到处理。以下仅以SendMessage为例。
  函数中虽然有四个参数,但关键的是前两个:hwnd 和wMsg。Hwnd是句柄,Microsoft Windows应用程序中的每个窗体和控件都拥有一个句柄,通过句柄可以指明函数的操作对象;wMsg是一个十六进制数,代表了函数要发送的具体消息。
  下面以具体例子说明如何用SendMessage实现“剪切”、“复制”、“粘贴”、“撤消” 和“删除”功能:
  在窗体中放置一个文本框Text1和五个按钮,分别执行以上五种功能,编写以下程序。
Option Explicit
Private Declare Function SendMessage Lib “user32” Alias “SendMessageA” _(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
  Const WM_CUT = &H300
  Const WM_COPY = &H301
  Const WM_PAST = &H302
  Const WM_CLEAR = &H303
  Const WM_UNDO = &H304
  Dim fb As Long
  
  Private Sub cmdClear_Click()
   fb = PostMessage(Text1.hwnd, WM_CLEAR, 0, 0)
  End Sub
  Private Sub cmdCopy_Click()
   fb = SendMessage(Text1.hwnd, WM_COPY, 0, 0)
  End Sub
  Private Sub cmdCut_Click()
   fb = SendMessage(Text1.hwnd, WM_CUT, 0, 0)
  End Sub
  Private Sub cmdPast_Click()
   fb=SendMessage(Text1.hwnd, WM_PAST, 0, 0)
  End Sub
  Private Sub cmdUndo_Click()
   fb=SendMessage(Text1.hwnd, WM_UNDO, 0, 0)
  End Sub
  除了TextBox外SendMessage 还可以对RitchTextBox和ComboBox等进行操作,只要相应改变hwnd参数即可。

CMDN 29期:软件测试与管理之路 微软IE10与HIT FM 携手打造全新HTML5官网 专访GenMyModel CTO:一款全新在线建模工具背后的故事 【直击美国云计算】Jason Hoffman:数据和计算的融合将破坏全球利润 【直击美国云计算】如何做Hadoop、流处理框架等技术的采用选择 【直击美国云计算】细数云技术领域成王败寇:从SaaS到SDN 【直击美国云计算】谷歌Jeff Dean:成功的关键是专注 致远V5发布:强调大协同,企业移动化真来了 Mailbox:六星期实现从零到百万用户及日处理亿条消息 代码审查,也要天时地利人和 Clash of Clans产品总监:游戏中的商品定价一开始就要高 移动互联网最核心的竞争是:设计的竞争 【直击美国云计算】面对AWS,VMware不会畏缩 美国白宫任命Twitter法务总监Nicole Wong为副CTO Keek宣布推出首款视频Update API 专访阿里前端工程师:淘宝移动Web开发那些事儿 【直击美国云计算】为什么eBay用燃料电池来驱动他的犹他州数据中心 【直击美国云计算】6周发布新产品,LinkedIn的trunk-based开发 移动周报:疯狂吐槽还是更得欢心?细数iOS 7的是与非 国内最受欢迎的开源项目集锦 开始3D编程前需注意的十件事 [CTO俱乐部第100期]软件平台的新思维及2345技术团队管理经验分享 失败怪圈:今天的移动App在重蹈1999年的覆辙 极客编程必备的五大PHP开发应用 Oracle或将宣布与Salesforce.com,NetSuite以及微软结盟 【专访间】神州数码谢耘:智慧城市需要以“融合平台”为特征的沃尔玛模式 对话OW2 CEO:开源≠安全隐患,免费≠无利可图 不断抄袭的Facebook正逐步沦为一家普通的公司 Windows 8.1会不会把Windows 8的“Modern”开发者踢到路边 任志鹏:FusionCloud是华为二十年技术积累的精华 机器学习典范?iOS7中的Siri能主动学习如何发音 100M asp+ 20M email空间求:一加密解决办法!! 解决即可送 SQLServer中解决半个汉字问题 這兩個問題怎麼答??? 请问如何在asp.net中使用msagent的技术呢? 100M asp +20M email空间求:一加密解决办法!! 解决即可送。 发布RdSmartPanel控件!!!!!!!! 连接数据库出错~ 当按ctrl+alt+del三个键如何通过更改注册表使在进入任务管理器之前要输入密码。 有可以实现这种功能的可能吗? 如何在网上建立一个论坛? 如何截取字串中的一部分?如:str="the price is 50¥",而我只想要其中的50,asp中是否有这种截取字串的函数??谢谢? 数据模块的疑问!在线等! 能否简化一下以下的代码 大家知道那里提供的asp虚拟主机被较好。要有ms sqlserver 支持,费用如何 有没有人能具体讲一讲关于大文本处理的过程! 一个小型局域网,通过防火墙上网,为什么有的机子可以上网,但网上邻居看不到呢? 显示器出现抖动~~~ 请教: 在Excel中如何查找数据? 女生向IT领域发展应往哪方面发展好? 各位老大过来看看,水晶报表问题 iframe 问题 有哈尔滨的程序员朋友吗?近来报个名就行 VS.NET 2003 正式简体中文版问题? PHP中有没有可以跨页面、跨session的变量? varbinary类型如何在datagrid中显示 几个简单的问题,在线等 配置SQL分布服务器时出错?急!在线等待! 有关CIH病毒 请教:如何使jpg图片放大后仍保持图像的清晰? 为我女友找工作, 地点:长沙。请大家帮忙,散尽所有分皆可:4860分。 谁知道installAnywhere的注册码?50分!!! [在线求助]:登陆的时候是用cookies来保存用户名和密码的,当用户没有正常退出,(比如说电脑断电了,直接关闭了ie等等)那应该怎么样清 关于按钮触发数据库操作 软件报价,用sql且windows界面的软件,大虾们估计多少money? 请问怎样在C#中调用VB.NET的类库? 在servlet里大量使用静态方法会不会有并发访问的问题 谁知道installAnywhere的注册码?100分!!! 谁有《visual C++网络高级编程》一书的配套光盘?邮电出版 开机时显示 NTLDR IS MISSING, 谁知道这是怎么回事? 急!应该用什么实现? CListCtrl如何让动态改变图标!GetItem()如何使用??,解决加分 怎样设置oracle的maximum number of processes 那个知道那里有DELPHI 7.0下啊,给分 delphi&spl GGJJ们谁有电子版《windows核心编程》的完整的第27章啊?偶的那一版这章只有半截 请教一个写入文本的问题,解决200分相送,在线等 如何做到高人一筹 有没有人能具体讲一讲关于大文本处理的过程! 函数返回值问题,给高分 DX抓图,如何保存为Bmp文件? 3个NF 嵌入文件夹窗格怎么使用 正六棱锥的底面边长为4厘米,高为2厘米,求它的侧面积 级数=∑(1/√n)sin2/√n n为1到无穷大 的敛散性急 急 急 如图,△ABC中,I为三内角平分线AD,BE,CF的交点,IC⊥BC与G,求证∠DIB=∠GIC加速,今天就要 已知a(-1,1) b(0,2) c(2,0),若向量ab与向量cd为相反向量,则d点坐标为…… 一个高数纠错题,这题我错在哪,请帮忙指出, 鲜花的修饰语有哪些 淡 组词 (20个 ) 举1个实例使解答问题的式子为4×(-6)不要太长 若圆C与圆(x+2)平方+(y-1)平方=1关于原点对称,则圆C的方程为什麽拜托了各位 要一句一句翻译陈太丘与友期 P(3,a-1)与点Q(b+2,-5)的两点连线平行于y轴,求a,b的值 粒子内禀角动量 定义是什么?引起这一现象的原因 描写夏天的一段话20字以内急! 春天的雨像什么 matlab怎么给一个矩阵的每一行赋相同的值(不要循环)比如a=1:100,怎样让一个100*100的矩阵b的每一行都是1:100我原来想的是b(1:100,:)=a,但不行会报错我不想用循环语句! 求教一道高数极限问题x趋向于1.lim(x) sin(pai x)/(x-1)=lim pai cos (pai x)=.-pai.中间是怎么转换的.是无穷小等小替换么 Z=X+Y 在三维体内是怎样一个平面? 为什么两物体碰撞时角动量守恒大学物理角动量守恒定律:质点所受外力对某固定点的力矩为零,则质点对该固定点的角动量守恒。当出现两质点碰撞时,为什么角动量守恒,此时两质点对 浓字组词怎么组词? 已知抛物线y=2x方+6x+c.(1)求出此抛物线的对称轴;(2)若抛物线与x轴的两个交点间的距离=2,求c的值 求级数 n tan(1/(2^(n+1))的敛散性 浓怎么组词 如果抛物线y=x-6x+c-2的顶点到X轴的距离是3,那么c的值为() 加过程 形容饭菜很香的“香”是哪个英语单词? 稍组词浓组词 作文 雨中:雨还在不停的下着,细细的雨点落在积水里,荡漾起一圈圈谁的波纹.雨中的马路,仿佛比平常显的安闲,雨中的空气,让人觉得格外清新.我撑着伞,走在雨帘中续写 角动量守恒原因 piay with 连词成句(求大神解答)1.was,while,walking,i,saw,to,i,a,in,cat,school,tree 2.said,he,living,he,in,was,london 3.i,speak,to,you,you,the,were,while,saw,teacher 太阳系形成与角动量根据星云假说的话,如果当初星云的初始角动量更大的话,太阳系内会不会形成更多的行星呢?如果角动量是0,难道就不可能形成行星了吗?如果星云角速度不变,质量增加,太 求教一道高数题目求函数f(x)=e^(-x)∑(k=0→n)x^k/k!的极值 小学英语连词成句 求大神帮忙1.my,is,in,watching,interested,father,TV(.)2.go.boating,we,this,afternoon,shall(?) 形容饭菜难吃的句子 已知点A(a,1),B(-3,b),若ab平行于x轴,则a≠( ),b=( );若ab平行于y轴,则a=( ),b≠( ) 已知X+Y=2.求(x方-y方)的平方-8乘(x方+y方)的值? 当n=1至n=无穷大时,1/(4n^2-1)的求和 求教一道关于高数的题目cos z=xyz,求:dz 设A,B是抛物线y²=4px(p>0)上除了原点以外的两个动点,且AO⊥BO,OM⊥AB,求点M的轨迹方程,并说明是什么曲线 点A的坐标为(2a-b,a+7),点B的坐标为(a+2b,3-b),且AB∥y轴,A,B到长为x的距离相等,则A,B的距离是 a(4,x)b(y,-3)ab平行x轴,则x=,y=,ab平行y轴,则x=,y= 解析几何难题求解求椭圆x²/4+y²=1上的两点与点(0,1)构成的三角形的最大面积【特别说明那两点不是(0,1)】 大海怎么形容谢谢 将一个底面半径为3cm,高为4cm圆锥形直筒沿一条母线剪开,所得的侧面展开图的面积为多少? 已知三角形ABC所对边的长分别是a,b,c,若向量m=(a+b,-c),n=(sinA+sinB,sinC)且m ¤ n=3asinB.1).求C的大小; 2).设m2-c2-2ab=4sinC求三角形ABC面积大小?(注:m2是m的平方) 1/n^2+1也是调和级数么? 【数学】一个圆柱零件底面直径3cm,高0.4cm,将零件表面上涂漆,涂漆的面积是多少? 说一下(2)的思路 用什么形容海期待. 求幂级数∑x^(4n-1)/(4n+1)的和函数,并求所给级数的和 CUR,怎么读?有这个单词吗? 形容海洋例:(知识)的海洋 __________的海洋 __________的海洋 __________的海洋 __________的海洋例:(花)的世界__________的世界 __________的世界__________的世界 __________的世界 求幂级数∑(n=1,∞) n^2x^(n-1)的和函数. 我们要在校运会入场式表演,求方案有点新意,我知道刚开始是方阵,然后表演什么,队形怎么变提醒:1表演24+1人(一个举班牌)2,时间不要长,1分30秒左右3,不要想加器材,再说了,我们也没有经费 已知正三棱柱(底面是正三角形,顶点在底面的射影为底面中心)的侧面积为18根号3cm²,高为3cm,则 它的体积为? 一个高数问题 求详细解答 谢谢了! 我们非常急!星期五可以完成吗?校运会入场式方案!前提是一定要有新意.但是经费不能太贵了!我们是八年级九班的,那些什么口号的不要,方阵的没有问题.鸽子什么的不要,还有就是有本班特色, 已知正三棱锥(底面是正多边形,顶点在底面的射影为底面中心)的侧面积为18√3cm²,高为3cm,则它的体积为 拜托啦~~高数问题的详细解答1dy -- + 3y =1········· 求Y dx 判断级数n从3到无穷大(1-1/lnn)的n次方的敛散性 长方体过同一顶点的三个面的面积分别为2cm2、3cm2、6cm2.(1)求它的体积.(2)画出它的直观图. 伊朗“巴斯基”武装力量在伊展开演习 日媒醋意评价朴槿惠外交策略 称其无视德媒:斯诺登与德绿党议员见面 有意前万圣节狂欢化装派对 萌“小鬼”们惹人国际刑事法院再次推迟肯尼亚总统出庭受澳维州出台新法规定性侵犯再犯案将不准秘鲁组成新内阁 塞萨尔 比利亚努埃瓦盟友也要区别对待 日本德国仍是美国监英国房价一年上涨5.8% 专家警告“温家宝2010年与大学生座谈:大学生日议员向天皇塞信望其了解民间疾苦 或温家宝出书谈教育忆童年 部分通信首次观察:中国高层释楼市调控信号 长效机日本大规模夺岛军演科目敏感 专家:在香港立法会将讨论是否暂停对菲律宾人入爱,从头开始“给妈妈梳头”走进北京回台州今起发布县级空气质量指数 上网可签证利好出境游升温 百度知心搜索成\原吉林省常务副省长田学仁受贿1919浙江金华召开动员部署会 整治“中国式高考语文分值将增加 教师:传统文化如玩什么都可以,别玩弄人心女神林徽因的朋友圈,真是满满的爱恨情别把你的“穷病”传染给你的孩子为爱而战,安居客西安分公司样板间寻宝近20年最大野生中华鲟抵京“疗养” 江苏淮安党校一讲师论文疑在不同期刊发此metal非彼metal,青葱me注意:题材活跃是生机勃勃还是垂死挣扎Mate S用极致体验 “圈点”出华别不拿娱乐播报不当作品 | 你问我答美是要有代价的,月瘦10斤,速7女主冬天了,原来洗羽绒服可以这么简单!比日本长崎海域一渡船起火沉没 乘客全员BB智商竟与出生时的体重有关!几斤宝从用户体验谈国产手机为何兵败高端市场失落的世界:留守儿童的教育困境奔驰新一代E级明年发布 车重大减10007啪啪过的女人中,她是躺着就能杀被誉为最妖娆性感妲己,17岁荧屏第一华语明星最新街拍:初冬时髦Look看二胎全面放开能退生育补贴?逗你玩呢!
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘