VB中Screen.TwipsPerPixelX和Screen.TwipsPerPixelY在Windows7中的问题

最新推荐文章于 2021-09-09 18:16:27 发布
最新推荐文章于 2021-09-09 18:16:27 发布
阅读量1.7k 收藏 3
点赞数
分类专栏： vb 文章标签： vb Screen TwipsPerPixelX Windows7 DPI
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/qq_25142883/article/details/84729952
版权

测试在XP系统下,DPI计算似乎没问题
Screen.TwipsPerPixelX=1440/DPI=1440/96=15
Screen.TwipsPerPixelX=1440/DPI=1440/120=12
Screen.TwipsPerPixelX=1440/DPI=1440/144=10

测试在Windows7下(x64,SP1),DPI为96或120时,各种主题下获取似乎都正确.
当DPI为100%(96),三种主题下,获取的值为15
当DPI为125%(120),三种主题下,获取的值为12
当DPI为150%(144),主题为Windows7(Aero)时,获取的值为15(不正确)
当DPI为150%(144),主题为经典或Basic时,获取的值为10

简单来说如果主题为Windows7默认,DPI为150%时,获取的Screen.TwipsPerPixelX和Screen.TwipsPerPixelY将不准确.
用Screen.Width / Screen.TwipsPerPixelX计算分辨率也就不正确了

这是在Basic主题下截图上图是在Basic主题下截图

这是在经典主题下截图
上图是在经典主题下截图

最低0.47元/天 解锁文章
星云网络
关注
  • 0
    点赞
  • 踩
  • 3
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
VB仿360漂亮的界面菜单.rar
07-10
PS: 为了让窗体弹出的位置与鼠标，保持一定的距离，距离差控制在了5 * Screen.TwipsPerPixelX左右。退出窗体时，两个窗体都退出，不添加该句可能会引起Menu窗体没退，另一个特点值得学习：判断鼠标位置是否太靠近...
Screen.TwipsPerPixelX
张伟杰
07-23 1526
最近敲VB时遇到了一些小问题，比如实例93中的代码，Me .Width \ Screen.TwipsPerPixelX  和  Me.Height \ TwipsPerPixelY 是什么意思呢？还没有注释。           原来Screen.TwipsPerPixelX表示横坐标中每像素有多少缇，Me.Width \ Screen.TwipsPerPixelX就是得到窗体的像素宽度，同理Me
Twip和Pixel
demonzsmj12315的博客
12-15 198
pixel（像素） 可在屏幕或打印机上显示的最小元素。像素与屏幕无关。 各种显示类型的设计 MicrosoftWindows是与设备无关的－基于窗口的应用程序可以在许多不同显示分辨率与颜色浓度的计算机中运行。同样，用VisualBasic编写的应用程序也会在不同类型的显示器上运行，在设计应用程序时需要考虑到这一点。 设计与分辨率无关的窗体 缺省情...
Screen.Width与Image.Width宽度换算问题
nailwl
07-13 1142
Screen.Width的单位是Twip,Image1.Width的单位是pixel image1.width = screen.width / Screen.TwipsPerPixelX image1.height = screen.height / screen.twipsperpixely
TwipsPerPixel
weixin_30299539的博客
10-25 90
当把VB程式转成.net 时，其座标会经常转换，用下面的程式来解决这个问题． 代码 constlongHWND_DESKTOP=0;constintLOGPIXELSX=88;constintLOGPIXELSY=90;[DllImport("gdi32.dll")]privatestaticexte...
vb屏幕分辨率设置和获取_hawkol_新浪博客
hawkol的专栏
05-02 1932
窗体控件 ​Command1Command1Command1 '窗体代码: Private Sub Command1_Click() SetDisplaymode 800, 600 End Sub Private Sub Command2_Click() SetDisplaymode 1920, 1080 End Sub Private Sub Command3...
限制鼠标移动区域程序(vb6.0源代码编写)
02-04
限制鼠标移动区域程序(vb6.0源代码编写) Option Explicit Private Declare Function ClipCursor Lib "user32" (lpRect As Any) As Long Private Type RECT '用户自定义类型 Left As Long Top As Long Right As ...
基于VB的文字动画特效
09-12
If (tR.Right > Me.ScaleWidth \ Screen.TwipsPerPixelX) Then tR.Right = Me.ScaleWidth \ Screen.TwipsPerPixelX DrawText lHDC, sText, lLen, tR, DT_LEFT Me.Refresh '窗体刷新 Do DoEvents '后台运行 ...
VB包装单并输出到打印机的例子打印
06-07
在VB（Visual Basic）编程中，打印功能是一个常见的需求，特别是在处理文档输出或者报表生成时。本示例将深入探讨如何使用VB实现包装单的打印功能，并将其输出到打印机。VB提供了多种方法来实现这一目标，包括使用...
VB 小程序
11-30
VB小程序 Private Sub Form_Paint() '使窗体始终置于最前面 ... Me.Top \ Screen.TwipsPerPixelY, Me.Width \ Screen.TwipsPerPixelX, _ Form1.Height \ Screen.TwipsPerPixelY, 0 End If End Sub
vb.net 教程 5-8 Screen类
chinaherolts2008的博客
09-09 433
版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。 从字面上看就知道Screen类是与屏幕显示相关的。 Screen类提供了以下属性： AllScreens：获取系统上所有屏幕的数组。 BitsPerPixel： 获取与数据的一个像素相关联的内存位数。 Bounds：一个Rectangle值，指明了屏幕高度和宽度的像素 DeviceName： 获取与屏幕关联的设备名称。 Primary： 获取一个值，该值指示某个屏幕是否为主显示屏 Pr.
VB6.0中Screen.TwipsPerPixelX是做什么判断
最新发布
05-27
在VB6.0中，Screen对象的TwipsPerPixelX属性用于获取屏幕上每个像素的twips值。一个twip是1/20个磅，也就是1/1440英寸。这个属性通常用于处理图形和界面元素的大小和位置，因为它提供了一个跨不同显示器分辨率的标准。 使用TwipsPerPixelX属性，您可以将像素值转换为twips值，或者将twips值转换为像素值。例如，如果您需要在屏幕上放置一个宽度为100 twips的控件，您可以使用以下代码计算需要的像素宽度： ``` Dim pixelWidth As Long pixelWidth = 100 / Screen.TwipsPerPixelX ``` 此代码将计算出需要多少个像素才能容纳一个100 twips宽的控件。同样，如果您需要将一个像素坐标转换为twips坐标，您可以使用以下代码： ``` Dim twipsX As Long twipsX = pixelX * Screen.TwipsPerPixelX ``` 此代码将像素坐标pixelX转换为twips坐标。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值