• 新浪微博：
  • 微信 ：
按键精灵电脑版
立即下载

软件版本：2014.06
软件大小：22.9M
更新时间：03-18

按键精灵安卓版
立即下载

软件版本：3.3.8
软件大小：62.5M
更新时间：12-18

按键精灵iOS版
立即下载

软件版本：1.6.5
软件大小：29.2M
更新时间：12-01

最新企业版UiBot
立即下载

软件版本：3.3
软件大小：282M
更新时间：08-06

快捷导航

请 登录 后使用快捷导航
没有帐号？ 注册

登录 注册
返回列表
发新话题 回复该主题
查看: 576|回复: 4

[已解决] 窗口事件中的变量传递 [复制链接]

FreeMike
头像

Freemike

  • 按键精灵会员
  • 4573334
  • 46
  • 0 朵
  • 83 个
  • 0 个
  • 0 个
  • 2017-08-04
1#
t T
发表于 2021-01-07 12:14 | |只看楼主
  1. Event Form1.Load
  2. // DimEnv
  3. PicList = lib。文件。判断文件夹是否存在（“ C：\ PicList”）
  4. 如果PicList = False，则
  5. MsgBox“图片文件夹不存在，脚本将自动创建。如果创建失败请在C磁盘根目录下手动创建文件夹PicList”
  6. 调用Plugin.File.CreateFolder（“ C：\ PicList”）
  7. 延迟200
  8. 结束如果
  9. 遍历文件名= lib。文件。遍历指定目录下所有文件名（“ C：\ PicList” ）
  10. 对于h = 0到UBound（遍历文件名）-1
  11. ReDim保存图片名（h）
  12. 图片名（h）= split（遍历文件名（h），“ |”）（0）
  13. 下一个
  14. refile = join（图片名，“ |”）
  15. Form1.ComboBox1.List = refile
  16. l = 5
  17. 结束事件
  18. 事件Form1.ComboBox1.SelectChange
  19. MsgBox图片名（Form1.ComboBox1.ListIndex）//这句能读到选择的文件名
  20. MsgBox Form1.ComboBox1.ListIndex //此句能读到ListIndex返回值
  21. End事件
  22. MsgBox l //无法传递变量
  23. MsgBox Form1.ComboBox1.ListIndex //这句能读到ListIndex返回值
  24. MsgBox 图片名（Form1 .ComboBox1.ListIndex）//无法传递数组
复制代码
请问form.load事件里面的变量是否传递出来？我需要得到列表框替换的文件名。测试过DimEnv也不行，只能得到ListIndex的序号。然后我有个想法“ lib。文件。判断文件夹是否存在”在遍历文件时以什么来给分配编号的，如果在事件外面再遍历一次，然后ListIndex编号和事件外面遍历的编号对应赋值行不行？看起来是不是很蠢
所以还是想直接得到事件中的变量。

最后编辑FreeMike 最后编辑于 2021-01-07 12:55:21
本主题由 超级版主 瑞祥幽冥狼 于 2021/1/7 14:15:02 执行 审核帖子 操作
点赞
回顶部
瑞祥幽冥狼
头像

按 键 工 程 师 ● 兼 职

  • 超级版主
  • 1228894
  • 25725
  • 5466 朵
  • 33238 个
  • 2988 个
  • 0 个
  • 2012-07-18
按键X开拓者勋章过大年勋章双十一绝版纪念勋章抗战胜利70周年勋章单身汪勋章按键14周年庆纪念勋章按键学院幸运草勋章（永久）马年勋章（360天） 鹰眼勋章黄瓜勋章（永久）天使勋章按键明星黄金之翼举报达人活动狂人骨灰级按键用户按键精灵开发者6级龙年勋章（360天）十周年勋章（360天）兔年勋章（360天）论坛GG发帖高手爱心大使学有所成实习版主按键元老管理人员
2#
t T
发表于 2021-01-07 13:52 | |只看该用户

回复 1楼FreeMike的帖子

