2011-10-21 33 views

回答

11

在VB中,您可以使用Screen.WidthScreen.Height。他们不在VBA中,但可以使用API​​调用。添加这些声明:

Public Declare Function GetSystemMetrics Lib "user32.dll" (ByVal index As Long) As Long 
Public Const SM_CXSCREEN = 0 
Public Const SM_CYSCREEN = 1 

然后使用像这样:

MsgBox GetSystemMetrics(SM_CXSCREEN) & "x" & GetSystemMetrics(SM_CYSCREEN) 
+0

我有点新的Visual Basic ...所以我应该在哪里把这个代码? – Monkeyanator

+0

@Monkeyanator将前三行放在相关文件的顶部(函数之外)。将实际的调用放到需要值的GetSystemMetrics中。 – Boann

+0

有什么办法可以在窗体上放置某些东西? – Monkeyanator