浏览器

开发平台：

Visual Basic

cOpenDragLink.cls：源码内容

							VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "cOpenDragLink"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
Option Explicit
Private m_Doc As MSHTML.HTMLDocument ' Object
'Private preEventType As String
Public Sub SetDoc(nDoc As Object)
Set m_Doc = nDoc
End Sub
Public Sub OpenDragLink()
Attribute OpenDragLink.VB_UserMemId = 0
On Error GoTo due
Dim tUrl As String
Dim eventType As String
eventType = m_Doc.parentWindow.event.Type
Select Case eventType
    Case "dragend"
        gSelfDrag.Reset
End Select
Exit Sub
due:
    Debug.Print Err.Description
    Resume Next
End Sub

						