在VisualBasic中判断Windows9x的运行模式

2018-06-17 17:16:23来源:未知 阅读 ()

新老客户大回馈,云服务器低至5折

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

标签:

版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇:电影结束画面的卷动效果

下一篇:用VB编写入侵监听程序(下)