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?

解决方案 »

  1.   

    我想,所有的文件都包含在EXE里~所以...
      

  2.   

    你的意思是程序完成后只有一个EXE文件就可以了是吗?
    那恐怕动态添加有点难度
      

  3.   

    使用资源文件
    访问方式
    Image1.Picture=loadRes(101,"BMP1")具体请以资源为关键字搜索以前的帖子
      

  4.   

    每次把连接连到图片的位置,就用一个image就好。
      

  5.   

    我觉得这样的方法比较好
    把你用到的图片等资源放一个文件夹里
    然后用Image1.Picture = LoadPicture("路径")动态的读.可以用APP.PATH+"  "
    这样你建的文件夹要和EXE文件放在一起.
      

  6.   

    或者使用图片数组
    for i=0 to 100
      image1(i).visable=false
    next
    image1(0).visible=true
      

  7.   

    mmcgzs(毛毛虫) 说的就是用控件数组啦。
    劝你不要把图片弄到程序里面,还是需要什么图片就调用什么图片的好