那位大哥帮我写一个返回显示器的当前分辨录的函数。

Question

那位大哥帮我写一个返回显示器的当前分辨录的函数。

Answer 1

用API应该不难吧，可是我一点都不会。

Answer 2

public sub main()
dim x,y
x=screen.width/screen.twipsperpixelx
y=screen.height/screen.twipsperpixely
msgbox "你的电脑分辨率是" & x & " * " & y
end
end sub

Answer 3

不用API吧？
屏幕宽=Screen.Width / Screen.TwipsPerPixelX
屏幕高=Screen.Height / Screen.TwipsPerPixelY其中：
高值应为640、800、1024...（屏幕当前宽度）
宽值应为480、600、768...（屏幕当前宽度）

Answer 4

如用api
查getsystemmetrics函数
SM_CXSCREEN,
SM_CYSCREEN

Answer 5

简单一点的：
public Function FunFaceSize()as string
       FunFaceSize="的屏幕分辨率是：" & screen.winth/15 & "*" & screen.height/15
end function

Answer 6

x = Screen.Width \ Screen.TwipsPerPixelX
y = Screen.Height \ Screen.TwipsPerPixelY

Answer 7

msgbox "当前分辨率：" & Screen.Width / 15 & " x " & Screen.Height / 15

Answer 8

x = Screen.Width \ Screen.TwipsPerPixelX
y = Screen.Height \ Screen.TwipsPerPixelY

Answer 9

public sub main()
dim x,y
x=screen.width/15
y=screen.height/15
msgbox "你的电脑分辨率是" & x & " * " & y
end
end sub