锐客网

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

vb.net动态分辨率 vbox分辨率改为1080

IT技术检查

在VB.NET中通过那个函数可以获取当前屏幕的分辨率?您可以用下面给出这一小段代码检测当前屏幕分辨率vb.net动态分辨率 ， 然后根据结果作出反应──例如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.net保存图片时如何调整其分辨率保存前加一句 myImage2.SetResolution(300, 300)你设置的bMape不是保存的主画布 所以无效，设置分辨率就是 SetResolution（X,Y）
VB.NET设置屏幕分辨率、颜色位数、刷新率 实例代码这篇文章介绍了VB.NET设置屏幕分辨率、颜色位数、刷新率
实例代码，有需要的朋友可以参考一下
复制代码
代码如下:
Private
Declare
Function
GetDeviceCaps
Lib
"gdi32"
(ByVal
hdc
As
Long,
ByVal
nIndex
As
Long)
As
Long
Private
Declare
Function
ChangeDisplaySettings
Lib
"user32"
Alias
"ChangeDisplaySettingsA"
(lpDevMode
As
Any,
ByVal
dwflags
As
Long)
As
Long
Private
Const
CCDEVICENAME
As
Long
=
32
Private
Const
CCFORMNAME
As
Long
=
32
Private
Const
DM_BITSPERPEL
As
Long
=
H40000
Private
Const
DM_PELSWIDTH
As
Long
=
H80000
Private
Const
DM_PELSHEIGHT
As
Long
=
H100000
Private
Const
DM_DISPLAYFLAGS
As
Long
=
H200000
Private
Const
DM_DISPLAYFREQUENCY
=
H400000
Private
Const
CDS_FORCE
As
Long
=
H80000000
Private
Const
BITSPIXEL
As
Long
=
12
Private
Const
HORZRES
As
Long
=
8
Private
Const
VERTRES
As
Long
=
10
Private
Const
VREFRESH
=
116
【vb.net动态分辨率 vbox分辨率改为1080】Private
Type
DEVMODE
dmDeviceName
As
String
*
CCDEVICENAME
dmSpecVersion
As
Integer
dmDriverVersion
As
Integer
dmSize
As
Integer
dmDriverExtra
As
Integer
dmFields
As
Long
dmOrientation
As
Integer
dmPaperSize
As
Integer
dmPaperLength
As
Integer
dmPaperWidth
As
Integer
dmScale
As
Integer
dmCopies
As
Integer
dmDefaultSource
As
Integer
dmPrintQuality
As
Integer
dmColor
As
Integer
dmDuplex
As
Integer
dmYResolution
As
Integer
dmTTOption
As
Integer
dmCollate
As
Integer
dmFormName
As
String
*
CCFORMNAME
dmUnusedPadding
As
Integer
dmBitsPerPel
As
Integer
dmPelsWidth

推荐阅读


上一篇：p5p41支持什么cpu，p5g41t支持什么cpu

下一篇：b站北大李晨直播，北大李晨哔哩哔哩