Question

VB6.0中image1要重复加载不同的图片，如何判断image1已加载

VB6.0中image1要重复加载不同的图片，用了load image1(),提示已加载，那么我要如何判断image1已加载，并把已加载的图像清空呢？
Adodc2.RecordSource = "Select sum(达到寿命的100%) as 累计寿命100% From 跳闸数据查询
Adodc2.Refresh
Text1.Text = Adodc2.Recordset.Fields("累计寿命100%")
提示在查询"Select sum(达到寿命的100%) 语法错误，为什么？

Answer 1

1、

If VarType(Image1(1)) = 3 Then
    Set Image1(1).Picture = LoadPicture()   'Image1(1)已加载，清空图像
Else
    Load Image1(1)   'Image1(1)未加载则现在加载
    Image1(1).Visible = True
End If

2、

字段名（或库名）中尽量不要含有特殊符号（比如%），条件允许的话也最好不要用中文名（否则有可能会有难于预计的错误发生）。如果确实要用特殊符号，则要把字段名用方括号括起来：

Select sum([达到寿命的100%]) as [累计寿命100%] From [跳闸数据查询]

Answer 2

在设计阶段可以右键点Image1，然后选择“置前”或“置后”来调整层次。
如果是在程序运行中则通过以下代码来改变：
移到顶层：
Image1.ZOrder 0
移到底层：
Image1.ZOrder 1