Question

vb 怎样使窗体大小等于屏幕大小

vb 怎样使窗体大小等于屏幕大小，就算分辨率改变也一样，
有没有办法使程序先检测屏幕分辨率，然后再赋值全屏的大小给窗体
主要适用于不同屏幕大小的电脑

Answer 1

要使运行时窗体大小等于屏幕大小，可以在设计阶段在属性窗口中设置窗体的WindowState属性的值为2-Maximized。或者在代码窗口，窗体加载时设置如下代码：
Private Sub Form_Load()
Me.WindowState = 2
End Sub

Answer 2

如果是有边框窗体用gandgand地方法
补充一段GetTaskbarHeight的声明：
'*************************************************************************
'**模 块 名：ModGetTaskbar
'**说 明：返回任务栏的信息
'**创 建 人：13727859861
'**日 期：2007年1月3日
'**版 本：V1.0
'*************************************************************************
Option Explicit
Private Declare Function SystemParametersInfo Lib "user32 "
Alias "SystemParametersInfoA " (ByVal uAction As Long,
ByVal uParam As Long, ByRef lpvParam As Any, ByVal
fuWinIni As Long) As Long
Private Declare Function
FindWindow Lib "user32 " Alias "FindWindowA " (ByVal
lpClassName As String, ByVal lpWindowName As String) As
Long
Private Const SPI_GETWORKAREA = 48
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

Public Function GetTaskbarHeight() As Integer
Dim lRes As Long
Dim rectVal As RECT

lRes = SystemParametersInfo(SPI_GETWORKAREA, 0, rectVal, 0)
GetTaskbarHeight = ((Screen.Height /
Screen.TwipsPerPixelX) - rectVal.Bottom) * Screen.TwipsPerPixelX

End Function

如果是无边框窗体全屏用
Me.Left = 0
Me.Top = 0

Me.Height = Screen.Height
Me.Width = Screen.Width

Answer 3

me,width=screen.width
me.height=screen.height

Answer 4

Form1.Left = 0
Form1.Top = 0
Form1.Width = Screen.Width
Form1.Height = Screen.Height - GetTaskbarHeight

追问

Form1.Height = Screen.Height - GetTaskbarHeight

这个“- GetTaskbarHeight”貌似不用吧？
直接Screen.Height的咯

Answer 5

用Screen 对象的Width 和Height 属性