- Код: Выделить всё
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 Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Sub Form_Load
Dim R As RECT
SystemParametersInfo SPI_GETWORKAREA, 0, R, SPIF_UPDATEINIFILE
Me.Autoredraw=True
Me.Print R.Left
Me.Print R.Top
Me.Print R.Right
Me.Print R.Bottom
End Sub
При запуске возникает ошибка Type mismatch по отношению R. Может, я эту ф-цию как-то не так использую? Кто подскажет работоспособный пример - спасибо.
