📄 例4-27.htm
字号:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!-- saved from url=(0047)http://192.168.6.19/jxyd/book/web0208/E4_27.htm -->
<HTML><HEAD><TITLE>event对象</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<SCRIPT language=VBScript>
Sub document_onClick()
Dim LF,x,y
LF=chr(13)+chr(10)
x=window.event.x
y=window.event.y
MsgBox "鼠标当前位置是:" & LF & "X=" & x & " Y=" & y,64+0,"鼠标位置"
End Sub
</SCRIPT>
<META content="MSHTML 6.00.2900.2722" name=GENERATOR></HEAD>
<BODY>
<H2>点击鼠标即可显示它现在所在的位置</H2></BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -