从网页上拖URL到程序中是怎么实现的
编号：QA002099
建立日期: 1999年11月25日 最后修改日期：1999年11月25日
所属类别：
vb三脚猫:
操作系统: win98
编程工具: vb5\vb6
问题: 你好！！在网络吸血鬼中，从网页上拖入URL到图片上是怎么实现的？谢谢！！！！！
回答:
建立一个工程，将Form的OLEDragMode设置为1。然后输入以下代码：
Option Explicit
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
Const HWND_TOPMOST = -1
Const SWP_SHOWWINDOW = &H40
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
' 使用SetWindowPos将窗口设置为总在最前面：
Private Sub Form_Load()
SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, _
SWP_NOMOVE Or SWP_NOSIZE Or SWP_SHOWWINDOW
End Sub
' 接收数据
Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
MsgBox Data.GetData(vbCFText)
End Sub
相关问题：
QA003351 "如何得到网页的名称"
此问题由李海回答。
| |
|
|
| |
|
|
