- Event Form1.Load
- // DimEnv
- PicList = lib。文件。判断文件夹是否存在(“ C:\ PicList”)
- 如果PicList = False,则
- MsgBox“图片文件夹不存在,脚本将自动创建。如果创建失败请在C磁盘根目录下手动创建文件夹PicList”
- 调用Plugin.File.CreateFolder(“ C:\ PicList”)
- 延迟200
- 结束如果
- 遍历文件名= lib。文件。遍历指定目录下所有文件名(“ C:\ PicList” )
- 对于h = 0到UBound(遍历文件名)-1
- ReDim保存图片名(h)
- 图片名(h)= split(遍历文件名(h),“ |”)(0)
- 下一个
- refile = join(图片名,“ |”)
- Form1.ComboBox1.List = refile
- l = 5
- 结束事件
- 事件Form1.ComboBox1.SelectChange
- MsgBox图片名(Form1.ComboBox1.ListIndex)//这句能读到选择的文件名
- MsgBox Form1.ComboBox1.ListIndex //此句能读到ListIndex返回值
- End事件
- MsgBox l //无法传递变量
- MsgBox Form1.ComboBox1.ListIndex //这句能读到ListIndex返回值
- MsgBox 图片名(Form1 .ComboBox1.ListIndex)//无法传递数组
复制代码请问form.load事件里面的变量是否传递出来?我需要得到列表框替换的文件名。测试过DimEnv也不行,只能得到ListIndex的序号。然后我有个想法“ lib。文件。判断文件夹是否存在”在遍历文件时以什么来给分配编号的,如果在事件外面再遍历一次,然后ListIndex编号和事件外面遍历的编号对应赋值行不行?看起来是不是很蠢

所以还是想直接得到事件中的变量。