玩酷之家

 找回密码
 立即注册
查看: 181|回复: 0

VB 获取当前系统的屏幕分辨率

[复制链接]
发表于 2021-1-8 17:09:09 | 显示全部楼层 |阅读模式
  1. Private Sub Form_Load()
  2. Dim x As Integer, y As Integer
  3. x = Screen.Width / Screen.TwipsPerPixelX
  4. y = Screen.Height / Screen.TwipsPerPixelY
  5. MsgBox x
  6. MsgBox y
  7. End Sub
复制代码


回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|小黑屋|玩酷之家 ( 鄂ICP备14012049号 )

GMT+8, 2021-4-22 10:36 , Processed in 1.060802 second(s), 17 queries .

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表