请问picture的双击全屏属性是哪个？

Question

谢谢！

Answer 1

Private Sub Picture1_DblClick()End Sub

Answer 2

Private Sub Form_Load()
  Me.WindowState = 2
  Me.Picture1.BackColor = vbRed
End SubPrivate Sub Picture1_DblClick()
  Me.Picture1.Left = Me.Left
  Me.Picture1.Top = Me.Top
  Me.Picture1.Width = Me.Width
  Me.Picture1.Height = Me.Height
End Sub

Answer 3

对不起可能是我没有问清楚
我是说双击后使picture1全屏应该用哪个属性呢〉？谢谢

Answer 4

使picture1全屏应该用哪个属性呢
===================================
那不好意思,我不知道有这个属性!!

Answer 5

Image控件有这个属性，picture没有。

Answer 6

你先让form全屏，然后把picture1的尺寸和form一样了。可是我想实现双击picture1以后，picture1脱离form然后自己全屏，因为我的form上海有很多东西，按照你那样全屏后不好看了。

Answer 7

那如果我想自己写该怎么写啊？
或者谁能告诉我怎么样picture1脱离form？就是双击picture1使picture1脱离form。可以吗？

Answer 8

picture1是窗体form的控件，picture1全屏，窗体form1必然全屏。picture1不能脱离form。picture1没有全屏属性，但有双击事件，可以设置奇数次双击全屏，偶数次双击恢复窗体和picture1原来大小。如下所示：Dim MouseClick as Boolean
MouseClick=False
 
Private Sub Picture1_DblClick()
        if MouseClick then
           Call ShowWindow(Me.Hwnd, SW_SHOWMINIMIZED)'还原        
           MouseClick=False 
           再恢复Picture1原来大小
        else  
           Call ShowWindow(Me.Hwnd, SW_SHOWMAXIMIZED)'最大化
           MouseClick=True 
           Me.Picture1.Left = Me.Left
           Me.Picture1.Top = Me.Top
           Me.Picture1.Width = Me.Width
           Me.Picture1.Height = Me.Height
        end if
End Sub

Answer 9

那你直接用窗体代替Picture好了~