Dim $Height,$Width
$Height=1020
$Width=1220
dim $maxresolution
$maxresolution="ab"
If $maxresolution <> '' Then
If ($Width >= 1600) And ($Height >= 1200) Then MsgBox(0,"",1)
If 1440 <= $Widthand $Width< 1600 And 1080 <= $Height and $Height< 1200 Then MsgBox(0,"",2)
If 1280 <= $Width and $Width < 1440 And 1024 <= $Height and $Height < 1080 Then MsgBox(0,"",3)
If 1024 <= $Width and $Width < 1280 And 768 <= $Height and $Height < 1024 Then MsgBox(0,"",4)
If 800 <= $Width and $Width < 1024 And 600 <= $Height and $Height < 768 Then MsgBox(0,"",5)
另外建议提问的时候最好帖上可以测试的代码,你的代码不全,还要多做一些工作 楼上的方法,不好用! 坛里总有几个人想拿现成的,自己不动脑子,给你指出问题所在, 不去想办法解决, 只想现成的, 怎么互相提高... 楼上的,有这功夫,你就告诉怎么写不就完了???:face (33): 原帖由 卫和谐 于 2008-6-13 13:50 发表 http://www.autoitx.com/images/common/back.gif
楼上的,有这功夫,你就告诉怎么写不就完了???:face (33):
这也是最让人不喜欢的学习态度,那你干脆成天泡在论坛里求代码得了,你当所有人是免费的代码工具? 本人才学习AU3不久,是有困难才向大家求助的,谁能一开始就什么都懂,希望有些同志不要想当然地考虑问题,不利于大家的学习交流! 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 编辑 ] 感谢楼上的热心帮助,但不好使,程序还是原来那种效果!
页:
1
[2]