在VisualBasic中判断Windows9x的运行模式

　　这两个函数的功能几乎是一样的，只是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参数即可。->