怎么让图片全屏幕显示？

Question

我想实现双击图片后，全屏幕显示图片，怎么做？知道的告诉我，马上给分。

Answer 1

类似的道理Option ExplicitPrivate Sub Form_Load()
   Image1.Picture = LoadPicture("c:\test.bmp")
End SubPrivate Sub Image1_DblClick()
   Static i As Boolean
   i = Not i
   Image1.Stretch = True
   If i Then
   Form1.WindowState = 2
   Image1.Width = Screen.Width - 20
   Image1.Height = Screen.Height - 20
   Else
   Form1.WindowState = 0
   Form1.Width = 5000
   Form1.Height = 2000
   Image1.Width = 5000
   Image1.Height = 2000
   
   
   End If
    
   
End Sub

Answer 2

使用 DirectX ,网上这种代码很多google,msdn 也有

Answer 3

Form1.BorderStyle = 0 怎么会没有效果呢？我不想让他显示顶端的窗口蓝色条怎么处理？