音乐播放器-初级程序-极语言教程

//窗体代码:

整数 窗体,列表,播放,暂停,上曲,下曲;
程序资源 24,"清单.xml";
程序段 加载窗体
整数 左=(桌面.宽-350)>>1,上=(桌面.高-300)>>1;
窗体=创建窗口($200,程序.名称,"音乐播放器",$10C80064,左,上,350,300,0,0,0,0);
列表=创建窗口($200,"listbox","",$50210081,10,10,310,215,窗体,1,9,0);
播放=创建窗口($0,"Button","播放",$50000000,10,230,50,30,窗体,2,3,0);
暂停=创建窗口($0,"Button","暂停",$50000000,70,230,50,30,窗体,3,3,0);
上曲=创建窗口($0,"Button","上一曲",$50000000,135,230,50,30,窗体,4,3,0);
下曲=创建窗口($0,"Button","下一曲",$50000000,205,230,50,30,窗体,5,3,0);
窗体启动;读取消息
结束
程序段 左键点击(编号)
{判断(编号)为 2 播放_点击
为 3 暂停_点击
为 4 上曲_点击
为 5 下曲_点击
为 65537 列表_单击
}

 

//程序代码:

程序段 窗体消息(窗口,消息,参数,数据)
    判断(消息)为 窗口关闭{停止(0)}
    为 单击左键{左键点击(参数)}
    否则 处理窗口(窗口,消息,参数,数据)
结束
整数 当前音乐,数量
程序段 窗体启动
    整数 序号=0;文本 内容[64]
    数量=发送消息(列表,列表文件,0,"*.mp3")+1
    循环(序号<数量)
    {发送消息(列表,列表读取,序号,内容)
    音乐播放.添加(内容)
    序号++}
结束


程序段 播放_点击
    音乐播放.开始(当前音乐)
}

程序段 暂停_点击
    音乐播放.暂停(当前音乐)
}

程序段 上曲_点击
如果(当前音乐)暂停_点击
如果(当前音乐>1){当前音乐--
    发送消息(列表,列表选中,当前音乐-1,0)
播放_点击}
}

程序段 下曲_点击
如果(当前音乐)暂停_点击
如果(当前音乐<数量)当前音乐++
    发送消息(列表,列表选中,当前音乐-1,0)
播放_点击
}

程序段 列表_单击
    如果(当前音乐)暂停_点击
    当前音乐=发送消息(列表,列表选项,0,0)+1
    播放_点击
}