高分求教VB

来源：百度知道 编辑：UC知道 时间：2024/06/05 14:35:31
我想把带超连接的文本复制到表单里，从剪贴板上、网页里和WORD里都可以
只要能带上超连接就可以
谢谢！
主要是实现复制的过程
现在添表已经可以实现了

'代码功能:拖放网址到应用程序

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
Const HWND_TOPMOST = -1
Const SWP_SHOWWINDOW = &H40
Const strWebSite = "你拖放的是网页地址,地址是"

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可以接受OLE拖放
Form1.OLEDropMode = 1
' 使用Windows API函数SetWindowPos将窗口设置为总在最前面以捕捉拖放操作
SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, _