Dim $Width=900, $Height=700
If ($Width >= 1600) And ($Height >= 1200) Then MsgBox(0,"",1)
If BitAND($Width >= 1440, $Width < 1600, $Height >= 1080, $Height < 1200) Then MsgBox(0,"",2)
If BitAND($Width >= 1280, $Width < 1440, $Height >= 1024, $Height < 1080) Then MsgBox(0,"",3)
If BitAND($Width >= 1024, $Width < 1280, $Height >= 768, $Height < 1024) Then MsgBox(0,"",4)
If BitAND($Width >= 800, $Width < 1024, $Height >= 600, $Height < 768) Then MsgBox(0,"",5)
[ 本帖最后由 漠北雪~狼 于 2008-6-17 04:11 编辑 ] |