VB 怎么设定窗体的大小随着萤幕解析度自动改变

VB 怎么设定窗体的大小随着萤幕解析度自动改变

自动改变难度不大，如：

Private Sub Form_Load()

Form1.Width = Screen.Width

Form1.Height = Screen.Height

End Sub

还有一种办法是设定，启动是最大化。

但窗体大小的变更会影响窗体上各控制元件的布局，重新布局很繁很繁，窗体上每个控制元件的位置或大小都要重新定义。

萤幕解析度常自动改变 求助大神

那不是电脑自己改变的 而是你玩的游戏要求的解析度 你玩游戏的时候游戏里面的小外挂就会自动改变电脑解析度

linux 怎么改变萤幕解析度

方法：

开启Linux作业系统，登陆到桌面。此时可以明显看出，这个解析度对我的Linux不合适，字型太小看不清。

点选选单“系统”-“首选项”-“显示”。

在首选项视窗中点选解析度。

根据自己的喜好选择一个适当的解析度。

如果愿意，也可调整一下重新整理率，不过不建议过高。

所有专案设定完毕之后，点选“应用”使之生效。

此时，会d出一个提示框，选择“保持当前配置”，然后再关闭首选项视窗。

现在，就可以看到桌面变成由你设定的解析度显示了。

linux怎样改变萤幕解析度

开启Linux作业系统，登陆到桌面。此时可以明显看出，这个解析度对我的Linux不合适，字型太小看不清。

点选选单“系统”-“首选项”-“显示”。

在首选项视窗中点选解析度。

根据自己的喜好选择一个适当的解析度。

如果愿意，也可调整一下重新整理率，不过不建议过高。

所有专案设定完毕之后，点选“应用”使之生效。

此时，会d出一个提示框，选择“保持当前配置”，然后再关闭首选项视窗。

现在，就可以看到桌面变成由你设定的解析度显示了。

VB 2005 怎么改萤幕解析度？

Option Strict Off

Option Explicit On

Friend Class Form1

Inherits System.Windows.Forms.Form

#Region "Windows 窗体设计器生成的程式码"

Public Sub New()

MyBase.New()

'此呼叫是 Windows 窗体设计器所必需的。

InitializeComponent()

End Sub

'窗体重写处置，以清理元件列表。

Protected Overloads Overrides Sub Dispose(ByVal Disposing As Boolean)

If Disposing Then

If Not ponents Is Nothing Then

ponents.Dispose()

End If

End If

MyBase.Dispose(Disposing)

End Sub

'Windows 窗体设计器所必需的

Private ponents As System.ComponentModel.IContainer

'注意：以下过程是 Windows 窗体设计器所必需的

'可以使用 Windows 窗体设计器来修改它。

'不要使用程式码编辑器来修改它。

<System.Diagnostics.DebuggerStepThrough()>Private Sub InitializeComponent()

'

'Form1

'

Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)

Me.ClientSize = New System.Drawing.Size(426, 524)

Me.Name = "Form1"

Me.StartPosition = System.Windows.Forms.FormStartPosition.Manual

Me.Text = "Form1"

End Sub

#End Region

Private Const CCDEVICENAME As Short = 32

Private Const CCFORMNAME As Short = 32

Private Const DM_PELSWIDTH As Integer = &H80000

Private Const DM_PELSHEIGHT As Integer = &H100000

Private Declare Function EnumDisplaySettings Lib "user32" Alias "EnumDisplaySettingsA" (ByVal lpszDeviceName As Integer, ByVal iModeNum As Integer, ByRef lpDevMode As DEVMODE) As Boolean

Private Declare Function ChangeDisplaySettings Lib "user32" Alias "ChangeDisplaySettingsA" (ByRef lpDevMode As DEVMODE, ByVal dwflags As Integer) As Integer

Private Structure DEVMODE

<VBFixedString(CCDEVICENAME), System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.ByValTStr, SizeConst:=CCDEVICENAME)>Public dmDeviceName As String

Dim dmSpecVersion As Short

Dim dmDriverVersion As Short

Dim dmSize As Short

Dim dmDriverExtra As Short

Dim dmFields As Integer

Dim dmOrientation As Short

Dim dmPaperSize As Short

Dim dmPaperLength As Short

Dim dmPaperWidth As Short

Dim dmScale As Short

Dim dmCopies As Short

Dim dmDefaultSource As Short

Dim dmPrintQuality As Short

Dim dmColor As Short

Dim dmDuplex As Short

Dim dmYResolution As Short

Dim dmTTOption As Short

Dim dmCollate As Short

<VBFixedString(CCFORMNAME), System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.ByValTStr, SizeConst:=CCFORMNAME)>Public dmFormName As String

Dim dmUnusedPadding As Short

Dim dmBitsPerPel As Short

Dim dmPelsWidth As Integer

Dim dmPelsHeight As Integer

Dim dmDisplayFlags As Integer

Dim dmDisplayFrequency As Integer

End Structure

Private Sub ChangeRes(ByRef iWidth As Single, ByRef iHeight As Single)

Dim blnWorked As Boolean

Dim i As Integer

Dim DevM As Form1.DEVMODE

i = 0

Do

blnWorked = EnumDisplaySettings(0, i, DevM)

i = i + 1

Loop Until (blnWorked = False)

With DevM

.dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT

.dmPelsWidth = iWidth

.dmPelsHeight = iHeight

End With

Call ChangeDisplaySettings(DevM, 0)

End Sub

Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load

ChangeRes(1024, 768)

End Sub

End Class

自己再加工一下吧

如何改变萤幕解析度？

显示卡设定里有专案可以调节

萤幕解析度怎么算大小

萤幕分辩率与影象质量成正比，分辩率等于长的成像点数乘以宽的成像点数，按照几何来解释，图象是由点组成，分辩率亦然

更改萤幕解析度——设定（滑块不动）

没有正确安装显示卡驱动，只用window自带驱动是不能发挥显示卡的最大作用的

virtualbox虚拟机器中怎么设定ubantu萤幕解析度大小

三星D508 | X708系列（176 * 220）

A880 | A920 | D410 | D415 | D418 | D428 | D500 | D508 | D518 | D528 | D700 | D728 | E398 | E508 | E530 | E568 | E578 | E610 | E618 | E628 | E648 | E728 | E738 | E750 | E758 | E760 | E768 | E778 | E878 | E888 | F300 | P308 | P738 | W109 | W219 | W379 | W399 | X700 | X708 | X808 | X828 | Z100 | Z130 | Z140 | Z300 | Z308 | Z500 | Z540 | ZM60 | ZV10

目前没有相应的“系统增强包”，也就是说，装完这个版本的Linux之后，无法把虚拟驱动装上去，也就没办法修改解析度，只能用原始的640*480，是virtualbox没提供，我们没办法的。

---