我正在创建一个适合于计算机的网站(在屏幕上使用鼠标指针)。它不适合移动设备(有触摸屏),因为它有一些效果,如鼠标翻转/离开。当用户使用移动设备访问网站时,它应该显示一条信息:“这个网站有一个更好的外观与计算机。”
Js部分
<script language="Javascript">
window.onload=function {
alert("Visit this on a Computer for Better View");
}
</script>
HTML部件
<HTML>
<BODY>
我有以下功能,将显示图片,如果你运行你的鼠标在它上面。它非常整洁,效果很好。但是,我想将它从鼠标移动到双击功能。
下面是当您在单元格上运行鼠标时显示图片的代码:
Dim DoOnce As Boolean
Public Function OnMouseOver(URL As String, TheCell As Range)
DoOnce = True
With ActiveSheet.Pictures.Insert(URL)
With .ShapeRange
.LockAspectRatio = msoTrue
.Wi