分析:
当 PictureClip1的宽度〈 Picture2的宽度
或 PictureClip1的高度〈 Picture2的高度
时,执行 Picture2.Picture = PictureClip1.Clip 将出错。 原因:你用的图像文件setup.bmp的SIZE太小。处理:换一个SIZE 〉= 满屏的图像文件。
当 PictureClip1的宽度〈 Picture2的宽度
或 PictureClip1的高度〈 Picture2的高度
时,执行 Picture2.Picture = PictureClip1.Clip 将出错。 原因:你用的图像文件setup.bmp的SIZE太小。处理:换一个SIZE 〉= 满屏的图像文件。
是以下两行出错:
Picture1.Width = Screen.Width
Picture1.Height = Screen.Height
改成:picture1.autosize=true