拖动禁用CSS悬停

Question

我有这个迷你测试示例：https://jsfiddle.net/3d6udf2n/。

当我开始将鼠标从Link的外部拖到内部时，它不会改变背景和颜色，直到我释放鼠标。

我的问题是，我如何制作它（使用css或javascript），因此无论我是否拖动，悬停事件都会起作用。

Answer 1

经过一些测试后得到它：https://jsfiddle.net/3d6udf2n/1/。

仍然试图让它成为所有标记Sub CopyFiles() Dim iRow As Integer Dim sSourcePath As String Dim sDestinationPath As String Dim sFileType As String Dim bContinue As Boolean bContinue = True iRow = 2 sSourcePath = "C:\Users\admin\documents\Test1\" sDestinationPath = "C:\Users\admin\documents\Test2\" sFileType = ".pdf" While bContinue If Len(Range("B" & CStr(iRow)).Value) = 0 Then MsgBox "Files Copied" bContinue = False Else If Len(Dir(sSourcePath & Range("B" & CStr(iRow)).Value & sFileType)) = 0 Then Range("C" & CStr(iRow)).Value = "File Does Not Exist" Range("C" & CStr(iRow)).Font.Bold = True Else Range("C" & CStr(iRow)).Value = "File Copied" Range("C" & CStr(iRow)).Font.Bold = False If Trim(sDestinationPath) <> "" Then Dim objFSO Set objFSO = CreateObject("scripting.filesystemobject") If objFSO.FolderExists(sDestinationPath) = False Then MsgBox "The destination folder " & sDestinationPath & " Does Not Exists" Exit Sub End If objFSO.CopyFile Source:=sSourcePath & Range("B" & CStr(iRow)).Value & _ sFileType, Destination:=sDestinationPath End If End If End If iRow = iRow + 1 Wend End Sub ，而不只是标识为a的元素。