注:你好 [join]数组为字符串 使用[DimEnv]传递 事件内再进行[Split]

收 徒 索 引 ← ← ← ← ← ← ← ← ← ← 点 击

个 人 Q Q 1 : 1 2 2 3 1 1 6 6 1 8［将满］
个 人 Q Q 2 : 6 1 7 0 9 5 5 4 3［可加］
回顶部
FreeMike
头像

Freemike

  • 按键精灵会员
  • 4573334
  • 46
  • 0 朵
  • 83 个
  • 0 个
  • 0 个
  • 2017-08-04
3#
t T
发表于 2021-01-07 14:01 | |只看楼主

  1. picpath="C:\PicList\"
  2. Event Form1.Load
  3. picpath="C:\PicList\"
  4. PicList=lib.文件.判断文件夹是否存在(picpath)
  5. If PicList = False Then
  6. Call Plugin.File.CreateFolder(picpath)
  7. Delay 200
  8. End If
  9. 遍历文件名 = lib.文件.遍历指定目录下所有文件名(picpath)
  10. For h = 0 To UBound(遍历文件名) -1
  11. ReDim Preserve 图片名(h)
  12. 图片名(h) = split(遍历文件名(h), "|")(0)
  13. MessageBox 遍历文件名(h)
  14. Next
  15. refile = join(图片名, "|")
  16. Form1.ComboBox1.List =refile
  17. End Event
  18. 遍历文件名 = lib.文件.遍历指定目录下所有文件名(picpath)
  19. MessageBox picpath&遍历文件名(Form1.ComboBox1.ListIndex)
复制代码
比如这样也能得到选择的图片路径，有没有办法直接得到事件中选择的图片路径？

回顶部
FreeMike
头像

Freemike

  • 按键精灵会员
  • 4573334
  • 46
  • 0 朵
  • 83 个
  • 0 个
  • 0 个
  • 2017-08-04
4#
t T
发表于 2021-01-07 14:09 | |只看楼主

回复 2楼瑞祥幽冥狼的帖子

版主不好意思，最后没看懂你的意思。

1.[join]数组为字符串我知道，因为遍历返回的值本来就是字符串类型。
2.因用了redim ，如果前面去DimEnv的话就出错了。

3.事件内再进行[Split]的意思是SelectChange里面再Split吗？

回顶部
瑞祥幽冥狼
头像

按 键 工 程 师 ● 兼 职

  • 超级版主
  • 1228894
  • 25725
  • 5466 朵
  • 33238 个
  • 2988 个
  • 0 个
  • 2012-07-18
按键X开拓者勋章过大年勋章双十一绝版纪念勋章抗战胜利70周年勋章单身汪勋章按键14周年庆纪念勋章按键学院幸运草勋章（永久）马年勋章（360天） 鹰眼勋章黄瓜勋章（永久）天使勋章按键明星黄金之翼举报达人活动狂人骨灰级按键用户按键精灵开发者6级龙年勋章（360天）十周年勋章（360天）兔年勋章（360天）论坛GG发帖高手爱心大使学有所成实习版主按键元老管理人员
5#
t T
发表于 2021-01-07 14:19 | |只看该用户

回复 4楼FreeMike的帖子

注:你好 下次提问请提供简洁、扼要、清晰可直接测试的代码结构
  1. DimEnv 总
  2. Event Form1.LoadOver
  3. h=1
  4. ReDim Preserve 图片名(h)
  5. 图片名(0) = 2
  6. 图片名(1) = 3
  7. 总=Join(图片名,"|")
  8. End Event
  9. Event Form1.Button1.Click
  10. TracePrint 总
  11. End Event
复制代码
收 徒 索 引 ← ← ← ← ← ← ← ← ← ← 点 击

个 人 Q Q 1 : 1 2 2 3 1 1 6 6 1 8［将满］
个 人 Q Q 2 : 6 1 7 0 9 5 5 4 3［可加］
回顶部
上一主题| 下一主题
返回列表
发新话题 回复该主题
高级编辑器高级编辑器