📄 3609.html

📁 以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题.对一些VB初学者很用.

💻 HTML

字号:

<html>
  <head>
    <title>右下角图示按下滑鼠右键程式有问题！</title>
  </head>
  <body bgcolor="#FFFFFF" vlink="#808080">
    <center>
      <h1>右下角图示按下滑鼠右键程式有问题！</h1>
    </center>
<hr size=7 width=75%>

<hr size=7 width=75%><p>
Posted by <a href="mailto:jiunning@ms4.hinet.net">Jiun</a> on July 01, 1998 at 23:06:47:<p>
你好：又来问一个右下角图示的问题。<p>以下的程式 Copy from part of NIcon.bas：<p>WM_LBUTTONDOWN = &H201<br>WM_RBUTTONDOWN = &H204<p>Function WndProcForIcon(ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long<br>    Dim prevWndProcForIcon As Long<br>    '取回前一个Window procdure所在的位置，这个值是在Nicon.AddNicon中放进去的<br>    prevWndProcForIcon = GetWindowLong(hWnd, GWL_USERDATA)<br>    If Msg = IconMsg Then<br>        If lParam = WM_LBUTTONDOWN Then<br>            Dim mForm As Form<br>            For Each mForm In Forms<br>                If mForm.hWnd = hWnd Then<br>                    mForm.Show<br>                End If<br>            Next<br>        End If<br>        '若您按Mosue右键或Double Click等，要执行什么事，请在这里加进来<br>        If lParam = WM_RBUTTONDOWN Then<br>            Dim mForm As Form<br>            For Each mForm In Forms<br>                If mForm.hWnd = hWnd Then<br>                    mForm.Show<br>                End If<br>            Next<br>        End If<br>    End If<br>    WndProcForIcon = CallWindowProc(prevWndProcForIcon, hWnd, Msg, wParam, lParam)<br>End Function<p>在程式中注解可以加入右键的地方，若是不写入任何东西则没有问题。<br>但是向我将左键的部分操过来也会造成程式无法启动（当掉）。<p>请问要如何改，我试过很多次都失败！<p>谢谢,<p>Jiun.
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 3609-->
<!--top: 3633--><li><a href="3633.html">Re: 右下角图示按下滑鼠右键程式有问题！</a> <b>cww</b> <i>08:37:08 7/03/98</i>
(<!--responses: 3633-->0)
<ul><!--insert: 3633-->
</ul><!--end: 3633-->
</ul><!--end: 3609-->
<br><hr size=7 width=75%><p>

</body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -