一、学员问题描述

在学员学习进销存管理系统制作的作业V1.7.1版本移动位置后双击frm商品信息窗体出现下面错误；

这是因为能按钮区的btnadd_Image图片 控件等保存了原来路径下的图标。

二、解决办法：

只需要设计视图下找到这个提示的窗体，然后找到btnadd_Image，将picture 属性的值再清空一下 ，再保存就好了。

重   点：

一个一个手动改比较麻烦，可以批量改：

Sub ClearInvalidIcons()
    On Error Resume Next
    Dim frm As Form: Set frm = Forms(Forms.Count - 1)
    Dim ctl As Control
    For Each ctl In frm.Controls
        If TypeOf ctl Is CommandButton Then
            frm(ctl.Name & "_Image").Picture = ""
        End If
    Next
    Set ctl = Nothing
    Set frm = Nothing
End Sub

（1）把这段代码放到 basRDPRef 模块里面去

（2）然后把光标点到这段代码里面，按F5执行

（3）注意要处理的窗体，必须是最后打开的