如何在VB6中打开图像并使其全屏显示

我一直试图在VB6中使用2个图片框打开一个图像，并将宽度和高度缩放到屏幕大小

有没有办法打开图像时，不会在底部显示窗口的开始命令，在顶部显示窗口的名称

---

谢谢

您可以让表单在最大化模式下运行。并将窗体边框样式设置为“无”以隐藏标题栏

有关隐藏/覆盖Windows任务栏的信息，请参阅

使用的代码预览如下所示：

Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long,_
ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, _
ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long

Private Const SM_CXSCREEN = 0
Private Const SM_CYSCREEN = 1
Private Const HWND_TOP = 0
Private Const SWP_SHOWWINDOW = &H40

Private Sub Form_Load()
'This code will maximize the window covering the task bar
   Dim ll_Width As Long
   Dim ll_Height As Long

If Me.WindowState = vbMaximized Then
    WindowState = vbNormal
End If

'work out full screen dimensions
ll_Width = GetSystemMetrics(SM_CXSCREEN)
ll_Height = GetSystemMetrics(SM_CYSCREEN)

'use SetWindowPos to resize window
Call SetWindowPos(Me.hwnd, HWND_TOP, 0, 0, ll_Width, _
    ll_Height, SWP_SHOWWINDOW)
End Sub