在VBA中使用放大率API获取屏幕放大率

Question

我写了一个小模块，试图获得屏幕放大率的值。它调用magnification.dll中的一些过程。我想我的编码是正确的，但是我得到了一个可怕的453错误(找不到入口点)。

代码如下：

Public Declare Function MagInitialize Lib "magnification.dll" () As Boolean
Public Declare Function MagUninitialize Lib "magnification.dll" () As Boolean
Public Declare Function MagGetFullscreenTransform Lib "magnification.dll" _
(ByVal pMagLevel As Single, ByVal pxOffset As Integer, ByVal pyOffset As Integer) As Boolean '

Sub test123()
 Dim sngValue As Single, intX As Integer, intY As Integer
 If (MagInitialize) Then
    If MagGetFullscreenTransform(sngValue, intX, intY) Then    '
        Debug.Print sngValue & " was returned from MagGetFullscreenTransform. "
    Else
        Debug.Print "MagGetFullscreenTransform was false."
    End If
 Else
    Debug.Print "Can't initialize"
 End If

 If Not (MagUninitialize) Then
    Debug.Print "Can't uninitialize"
 End If

 End Sub

我不知道过程别名(并不是说它需要别名，据我所知，别名是可选的)。我试着在我的Excel项目中“检查”Magnification.dll作为引用，但它不允许。(无法添加对指定文件的引用)。

有什么建议吗？我只需要拉出放大值。

谢谢!

Answer 1

我的Windows7 magnification.dll可以导出Mag/UnInitialize，但不能导出MagGetFullscreenTransform，docs说最低客户端版本是"Windows Developer Preview“，所以它看起来像是Win8的一个功能，我假设你没有使用这个功能。