重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
Dim x, y As Long
创新互联建站坚持“要么做到,要么别承诺”的工作理念,服务领域包括:成都网站建设、网站制作、企业官网、英文网站、手机端网站、网站推广等服务,满足客户于互联网时代的洮南网站设计、移动媒体设计的需求,帮助企业找到有效的互联网解决方案。努力成为您成熟可靠的网络建设合作伙伴!
x = Screen.PrimaryScreen.Bounds.Width.ToString
y = Screen.PrimaryScreen.Bounds.Height.ToString
窗体初始化时,设定Windowstate= maximized.
窗体分辨率仍然可以设成1920x1080。设计元素的时候拖拽,或者使用代码初始化控件。
屏幕的长宽就是屏幕的分辨率,用下面的代码实现,每句后面已添加注释
Dim x As Integer, y As Integer '定义2个整数型变量
x = Screen.Width / Screen.TwipsPerPixelX '获取屏幕宽度
y = Screen.Height / Screen.TwipsPerPixelY '获取屏幕高度
上面是vb的语法
下面是Vb.Net的语法:
Dim x, y As Long '定义2个整数型变量
x = Screen.PrimaryScreen.Bounds.Width.ToString '获取屏幕宽度
y = Screen.PrimaryScreen.Bounds.Height.ToString '获取屏幕高度
获取屏幕大小宽和高 和初始化窗口的尺寸 屏幕减尺寸等于你想要的left值 和top值 即屏幕比你窗体高多少 宽多少就是你右对齐的初始值 右上角对齐top依旧为0
您可以用下面给出这一小段代码检测当前屏幕分辨率,然后根据结果作出反应──例如,重新调整窗体大小以适应用程序户分辨率。
Public Function CheckRez(pixelWidth As Long, pixelHeight As Long) As Boolean
'
Dim lngTwipsX As Long
Dim lngTwipsY As Long
'
' convert pixels to twips
lngTwipsX = pixelWidth * 15
lngTwipsY = pixelHeight * 15
'
' check against current settings
If lngTwipsX Screen.Width Then
CheckRez = False
Else
If lngTwipsY Screen.Height Then
CheckRez = False
Else
CheckRez = True
End If
End If
'
End Function
Next, run the following code at the start of the program:
If CheckRez(640, 480) = False Then
MsgBox "Incorrect screen size!"
Else
MsgBox "Screen Resolution Matches!"
End If