各位大虾:怎样使应用程序的窗口随显示器的分辨率改变?

Question

设定分辨率

Answer 1

Public Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Public Const SM_CXSCREEN = 0
Public Const SM_CYSCREEN = 1
'----------------------------
Sub Main
    Dim lngMaxWidth As Long
    Dim lngMaxHeight As Long
        
    lngMaxWidth = GetSystemMetrics(SM_CXSCREEN)
    lngMaxHeight = GetSystemMetrics(SM_CYSCREEN)
    '显示窗体
    frmMain.Width=lngMaxWidth 
    frmMain.Height=lngMaxHeight
    frmMain.Show
End Sub

Answer 2

有个简单的方法
Private Sub Form_Load()
  Me.Width = Screen.Width
  Me.Height = Screen.Height
End Sub

Answer 3

  GetSystemMetrics  SetWindowPos or Movewindow

Answer 4

回复人： yefanqiu(叶帆) ( ) 信誉：100  2003-04-04 10:32:00  得分:0 
 
 
  有个简单的方法
Private Sub Form_Load()
  Me.Width = Screen.Width
  Me.Height = Screen.Height
End Sub