VB 怎么设定窗体的大小随着萤幕解析度自动改变
VB 怎么设定窗体的大小随着萤幕解析度自动改变
自动改变难度不大，如：
Private Sub Form_Load()
Form1.Width = Screen.Width
Form1.Height = Screen.Height
End Sub
还有一种办法是设定，启动是最大化。
但窗体大小的变更会影响窗体上各控制元件的布局，重新布局很繁很繁，窗体上每个控制元件的位置或大小都要重新定义。
萤幕解析度常自动改变 求助大神
那不是电脑自己改变的 而是你玩的游戏要求的解析度 你玩游戏的时候游戏里面的小外挂就会自动改变电脑解析度
linux 怎么改变萤幕解析度
方法：
开启Linux作业系统，登陆到桌面。此时可以明显看出，这个解析度对我的Linux不合适，字型太小看不清。
点选选单“系统”-“首选项”-“显示”。
在首选项视窗中点选解析度。
根据自己的喜好选择一个适当的解析度。
如果愿意，也可调整一下重新整理率，不过不建议过高。
所有专案设定完毕之后，点选“应用”使之生效。
此时，会弹出一个提示框，选择“保持当前配置”，然后再关闭首选项视窗。
现在，就可以看到桌面变成由你设定的解析度显示了。
linux怎样改变萤幕解析度
开启Linux作业系统，登陆到桌面。此时可以明显看出，这个解析度对我的Linux不合适，字型太小看不清。
点选选单“系统”-“首选项”-“显示”。
在首选项视窗中点选解析度。
根据自己的喜好选择一个适当的解析度。
如果愿意，也可调整一下重新整理率，不过不建议过高。
所有专案设定完毕之后，点选“应用”使之生效。
此时，会弹出一个提示框，选择“保持当前配置”，然后再关闭首选项视窗。
现在，就可以看到桌面变成由你设定的解析度显示了。
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没提供，我们没办法的。
