Picture控件中图片全屏的问题！！急！！！！！

Question

picture中装载了一幅图片，图片没有全屏，现在想双击picture使图片变为全屏，再双击变回原来的大小且位置都不变。请问怎么实现？？小弟在这先谢谢咯！！

Answer 1

Private Sub Form_Resize()
Picture1.Width = Me.ScaleWidth
Picture1.Height = Me.ScaleHeight
Picture1.Top = 0
Picture1.Left = 0
End Sub
Private Sub Picture1_DblClick()
If Me.WindowState = 2 Then
    Me.WindowState = 0
Else
    Me.WindowState = 2
End If
End Sub

Answer 2

两个三角问的问题？不可思义！
到底是图片在PictureBox中“全屏”、还是PictureBox在Form中“全屏”、还是Form在屏幕中全屏？
感觉象是前二种之一，你这个“全屏”的概念也太广义了吧，想回答吧，却看得一头雾水！

Answer 3

是PictureBox在Form中全屏。PictureBox中装载图片的大小是531×374，双击后使图片显示满屏。再次双击恢复原来的大小。

Answer 4

Option Explicit
    Private picP As StdPicture
    Private picW As Single
    Private picH As Single
    Private picT As Single
    Private picL As Single
    
Private Sub Form_Load()
    picW = Picture1.Width
    picH = Picture1.Height
    Picture1.AutoRedraw = True
    Set picP = LoadPicture(VB.App.Path & "\10.jpg")
    Picture1.PaintPicture picP, 0, 0, Picture1.Width, Picture1.Height
End SubPrivate Sub Picture1_DblClick()
    Static i As Long
    If i = 0 Then
        Picture1.Move 0, 0, Me.Width, Me.Height
        Picture1.PaintPicture picP, 0, 0, Picture1.Width, Picture1.Height
        i = i + 1
    Else
        Picture1.Move picL, picT, picW, picH
        Picture1.PaintPicture picP, 0, 0, Picture1.Width, Picture1.Height
        i = 0
    End If
End Sub

Answer 5

Option Explicit
    Private picP As StdPicture
    Private picW As Single
    Private picH As Single
    Private picT As Single
    Private picL As Single
    
Private Sub Form_Load()
    picT = Picture1.Top
    picL = Picture1.Left
    picW = Picture1.Width
    picH = Picture1.Height
    Picture1.AutoRedraw = True
    Set picP = LoadPicture(VB.App.Path & "\10.jpg")
    Picture1.PaintPicture picP, 0, 0, Picture1.Width, Picture1.Height
End SubPrivate Sub Picture1_DblClick()
    Static i As Long
    If i = 0 Then
        Picture1.Move 0, 0, Me.Width, Me.Height
        Picture1.PaintPicture picP, 0, 0, Picture1.Width, Picture1.Height
        i = i + 1
    Else
        Picture1.Move picL, picT, picW, picH
        Picture1.PaintPicture picP, 0, 0, Picture1.Width, Picture1.Height
        i = 0
    End If
End Sub

Answer 6

Option Explicit
    Private picP As StdPicture
    Private picW As Single
    Private picH As Single
    Private picT As Single
    Private picL As Single
    
Private Sub Form_Load()
    Set picP = LoadPicture("C:\1.jpg")
    Picture1.PaintPicture picP, 0, 0, Picture1.Width, Picture1.Height
End SubPrivate Sub Form_Resize()
 Static i As Long
    Picture1.Height = Me.ScaleHeight
    Picture1.Width = Me.ScaleWidth
    Picture1.Top = 0
    Picture1.Left = 0
    picW = Picture1.Width
    picH = Picture1.Height
    Picture1.AutoRedraw = True
    If i = 0 Then
    
        Picture1.Move 0, 0, Me.Width, Me.Height
        Picture1.PaintPicture picP, 0, 0, Picture1.Width, Picture1.Height
        i = i + 1
    Else
        Picture1.Move picL, picT, picW, picH
        Picture1.PaintPicture picP, 0, 0, Picture1.Width, Picture1.Height
        i = 0
    End If
    
End SubPrivate Sub Picture1_DblClick()
   
    If Me.WindowState = 2 Then
        Me.WindowState = 0
    Else
       Me.WindowState = 2
    End If
   
      
End Sub