哪位知道如何获取窗体的分辨率?? 获取当前显示器的显示分辨率 ————读取注册表HKEY_CURRENT_CONFIG\Display\Settings下的键BitsPerPixel、Resolution 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 我看过个,我显示的是1024*768 但HKEY_CURRENT_CONFIG\Display\Settings下的键Resolution 下为800*600 为什么!!~~ Screen.width / Screen.TwipsPerPixelXScreen.height / Scfreen.TwipsPerPixelY ResWidth = Screen.Width \ Screen.TwipsPerPixelXResHeight = Screen.Height \ Screen.TwipsPerPixelYScreenRes = ResWidth & "x" & ResHeightResWidth 就是指螢幕解析度中的寬ResHeight 就是指螢幕解析度中的長而最後算出的 ScreenRes,格式會像 800x600 一樣!win98和win2000的一样 westlink(非常菜) ,这得到的好象是像数吧! 顺便问一下ChangeDisplaySettings在2000中不起作用,返回值总为-2请问DEVMODE.dmSize这个参数是什么意思!? Private Sub Form_Load()CR$ = Chr$(13) + Chr$(10)TWidth% = Screen.Width \ Screen.TwipsPerPixelXTHeight% = Screen.Height \ Screen.TwipsPerPixelYMsgBox "Screen Resolution:" + CR$ + CR$ + Str$(TWidth%) + " x" + Str$(THeight%), 64, "Info"End Subwin2K调试通过~~ 求助:VBS日期格式转换 简单多分,马上给分!在线等。 高手请进:怎样捕捉word文档中的鼠标单击事件 简单问题 ,抢分问题! 使用data控件读取数据的问题?? 当关闭一个窗口时,如何编写提醒对话框,说明要关闭对话框吗? 如何用sql语句 为ACCESS数据库 设置 default 默认的值???? vb怎样在后台判断鼠标的动作(全局) 用vb如何做压缩系统 请教(急!!!) 将会一直加分至300分!请踊跃回答“Word VBA(或VB+引用Microsoft Word 9.0 Object Library)的高手请进!” 如何自动隐藏状态拦??请指教!!
Screen.height / Scfreen.TwipsPerPixelY
ResHeight = Screen.Height \ Screen.TwipsPerPixelY
ScreenRes = ResWidth & "x" & ResHeightResWidth 就是指螢幕解析度中的寬
ResHeight 就是指螢幕解析度中的長而最後算出的 ScreenRes,格式會像 800x600 一樣!win98和win2000的一样
请问DEVMODE.dmSize这个参数是什么意思!?
CR$ = Chr$(13) + Chr$(10)
TWidth% = Screen.Width \ Screen.TwipsPerPixelX
THeight% = Screen.Height \ Screen.TwipsPerPixelY
MsgBox "Screen Resolution:" + CR$ + CR$ + Str$(TWidth%) + " x" + Str$(THeight%), 64, "Info"
End Subwin2K调试通过~~