请问：怎样取得屏幕的宽度和高度

dps

先谢谢了

plxmm

Option Explicit Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long Const SM_CXSCREEN = 0 'Width of screen Const SM_CYSCREEN = 1 'Height of screen

Private Sub Fbl() Dim XVal As Long Dim YVal As Long Get_System_Metrics XVal, YVal

Range("A1") = XVal 'Application.UsableHeight Range("A2") = YVal 'Application.UsableWidth

End Sub

Sub Get_System_Metrics(ByRef XVal As Long, ByRef YVal As Long) YVal = GetSystemMetrics(SM_CYSCREEN) XVal = GetSystemMetrics(SM_CXSCREEN)

End Sub

foshan

难以置信! 漂亮小妹妹----plxmm 对 API 函数也如此运用自如!

Long_III

跟着学API

dps

我去学习学习，谢谢plxmm了

dps

遇到新问题：

按以上方法取得的屏幕宽度是1280,我想让窗体水平居中，UserForm1.Left = (屏幕宽度 - UserForm1.Width)/2

居所并没有居中，而屏幕的宽度1280是正确的，难道excel的屏幕宽度与Windows的屏幕宽度是不一样的？

51082481

其实在vb中远没这么复杂!

vb中表示方法:screen.width 与screen.height

不过在vba中这个went偶也觉得很晕!

[此贴子已经被作者于2005-6-9 22:55:55编辑过]

star-ula

有用！
学习了！

wh1272

为什么运行后提示Get_System_Metrics未定义？

俯视姚明

学习了plxmm的方法了！