📄 54.html

📁 VB技巧问答10000例 VB技巧问答10000例

💻 HTML

字号:

<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 + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -