Question

易语言，我用了一个外部组件的播放器和一个列表框，怎么双击列表框里面项目就能用播放器播放呢？

我做的是一个网络电视播放器.列表框中有很多电视台的名字，怎么单击列表框的确定电视台的名字就能，播放器里就能跳转到那个电视台，电视台的播放地址用XXX代替吧，写给我看看

下面是我的代码

.版本 2
.支持库 wmp9

.程序集 窗口程序集1

.子程序 __启动窗口_创建完毕

.子程序 _列表框1_列表项被选择

.如果真 (列表框1.现行选中项 ＝ 0)

.如果真结束
播放器1.地址 ＝ “mms://mencode.xinhuanet.com/live2”
_启动窗口.标题 ＝ “正在播放：新华社电视台----落魄书生网络电视”

Answer 1

需要一个列表框 一个按钮 一个播放器
====================================================================
.版本 2
.支持库 shell
.支持库 wmp9

.子程序 __启动窗口_创建完毕

按钮1.标题 ＝ “读入文件”

.子程序 _按钮1_被单击
.局部变量 寻, 文本型
.局部变量 目录, 文本型

目录 ＝ 浏览文件夹 (“请选择MP3文件目录”, )
.如果真 (取文本右边 (目录, 1) ≠ “\”)
目录 ＝ 目录 ＋ “\”
.如果真结束
寻 ＝ 寻找文件 (目录 ＋ “*.mp3”, #存档文件)
.判断循环首 (寻 ≠ “”)
.如果真 (寻 ≠ “.” 且 寻 ≠ “..”)
列表框1.插入项目 (0, 目录 ＋ 寻, )
.如果真结束
寻 ＝ 寻找文件 (, #存档文件)
.判断循环尾 ()

.子程序 _列表框1_双击选择

播放器1.地址 ＝ 列表框1.取项目文本 (列表框1.现行选中项)

.子程序 _播放器1_播放状态被改变
.参数 新的状态, 整数型

.判断开始 (新的状态 ＝ 1)
播放器1.地址 ＝ 列表框1.取项目文本 (列表框1.现行选中项 ＋ 1)
.默认

.判断结束