Dim pbx As WinForm.PictureBoxpbx = Forms("运单打印").Controls("PictureBox1")If G_Site <> "部门A" Then MessageBox.show("正在载入图片...") pbx.Image = GetImage(ProjectPath & "\Images\部门A.jpg")Else MessageBox.show("正在载入图片...") pbx.Image = GetImage(ProjectPath & "\Images\部门B.jpg") End If
在AFTERLOAD里面写这个代码,如果添加 MessageBox.show("正在载入图片...") 这句,图片就正确被添加,
如果注释掉,就不能正确添加,请问有没有不用MessageBox.show也能正确添加的方法。