Velikost pracovnφ plochy

Private Type RECT
   Left As Long
   Top As Long
   Right As Long
   Bottom As Long
End Type

Private Const SPI_GETWORKAREA = 48

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


Na formulß° p°idejte tlaΦφtko. Na udßlost Click tlaΦφtka:

Private Sub Command1_Click()

   Dim lRet As Long
   Dim apiRECT As RECT

   lRet = SystemParametersInfo(SPI_GETWORKAREA, vbNull, apiRECT, 0)

   If lRet Then
      Print "Pracovnφ plocha - levß: " & apiRECT.Left
      Print "Pracovnφ plocha - vrchol: " & apiRECT.Top
      Print "Pracovnφ plocha - Üφ°ka: " & apiRECT.Right - apiRECT.Left
      Print "Pracovnφ plocha - v²Üka: " & apiRECT.Bottom - apiRECT.Top
   Else
      Print "Volßnφ funkce SystemParametersInfo selhalo."
   End If

End Sub   

Zp∞t