VB.net 2010 视频教程 VB.net 2010 视频教程 VB.net 2010 视频教程
当前位置:
主页 > 编程开发 > vb >
  • vb教程之用VB实现网络蚂蚁的拖放窗口

  • 2017-09-13 22:07 来源:未知
作者:武汉 艾军

在网络蚂蚁的查看菜单中,有菜单项名叫"拖放窗口",当我们需要下载文件时,只要把网页中的超链接拖到这个"窗口"里就能顺序的进行文件的下载,下面我们就在 VB 中尝试制做这种"拖放窗口"。
第一步,我们先要使"窗口"永远显示在第一位。
因为我们在浏览网页时,要开许多 IE 窗口,那当然不能让这个拖放窗口被 IE 窗口覆盖到,这个技巧可以用 API 函数 SetWindowPos 来实现。
第二步,我们要制作无边框的窗口。(没有标题栏)
因为这样看起来比较专业,这个技巧比较容易,可以通过设置 Form 的 BorderStyle 属性来实现。
第三步,我们要能用鼠标拖动这个窗口。
因为我们的第二步操作,由于这个窗口没有了标题栏,只能通过 API 函数 ReleaseCapture、SendMessage 来实现窗口的拖动。
第四步,我们要使这个窗口接受拖放。(就是拖超链接呀)
这步最关键,不过也最简单,只要设置 Form 的OLEDropMode 属性就行了。
好了,步骤完成,现在开始程序的完整代码了:
Private Declare Function ReleaseCapture Lib "user32" () As Long 注释:释放鼠标捕获
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 HTCAPTION = 2
Const WM_NCLBUTTONDOWN = &HA1

Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
Const HWND_TOPMOST = -1
Const SWP_SHOWWINDOW = &H40
Const strWebSite = "你拖放的是网页地址,地址是"
Const strWebImage = "你拖放的是网页图象,图象将保存到PictureBox中"
     
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long        注释:设置窗口大小、位置、顺序
   
Private Sub Form_Load()

注释:窗口的属性分别为:(请在设计窗口中定义)
注释:Form1.Height = 570
注释:Form1.Left = 150
注释:Form1.Top = 200
注释:Form1.Width = 570
注释:Form1.BackColor = &HFFFF00
注释:Form1.BorderStyle = 1 
注释:Form1.OLEDropMode = 1 注释:使Form1可以接受OLE拖放
注释:Form1.ControBox=False

    SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE Or SWP_SHOWWINDOW 注释: 使用Windows API函数SetWindowPos将窗口设置为总在最前面以捕捉拖放操作
End Sub

Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single) 注释:拖放操作时发生
On Error Resume Next
    Effect = vbDropEffectCopy
    If Data.GetFormat(vbCFText) Then        注释:拖放的是网页地址
        MsgBox strWebSite + Data.GetData(vbCFText)
    ElseIf Data.GetFormat(vbCFDIB) Then     注释:拖放的是网页图象
        MsgBox strWebImage
    End If
End Sub

Private Sub Form_DblClick()
    Unload Me 注释:双击窗口时,退出程序
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
ReleaseCapture
SendMessage hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0& 注释:使窗口可以通过鼠标拖动
End Sub



OK,至此所有的工作都已完成,大家可以自己运行程序试一试,打开网页拖动 1 个超链接到这个窗口,将通过 MsgBox 显示该超链接的地址,如果拖动是的一个图像,则显示是一个图像。
这只是一个简单的例子,在此基础上进一步修改完善就可以运用到其他的许多方面 ,这些就留给朋友自己去思考吧。程序在 VB6.0、Windows 98 下运行良好,如果大家对此还有什么问题,请到 www.d1vb.com 来一起讨论。(对编辑的话:这是一个 VB 论坛,我总在上面)。
相关教程
关于我们--广告服务--免责声明--本站帮助-友情链接--版权声明--联系我们       黑ICP备07002182号