三三言情小说

手机浏览器扫描二维码访问

第18部分（第3页）

SendMessage　　Me。

hwnd；　　WM_SYSMAND；　　SC_MOVE；　　0

End　　Sub

其中　　ReleaseCapture　　函数用来释放鼠标捕获，SendMessage　　函数向　　Windows　　发送移动窗体的消息。

4、保存并运行程序，按下鼠标，你会发现窗体会随着鼠标的移动而移动。

以上讲述了如何在　　VB　　中用鼠标拖动窗体，其实，控件的拖动的原理是一样的。

例如以下代码可以实现图片框的拖动：

ReleaseCapture

SendMessage　　Picture1。

hwnd；　　WM_SYSMAND；　　SC_MOVE；　　0

（注：以上程序在　　Windows98、VB5。

06。

0　　下调试通过。

在　　NT4。

0、VB6。

0　　下不能运行。

）

103；Q：用　　Delphi5。

0　　编程实现　　Windows　　桌面的隐藏和显示

A：实现原理是调用　　Windows　　的　　API　　函数。

程序代码如下：

procedure　　TForm1。

Button1Click（Sender：　　TObject）；

var　　hDesktop：Thandle；

begin

hDesktop：=FindWindow（Progman；nil）；

ShowWindow（hDesktop；SW_HIDE）；　　隐藏桌面

end；

procedure　　TForm1。

Button2Click（Sender：　　TObject）；

var　　hDesktop：Thandle；

begin

hDesktop：=FindWindow（Progman；nil）；

ShowWindow（hDesktop；SW_SHOW）；　　显示桌面

end；

procedure　　TForm1。

Button3Click（Sender：　　TObject）；