📄 21498.html
字号:
<html>
<head>
<title>Re: 如何按下滑鼠连结到email软体呢？</title>
</head>
<body bgcolor="#FFFFFF" vlink="#808080">
<center>
<h1>Re: 如何按下滑鼠连结到email软体呢？</h1>
</center>
<hr size=7 width=75%>
<hr size=7 width=75%><p>
Posted by AP on November 20, 1999 at 19:26:26:<p>
In Reply to: <a href="20918.html">如何按下滑鼠连结到email软体呢？</a> posted by Jonah on November 02, 1999 at 15:56:20:<p>
: 是不是有可能，在LABEL上输入EMAIL信箱<br>: 然后当滑鼠click时，就进入email软体，写信呢？<br>: 我用vb6<p><br> Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _<br> (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _<br> ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long<br>Private Const SW_SHOWMAXIMIZED = 3<br>Private Const SW_SHOWNOACTIVATE = 4<br>Private Const SW_SHOW = 5<p>Private Sub Label1_Click()<br> If LEFTButton = True Then <br> ShellExecute me.hWnd, "open", "mailto:xxxx@xxx.net.tw", "", "", SW_SHOW<br> end if<br>end sub <br> <br>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 21498-->
</ul><!--end: 21498-->
<br><hr size=7 width=75%><p>
</body></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -