关于vb写的软件 最小化时出现错误380 无效属性值的问题

Question

经调试，问题出在了这： 
Private Sub Form_Resize()
   Pics.Width = Me.Width - 2 * Pics.Left - 100
   PicCapture.Width = Pics.Width
   PicCapture.Left = Pics.Left
   fraTop.Left = Me.Width - fraTop.Width - 200
   frabott.Width = Pics.Width
   frabott.Left = Pics.Left
   tz.Left = frabott.Width - tz.Width - 200
   frabott.Top = Me.Height - frabott.Height - 600
   Pics.Height = (frabott.Top - Pics.Top - 300) / 2
   PicCapture.Top = Pics.Top + Pics.Height + 200
   PicCapture.Height = Pics.Height   ImgRet.Left = Pics.Width - ImgRet.Width - 200
   
   
End Sub之前别的类似软件最小化也有问题出现在第一行的时候，请教大家是什么原因呢 该如何更改呢？ 谢谢

Answer 1

If Form1.WindowState = 1 Then Exit Sub前面加上这一句因为最小化也会触发resize，而此时东西都已经最小化了，你这样赋值当然不合法了

Answer 2

直接 on error resume next 

Answer 3

推荐用1楼的方法，不过应该是
Private Sub Form_Resize()
    If Me.WindowState = vbMinimized Then Exit Sub
    ...
End Sub
1)窗体自己应该是 Me，Form1 是一个特定实例。
2)不要用魔法数。

Answer 4

恩 谢谢朋友们 我也是直接 on error resume next  只是怕造成什么影响 是vb新手呵呵