锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net获取屏幕尺寸 vba获取屏幕尺寸函数

屏幕IT技术

在VB.NET中通过那个函数可以获取当前屏幕的分辨率?您可以用下面给出这一小段代码检测当前屏幕分辨率，然后根据结果作出反应──例如 ， 重新调整窗体大小以适应用程序户分辨率 。
PublicFunctionCheckRez(pixelWidthAsLong,pixelHeightAsLong)AsBoolean
'
DimlngTwipsXAsLong
DimlngTwipsYAsLong
'
'convertpixelstotwips
lngTwipsX=pixelWidth*15
lngTwipsY=pixelHeight*15
'
'checkagainstcurrentsettings
IflngTwipsXScreen.WidthThen
CheckRez=False
Else
IflngTwipsYScreen.HeightThen
CheckRez=False
Else
CheckRez=True
EndIf
EndIf
'
EndFunction
Next,runthefollowingcodeatthestartoftheprogram:
IfCheckRez(640,480)=FalseThen
MsgBox"Incorrectscreensize!"
Else
MsgBox"ScreenResolutionMatches!"
EndIf
高分- VB中如何获取显示器尺寸？VB中获取显示器尺寸
将窗体 属性 ScaleMode 设为 5: 英寸
这是显示的属性 ScaleWidth 是英寸
再由 API 调用 获取 窗体客户区 长宽,屏幕长宽
可以换算出 屏幕长宽 的英寸数
显示器尺寸就是对角线的长度
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function GetClientRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Sub Command1_Click()
Dim h As Long
Dim rwindow As RECT
Dim rdesk As RECT
Dim l As Single
Dim t As Single
h = GetDesktopWindow
GetWindowRect h, rdesk
GetClientRect Me.hwnd, rwindow
Me.ScaleMode = 5'英寸
l = Me.ScaleWidth / rwindow.Right * rdesk.Right
t = Me.ScaleHeight / rwindow.Bottom * rdesk.Bottom
Print Sqr(l * lt * t)
End Sub
vb 中怎么取屏幕的长和宽Screen.Width 是屏幕的绝对宽度，单位是twip（1twip=1/1440英寸）
Screen.Height 是屏幕的绝对高度，单位是twip
Screen.Width/Screen.TwipsPerPixelX 是屏幕的相对宽度，单位是像素pixel，其值根据分辨率大小而不同,TwipsPerPixelX是美像素有多少twip
Screen.Height/Screen.TwipsPerPixelY 是屏幕的相对宽度，单位是像素pixel
vb.net如何获取屏幕分辨率从而设置窗体大小默认单位是像素
96是系统的一种设定，每英寸的点数，是系统界面用小字体时的设置
用像素数除以dpi没有意义
vb.net form 显示区域的大小如何获得？窗体的 SizeFromClientSize 属性是工作区域大小 。
Me.SizeFromClientSize(New Size(200, 300))
【vb.net获取屏幕尺寸 vba获取屏幕尺寸函数】vb.net获取屏幕尺寸的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vba获取屏幕尺寸函数、vb.net获取屏幕尺寸的信息别忘了在本站进行查找喔 。

    推荐阅读


    上一篇：如何确认服务器网卡驱动是否正常？ 怎么检测服务器网卡驱动

    下一篇：如何在io中正确关闭服务器？ io中怎么关闭服务器