以下这段代码提示 tRect 类型不匹配。我实在找不到原因,请问这段代码是哪里错了?那完整的正确的代码又是什么?谢谢了!Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long 
Private Sub Form_Load() 
Dim tRect As RECT 
Call SystemParametersInfo(SPI_GETWORKAREA, 0, tRect, 0) 
With tRect 
.Bottom = .Bottom - 800 'cy是你新加的任务栏高度
 End With 
Call SystemParametersInfo(SPI_SETWORKAREA, 0, tRect, SPIF_SENDCHANGE) 
End Sub 
Module里的是: Public Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type 

解决方案 »

  1.   

    Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As RECT, ByVal fuWinIni As Long) As Long
      

  2.   

    Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long 
    改为
    Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As RECT, ByVal fuWinIni As Long) As Long 
      

  3.   

    Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long