求一个函数，求windows开始任务栏的高度。

Question

求一个函数，求windows开始任务栏的高度。

Answer 1

求windows的任务栏的状态是否为自动隐藏，
求把Windows任务栏设为自动隐藏&取消自动隐藏的函数。

Answer 2

隐藏任务栏Private Declare Function FindWindow Lib "user32"
     Alias "FindWindowA" (ByVal lpClassName As String,
     ByVal lpWindowName As Any) As LongPrivate Declare Function ShowWindow Lib "user32"
     (ByVal hwnd As Long,ByVal nCmdShow As Long) As LongConst SW_HIDE=0
Const SW_SHOWNORMAL=1Private Sub PsHideTask()
     Dim hTaskBar As Integer
     hTaskBar=FindWindow("Shell_TrayWnd",0&)
     ShowWindow hTaskBar,SW_HIDE
End Sub

Answer 3

Declare Function SetWindowPos Lib "user32.dll" 
  (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, 
   ByVal x As Long, ByVal y As Long, ByVal cx As Long, 
   ByVal cy As Long, ByVal wFlags As Long) As Long wFlags可以为0或下述值，以指明如何移动窗口。SWP_FRAMECHANGED = &H20  在新位置完全重画窗口
SWP_DRAWFRAME    = &H20  同SWP_FRAMECHANGED
SWP_HIDEWINDOW   = &H80  隐藏窗口
SWP_NOACTIVATE   = &H10  移动窗口，并不自动激活它
SWP_NOCOPYBITS   = &H100 被拖动后不重画
SWP_NOMOVE       = &H2   不移动窗口
SWP_NOSIZE       = &H1   不改变窗口大小
SWP_NOREDRAW     = &H8   不去掉前一位置的窗口图像
SWP_NOZORDER     = &H4   不改变窗口的前后顺序
SWP_SHOWWINDOW   = &H40  将隐藏的窗口显示出来

Answer 4

求windows开始任务栏的高度?

Answer 5

我是在作一个界面效果，没有边框没控制栏的那种，但最大化后会把windows的状态栏给盖住，我想让窗体的高度为screen.height-状态栏的高度，这样就好了。

Answer 6

SPI_GETWORKAREA lpvParam是一个RECT结构，用于装载屏幕的工作区 
SystemParametersInfo, SystemParametersInfoByval VB声明 
Declare Function SystemParametersInfo& Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long)
Declare Function SystemParametersInfoByVal& Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) 
说明 
允许获取和设置数量众多的windows系统参数 
返回值 
Long，非零表示成功，零表示失败。会设置GetLastError 
参数表 
参数 类型及说明 
uAction Long，指定要设置的参数。参考uAction常数表 
uParam Long，参考uAction常数表 
lpvParam Any，按引用调用的Integer、Long和数据结构。对于String数据，请用SystemParametersInfoByval函数。具体用法参考uAction常数表 
fuWinIni Long，取决于不同的参数及操作系统，随同这个函数设置的用户配置参数保存在win.ini或注册表里，或同时保存在这两个地方。这个参数规定了在设置系统参数的时候，是否应更新用户设置参数。可以是零（禁止更新），或下述任何一个常数： 
SPIF_UPDATEINIFILE 更新win.ini和（或）注册表中的用户配置文件 
SPIF_SENDWININICHANGE 倘若也设置了SPIF_UPDATEINIFILE，将一条WM_WININICHANGE消息发给所有应用程序。否则没有作用。这调消息告诉应用程序已经改变了用户配置设置 
注解 
在调用这个函数之前，特别要注意将lpvParam参数定义成正确的数据类型 

Answer 7

Private Declare Function SystemParametersInfo Lib "user32.dll" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long
Private Const SPI_GETWORKAREA As Long = 48dim rc as RECTSystemParametersInfo SPI_GETWORKAREA,0,rc,0

Answer 8

我用了一个笨方，多用了一个窗体，在我的主窗体显示前把它最大化显示出来，form_resize中得到height属性，用一个全局变量保存，关掉这个窗体，把变量值再给我的无框主窗体，...