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

2016-02-19 18:29 4 1 收藏

只要你有一台电脑或者手机，都能关注图老师为大家精心推荐的如何在VB中判断Windows9x的运行模式，手机电脑控们准备好了吗？一起看过来吧！

【 tulaoshi.com - 编程语言】

在Windows下编程，经常发现有不少功能Windows系统已经做了，如果能够直接调用，就可省去不少程序的编写，并能提高程序的运行效率。在很多情况下，我们都可以用“Ctrl＋X”、“Ctrl＋C”、“Ctrl＋V”和“Ctrl＋Z”分别进行“剪切”、“复制”、“粘贴”和“撤消”操作，由此想到，如果我们能够在程序中调用系统的这些功能，就无需为如何实现这些操作而操心了。经过不断的探索，终于发现SendMessage和PostMessage能够担此重任，真是如获至宝，于是迫不及待地把它们介绍给各位朋友。
　　用VB5的“API浏览器”可以很容易地找到这两个API函数：
　　DeclareFunctionSendMessageLib“user32”Alias“SendMessageA”_(ByValhwndAsLong,ByValwMsgAsLong,ByValwParamAsLong,_lParamAsAny)AsLong
　　DeclareFunctionPostMessageLib“user32”Alias“PostMessageA”_(ByValhwndAsLong,ByValwMsgAsLong,ByValwParamAsLong,_ByVallParamAsLong)AsLong

　　这两个函数的功能几乎是一样的，只是SendMessage是直接调用Windows函数来发送消息，只有这个消息完全被处理后此函数才返回，而PostMessage则给窗体的消息队列增加一个消息，这个消息将在未来某个时候进行正常事件处理时得到处理。以下仅以SendMessage为例。
　　函数中虽然有四个参数，但关键的是前两个：hwnd和wMsg。Hwnd是句柄，MicrosoftWindows应用程序中的每个窗体和控件都拥有一个句柄，通过句柄可以指明函数的操作对象；wMsg是一个十六进制数，代表了函数要发送的具体消息。
　　下面以具体例子说明如何用SendMessage实现“剪切”、“复制”、“粘贴”、“撤消”和“删除”功能:
　　在窗体中放置一个文本框Text1和五个按钮，分别执行以上五种功能，编写以下程序。
　　OptionExplicit
　　PrivateDeclareFunctionSendMessageLib“user32”Alias“SendMessageA”_(ByValhwndAsLong,ByValwMsgAsLong,ByValwParamAsLong,lParamAsAny)AsLong
　　ConstWM_CUT=＆H300
　　ConstWM_COPY=＆H301
　　ConstWM_PAST=＆H302
　　ConstWM_CLEAR=＆H303
　　ConstWM_UNDO=＆H304
　　DimfbAsLong
　　
　　PrivateSubcmdClear_Click()
　　fb=PostMessage(Text1.hwnd,WM_CLEAR,0,0)
　　EndSub
　　PrivateSubcmdCopy_Click()
　　fb=SendMessage(Text1.hwnd,WM_COPY,0,0)
　　EndSub
　　PrivateSubcmdCut_Click()
　　fb=SendMessage(Text1.hwnd,WM_CUT,0,0)
　　EndSub
　　PrivateSubcmdPast_Click()
　　fb=SendMessage(Text1.hwnd,WM_PAST,0,0)
　　EndSub
　　PrivateSubcmdUndo_Click()
　　fb=SendMessage(Text1.hwnd,WM_UNDO,0,0)
　　EndSub
　　除了TextBox外SendMessage还可以对RitchTextBox和ComboBox等进行操作,只要相应改变hwnd参数即可。

来源:https://www.tulaoshi.com/n/20160219/1617840.html

看过《如何在VB中判断Windows9x的运行模式》的人还看了以下文章更多>>

如何在VB中判断Windows9x的运行模式 02-19
在VisualBasic中判断Windows9x的运行模式 02-19
如何在windows9x下访问linux分区 01-29
如何在Windows 9x环境中配置Apache + Tomcat.JSP 01-29
如何在VB中实现目录遍历 02-19
VB.NET如何在没有.NET框架的机器上运行 01-29
在VB中运行MicrosoftAccess报表的好方法 02-19
如何在Mac OS X中快速安装TEX 02-20
如何在VB中制作不回显的文本框 02-19
如何在Windows 7中开启梦幻桌面 02-19

如何在Windows 8 中创建新账户

标签：电脑入门

1、进入系统桌面后，把鼠标移到屏幕最右下角，此时会打开浮动的 Charms Bar 的浮动界面; 2、把鼠标移动到齿轮图标上，齿轮变成设置字样，点击设置按钮; 3、出现下图所示界面，点击控制面板选项，; 4、选择用户账户和家庭安全; 5、点击用户账户; 6、点击管理其他账户; 7、点击，在电脑设置中添加新用户; 8、点击添...

如何在Windows 8 中接蓝牙鼠标？

标签：电脑入门

1、在任务栏托盘处点击显示隐藏图标(即下图中的箭头)，然后在蓝牙图标上单击鼠标右键，选择添加 Bluetooth 设备; 2、点击添加设备，如下图所示; 3、选择添加的蓝牙鼠标，如下图所示; 4、添加成功。

如何在 Windows 中安装或删除字体

标签：电脑入门

重新安装 Windows 附带的标准字体 Windows 中附带了下列字体。每台计算机上都安装这些字体。 •Courier New（TrueType，包括粗体、斜体和粗斜体这几种变体） •Arial（TrueType，包括粗体、斜体和粗斜体这几种变体） •Times New Roman（TrueType，包括粗体、斜体和粗斜体这几种变体） •Symbol (TrueType) •Wingd...

VB+Oracle 9i如何构建开发和运行的环境

标签：编程语言网络编程

如何选择前台开发工具如何构建开发和运行环境一个VB+Oracle 9i的数据库应用从逻辑上看有3个组成部分。如图10.1所示。 1. 构建开发和运行客户机在开发客户机上要进行以下工作。（1）安装VB。（2）安装Oralce 9i客户机，最好是管理员，这样可以及时管理后台数据库服务器上的数据。（3）测试Oracl...

如何在windows程序中读取bios内容

标签：编程语言网络编程

今天和夜月兄讨论了一下在windows nt/2000/xp下如何读取bios信息，现在把结果向大家汇报一下。大家都知道，windows接管了对物理内存的直接存取，而bios信息存在物理内存的f000:0000处，关键就是如何读取物理内存。查阅了msdn的文章后，发现以下有几个函数和物理内存访问有关： NTSTATUS ZwOpenSection(OUT PHANDLE Sec...

查看更多精彩>>