怎么把字符串转换成IMAGE
我把IMAGE的名称放在表的字段中,加载时怎么将从表中读出的IMAGE名称转换成IMAGE控件;
我这样写了,报错!
谢谢!
[解决办法]
?!
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
即可。
[解决办法]
实际上，还有一种方法。。。。利用FORM的Controls集合
[解决办法]
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
要这个？
[解决办法]
Dim Img As Image
Set Img = Me.Controls( "Image1 ")
1楼这样才对
