怎么把字符串转换成IMAGE

Question

我把IMAGE的名称放在表的字段中,加载时怎么将从表中读出的IMAGE名称转换成IMAGE控件;
我这样写了,报错!谢谢!

Answer 1

Dim Img              As Image
Set Img = RsMenu.Fields("Img")

Answer 2

?!
LS那办法可能能行吗???服ING我想这样可以:
IMAGE控件为,IMG_A IMG_B IMG_C
DIM IMGNAME AS STRING
IMGNAME=XXXXX.XXXX("XXX")
select case imgname
    case "IMG_A" 
        img_a.borderstyle=1
    case
………………比较麻烦。
如果LZ想简单的对应起来，可以把IMAGE做成数组，然后保存其INDEX属性到表中，使用时
DIM IMGINDEX AS LONG
IMGINDEX=XXXXXX '取字段内容
imagearr(IMGINDEX).borderstyle=1
即可。

Answer 3

实际上，还有一种方法。利用FORM的Controls集合

Answer 4

Dim a As Variant
Dim i As Integer
a = Array("Image1", "Image2", "Image3")
For i = 0 To UBound(a)
    '设置对应控件属性
    Debug.Print Me.Controls(a(i)).Name
Next要这个？

Answer 5

Dim Img As Image
Set Img = Me.Controls("Image1")1楼这样才对