我用VB做了个软件 怎么让他在不同的分辨率下都显示全屏幕啊

Question

我用VB做了个软件  怎么让他在不同的分辨率下都显示全屏幕啊screen不好使

Answer 1

Public Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Public Const SM_CXSCREEN = 0
Public Const SM_CYSCREEN = 1Private Sub Form_Load()
    G_SCREEN_WIDTH=GetSystemMetrics(SM_CXSCREEN)*Screen.TwipsPerPixelX
    G_SCREEN_HEIGHT=GetSystemMetrics(SM_CYSCREEN)*Screen.TwipsPerPixelY    frm.Move 0, 0, G_SCREEN_WIDTH, G_SCREEN_HEIGHT
End Sub
这样窗体会满屏,但窗体里面的空间位置不会变

Answer 2

怎么把一个 Status0Bar1控件定义在屏幕最底下啊？

Answer 3

设置主窗体的边框风格为0，没有任何边框，并且设置windowstate为最大化.每次启动时，不就是全屏了吗？

Answer 4

me.Width=Screen.Width
me.Height=Screen.Height
Me.Top=0
Me.Left=0