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

[baoma2000]

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

[baoma2000]

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

[hcj2002]

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

[intocsdn]

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

[明镜台2014]

關注﹗

[sword281]

如用api
查getsystemmetrics函数
SM_CXSCREEN,
SM_CYSCREEN

[apple800]

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

[online]

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

[genway]

不用API吧？
屏幕宽=Screen.Width / Screen.TwipsPerPixelX
屏幕高=Screen.Height / Screen.TwipsPerPixelY

其中：
高值应为640、800、1024...（屏幕当前宽度）
宽值应为480、600、768...（屏幕当前宽度）

[jinxjun]

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

[kmzs]

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

[zxlkxy]

sc

[zxt1980]

up