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

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参数即可。

Coursera工程师董飞:典型硅谷公司大数据实战分析 微软开源Visual Studio构建工具MSBuild 死而复生!下架6月,Launcher重回App Store 虚拟投影、高保真耳机!新型可穿戴家庭影院Dashbon Mask 【程序员电子刊精选】躺枪的互联网思维 Algolia的分布式搜索网络架构 对抗苹果?豪雅联合Google、Intel开发智能奢表 VR产品技术解析之三星Gear VR 雅虎北研即将关闭 人才抢夺战迅速拉响 移动应用中的AR开发,5款最受欢迎工具推荐! 中国黑客Pwn2Own再创佳绩 Keen Team三年五夺魁 星环CTO孙元浩:技术解析Transwarp Inceptor是怎样炼成的 第七届中国云计算大会将于6月3-5日在北京召开 两大设计模式 塑造高可读性的网页布局 IP争夺战:任天堂与DeNA联手意味着什么? UNITE 2015干货不断,三天日程抢先看! iOS 8发布近一年,苹果HomeKit都带来了什么? Facebook开源移动网络测试工具Augmented Traffic Control 用JavaScript开发移动原生应用,Facebook正式开源React Native! 《知性》,探寻移动化社区的敏感带 【程序员电子刊精选】技术人员如何参与产品设计讨论之激活那一潭死水 Google开源代码构建工具Bazel 长点心吧!为啥健身应用让你越减越肥? 微信公众号能删除单篇文章了 安卓Android手机应用开发入门书籍推荐 自动释放内存!Facebook推出强大Android图片库Fresco 《近匠》AR学校:从教育领域看增强现实机遇何在 专访Mellanox CEO Eyal Waldman:InfiniBand与以太网齐驱并进 性能更胜一筹 IM助你打造千万级App——容联•云通讯线下沙龙 乐视智能硬件再发力,超级自行车今发布 专访格灵深瞳CTO赵勇:为" 计算机视觉" 赋予智慧的光芒 大家快帮帮忙,急!!分不够可以再加 当选中datagrid的某行时,怎样让这一行获得焦点(改变颜色)? 多少钱可以把我们给买了! “WGE”团队诚邀英才 怎样将IPAddress类型转换成Int64整型? 只放frreport1到form上運行都會出現問題。 统计项目咨询? 能否在ASP中做个导出到EXCEL的 请问高手:document.all.item起什么作用啊??? 如何调试J2ME程序哟 ????????高分问题??????????? 请问在对话框的edit框输入完成后,输入回车键如何把回车处理成对应的按牛单击? 客户机程序怎么读取服务器上的SQL数据库呢? 求下拉列表联动的jsp源码 前辈请推荐几本关于Delphi数据库开发的好书 我要在wsda5.0下使用jdk1.4,怎么办? aspx页面滚动如何实现 第二届深圳Delphi爱好者聚会通知 我的InterBase7为何登录不了? 两个窗体问题,希望今晚能结贴。谢谢了!!! Microsoft.Web.UI.WebControls --- Treeview的应用(请大家帮帮忙) 请为一个界面问题 在9i中为什么提示这个表或视图不存在? 在线等…… 为何在邮箱定则中建了规则,还是收到满足该定则的垃圾邮件,急急! ASP如何调用进程外组件,在线等待,急!!! 帮个忙吧! html中 文本框失去焦点的事件 函数名是什么?? 谢谢 高分求助--关闭进程问题 关于在窗体上画线的问题。 大家讨论一下,做一个游戏修改器应该如何下手? 分不多,只是希望能解决问题!!!!还望各位帮助 一个简单的问题:无线网关是否要和无线网关配套? 问一个Swing做界面算是设计模式方面的问题,语言上应如何去实现 关于xslt的两个问题,各位高手帮忙。。。 怎样获得一个IP地址的整数值? 左连接(left join) 速度很慢,如何解决? “WGE”团队诚邀英才 访问这个页面试试看,能不能跟踪到文件的下载地址? 一个简单的问题 @Command([RefreshHideFormulas]) 有什么作用? 怎么找不到我的mapping 和formbean??? 菜鸟初学问题,两个表之间导入数据时候,一个表比另外一个表多一个字段的时候…… 我的软件在发布一周之后,终于有破解版了,悲喜交加中! 高分求教(大家看看下面的程序,尤其是编,解码部分,有什么问题) CSocket连接错误... 访问这个页面试试看,能不能跟踪到文件的下载地址? 在Javascript中嵌入Jsp问题 怎样在TcxGrid中实现类似TDBGrid的OnColExit的功能? 最近接私活累死了,哎,赚钱难呀,还是散分容易!! 求救高手,ie打印屏蔽ip 地址的问题 适得其反的意思,缘由 mic尧尧手臂下面的纹身怎么不见了! “勿以恶小而为之,勿以善小而不为”是什么意思?谢谢. 勿以善小而不为,勿以恶小而为之是什么意思?速度的回答我,也许会有奖励哟! 艾禾美小苏打是什么东西 勿以恶小而为之,勿以善小而不为. 形容品质:舍己救人 勿以善小而不为是什么意思? while(1){ DelayNS(1); key = 0;IRcvStr(ZLG7290, 0x01, disp_buf, 2);if(0==disp_buf[1]){ key = disp_buf[0];}谁能详细介绍每句话的意思,坐等!急! 原核生物蛋白质合成时,起始氨基酸是什么?起始氨酰tRNA是什么?真核生物的起始氨基酸是什么? 适得其反是什么意思 福建莆田仙游县与福州永泰县交界发生4民建提议京籍准入实行积分制 取代户籍女大学生进企业终极面试:因吃饭未喝白福建仙游县永泰县交界发4.3级地震 北京一村主任拉选票 广播号召村民挖断福建启III级地震应急响应 已派驻工英窃听丑闻案开庭被告否认指控 最高或美国主持人就“杀光中国人”节目道歉党报谈英国“窃听门”丑闻:严格监管不联大连续22年通过决议 要求美国结束美国会将彻查全部监视项目 白宫修改部童心协力 情暖寒冬美国\"口服避孕药之父\"逝世 享年郑州都市区建设:管城建设宜业宜居宜游郑州都市区建设:惠济区转型升级打造宜四川芦山县发生2.9级地震 震源深度美国\"口服避孕药之父\"逝世 享年印媒:印度若与美国合作勿损害对华关系“博科圣地”攻打尼日利亚北部城市 引奇瑞捷豹路虎首款车型 国产揽胜极光上年末如何保持魔鬼身材?教你五大简单易美华人社团留学生关切辱华漫画 致函警萌军机娘龙起1924穿越中之穿越网游之仙侠校花校草乐章谪仙造神录五行脉神最佳球员女儿国的男公关席文庆传奇极品丹王都市归来南山寺旅游鲁山旅游大悲禅院旅游彩虹眷村旅游恒春老街旅游社顶自然公园旅游高雄玫瑰圣母堂旅游索菲娅圣索菲亚教堂旅游东北烈士纪念馆旅游革命领袖纪念馆旅游清真寺旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