Всем привет,
Помогите, пожалуйста, допилить WinAPI функцию GetSystemMetrics для 64х битного офиса.
Думал, что код универсальный, но на 64х Win 7 и 64x Office 2010 - выбивает ошибку когда обращаюсь к Property Get.
Заранее благодарен!
Помогите, пожалуйста, допилить WinAPI функцию GetSystemMetrics для 64х битного офиса.
Думал, что код универсальный, но на 64х Win 7 и 64x Office 2010 - выбивает ошибку когда обращаюсь к Property Get.
Заранее благодарен!
Код |
---|
#If Win64 Then #If VBA7 Then Private Declare PtrSafe Function GetSystemMetrics Lib "user32" ( _ ByVal nIndex As LongLong) As LongLong #Else Private Declare Function GetSystemMetrics Lib "user32" ( _ ByVal nIndex As LongLong) As LongLong #End If #Else #If VBA7 Then Private Declare PtrSafe Function GetSystemMetrics Lib "user32" ( _ ByVal nIndex As Long) As Long #Else Private Declare Function GetSystemMetrics Lib "user32" ( _ ByVal nIndex As Long) As Long #End If #End If Private Const SM_CYSCREEN As Long = 1 Private Const SM_CXSCREEN As Long = 0 Public Property Get ScreenHeight() As Long ScreenHeight = GetSystemMetrics(SM_CYSCREEN) End Property Public Property Get ScreenWidth() As Long ScreenWidth = GetSystemMetrics(SM_CXSCREEN) End Property |
Киса, я хочу Вас спросить, как художник — художника: Вы рисовать умеете?