vb编程:最大化与全屏

追问：居然有这种效果
我怎么想不到
能不能详细的说说
谢谢

答案：
Private Sub Form_Load()
   Form1.Move 0, 0, Screen.Width / 2, Screen.Height / 2
End Sub

Private Sub Form_Resize()
   Picture1.Move 0, 0, Form1.Width, Form1.Height
End Sub

Private Sub Picture1_dblClick() '全屏 ,双击切换
      '将  Form1.BorderStyle设置为 0
   If Form1.Width <> Screen.Width Then
      Form1.Move 0, 0, Screen.Width, Screen.Height
    
   Else
      Form1.Move 0, 0, Screen.Width / 2, Screen.Height / 2
      
   End If
End Sub

Private Sub Picture1_dblClick() '最大化 ,双击切换
'将  Form1.BorderStyle设置为 2
   If Form1.WindowState <> 2 Then
      Form1.WindowState = 2
   Else
      Form1.WindowState = 0
   End If
End Sub
你要的是这效果吗？设计全屏时，因没有关闭按键了，可加个右键弹出菜单，以便实施退出程序等操作。
把form的属性设置为borderstyle属性设置为0然后把windowState属性设为2然后在picture属性添加你的图片最后运行就可以了如果还有什么问题请联系我QQ:894508172 http://user.qzone.qq.com/894508172
如果是vb6的话，先将窗体的Picture属性设置为你要显示的图片，再把BorderStyle属性设置为None，把WindowState属性设置为Maximized。运行一下看看，是不是你要的效果。VB.Net的方法类似。
最好用DX，DX初始化的设置有全屏，并设置分辨率的选项
BorderStyle=0－None ′最大化、最小化按钮 
WindowState=2－Maximized ′窗体最大化 
就可以了。
VB6中，FORM的WindowState属性为2即为最大化，可以在程序运行过程中赋值。
BorderStyle属性为0，WindowState属性为2即可全屏，但是BorderStyle属性必须在设计时赋值，在运行时是只读的。
如无必要，不要死抱着VB不放
先打开pccetudhk软件，把它打开，按导航，上面自己有。打开它，按属性，再在里面条23

上一个：VB编程问题，请教专家
下一个：VB编程 与 VC编程