以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何在BeforeOpenProject设置显示器分辨率  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=11289)
--  作者：红叶
--  发布时间：2011/7/16 15:11:00
--  如何在BeforeOpenProject设置显示器分辨率

如何在BeforeOpenProject打开项目前设置显示器的分辨率为1024*768

If SysInfo.ScreenWidth < 1024 And SysInfo.ScreenHeight < 768 Then
   Dim Result As DialogResult
   Result = MessageBox.Show("运行本系统要求显示器分辨率不小于1024*768,你当前的显示器分辨率为:" & SysInfo.ScreenWidth & " * " & SysInfo.ScreenHeight & ",是否更改显示器分辨率?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
   If Result = DialogResult.Yes Then

      SysInfo.ScreenWidth = 1024 

      SysInfo.ScreenHeight = 768 

   else
      e.Cancel = True
   End If
End If

以上红色部分该如何设置？
--  作者：狐狸爸爸
--  发布时间：2011/7/16 15:15:00
--  

1、没有办法

2、似乎也多余，有个提示就行了，而且如今想找个屏幕分辨率小于1024的电脑，几乎找不到。