54.html

来自「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题」· HTML 代码 · 共 29 行

HTML
29
字号
<html>
  <head>
    <title>关于 SHAppBarMessage API 的问题...</title>
  </head>
  <BODY BACKGROUND="" BGCOLOR="white" TEXT="black" LINK="red" VLINK="#808080" ALINK="">
    <center>
      <h1>关于 SHAppBarMessage API 的问题...</h1>
    </center>

<HR><p>
Posted by <a href="mailto:michael@x-press.net">SATURNBOY</a> on June 13, 1997 at 21:18:32:<p>
HI! 小吴, 我有个问题请教..(在CWin95a, vb6下)<p>SHAppBarMessage 这个API是否可以把Win95的TaskBar的"自动隐藏"给Enabled?<br>我有在Microsoft Knowledge Base找到关于这个API的说明(http://www.microsoft.com/kb/articles/q143/1/17.htm), 看起来似乎可以(它的范例只有说明如何判断TaskBar所在的状态), 所以我就写了以下程式, 可是无用, 不知是否我有写错? Thank you..<br>程式码: (按了Command1 能使TaskBar的"自动隐藏"给Enabled)<br>1.在 Module1.Bas<br>Type RECT<br>                   Left As Long<br>                   Top As Long<br>                   Right As Long<br>                   Bottom As Long<br>End Type<br>Type APPBARDATA<br>                    cbSize As Long<br>                    hwnd As Long<br>                    uCallbackMessage As Long<br>                    uEdge As Long<br>                    rc As RECT<br>                    lParam As Long<br>End Type<p>Public Declare Function SHAppBarMessage Lib "shell32.dll" (ByVal _<br>dwMessage As Long, pData As APPBARDATA) As Long<p>Public Const ABM_SETAUTOHIDEBAR = &H8<p>2.在Command1<br>Private Sub Command1_Click()<br> Dim Bardata As APPBARDATA<br> 'Bardata 是不是要设定值?<br> Call SHAppBarMessage(ABM_SETAUTOHIDEBAR, Bardata)<br>End Sub
<br>
<p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 54-->
<!--top: 55--><li><a href="55.html"><b>下周一回答你</b></a> 小吴 <i>01:01:44 6/14/97</i>
(<!--responses: 55-->1)
<ul><!--insert: 55-->
<!--top: 57--><li><a href="57.html"><b>不行</b></a> 小吴 <i>19:20:13 6/15/97</i>
(<!--responses: 57-->0)
<ul><!--insert: 57-->
</ul><!--end: 57-->
</ul><!--end: 55-->
</ul><!--end: 54-->
<br><HR><p>

</body></html>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?