Question

VB中利用PictureBOX控件一个实时变化的图形，点窗体最小化出错

在窗体上画一个PictureBOX，运行想最小化时，出现实时错误5：无效的过程调用或参数，点击调试指向picture1.scale（-30,30）-（30,30），这种情况怎么解决具体图形如下面的图所示？请大神指教





Answer 1

在进行实时绘图前，要先检测一下窗体的状态，如果是最小化状态就不绘图：
If Me.WindowState <> 1 Then
'开始绘图
End If

或者也可检测窗体用户区域的高度，如果为0也表示窗体处在最小化状态：
If Me.ScaleHeight > 0 Then
'开始绘图
End If

最好再结合On Error Resume Next语句，以防止出现在绘图进行过程中窗体被最小化。