Select Case List1.ListIndex
Case 0
Text1.Text = "123"
Case 1
Text1.Text ="321"
...
我想有个控件可以显图片,如果用Image控件,会很麻烦。如下:
Case 0
Text1.Text = "123"
Image1.visible=true
Image2.visible=fales
....
Image100.visible=fales
有没一个空件可以转下很多图片?这些图片有1 2 3 ....100
那样只需:???1.??? =1 便是第一图,
=2,便是第二图???
不是大侠们看得懂我的表达吗?
那位大侠可否,留于我QQ?
Case 0
Text1.Text = "123"
Case 1
Text1.Text ="321"
...
我想有个控件可以显图片,如果用Image控件,会很麻烦。如下:
Case 0
Text1.Text = "123"
Image1.visible=true
Image2.visible=fales
....
Image100.visible=fales
有没一个空件可以转下很多图片?这些图片有1 2 3 ....100
那样只需:???1.??? =1 便是第一图,
=2,便是第二图???
不是大侠们看得懂我的表达吗?
那位大侠可否,留于我QQ?
那恐怕动态添加有点难度
访问方式
Image1.Picture=loadRes(101,"BMP1")具体请以资源为关键字搜索以前的帖子
把你用到的图片等资源放一个文件夹里
然后用Image1.Picture = LoadPicture("路径")动态的读.可以用APP.PATH+" "
这样你建的文件夹要和EXE文件放在一起.
for i=0 to 100
image1(i).visable=false
next
image1(0).visible=true
劝你不要把图片弄到程序里面,还是需要什么图片就调用什么图片的好