| chungbin |
2015-01-09 09:27 |
易语言免注册调用 APlayerCaller画面不能改变
我的代码
.版本 2
.支持库 spec
.程序集 播放器窗口程序集
.子程序 _播放器窗口_尺寸被改变
LOGO图片.宽度 ＝ 1400
LOGO图片.高度 ＝ 750
LOGO图片.顶边 ＝ 播放器窗口.高度 ÷ 2 － LOGO图片.高度 ÷ 2
LOGO图片.左边 ＝ 播放器窗口.宽度 ÷ 2 － LOGO图片.宽度 ÷ 2
打开文件按钮.左边 ＝ LOGO图片.宽度 ÷ 2 － (打开文件按钮.宽度 ＋ 打开文件右边下拉按钮.宽度) ÷ 2 ＋ 70
打开文件右边下拉按钮.左边 ＝ 打开文件按钮.左边 ＋ 打开文件按钮.宽度
打开文件按钮.顶边 ＝ LOGO图片.高度 ÷ 2 － 打开文件按钮.高度 ÷ 2
打开文件右边下拉按钮.顶边 ＝ 打开文件按钮.顶边
' CreateAPlayer (播放器窗口.取窗口句柄 (), 0, 0, 播放器窗口.宽度, 播放器窗口.高度, 0, 0, 到整数 (&OnOpenSuccess), 0, 0, 1, 到整数 (&OnDownloadCodec), 0)
' SetConfig (aplayer, 21, “1”)
SetConfig (aplayer, 204, 到文本 (播放器窗口.宽度) ＋ “;” ＋ 到文本 (播放器窗口.高度))
' SetWindowPos (播放器窗口.取窗口句柄 (), 0, 0, 0, 播放器窗口.宽度, 播放器窗口.高度, 2)
MoveWindow (aplayer, 0, 0, 播放器窗口.宽度, 播放器窗口.高度, 真)
.子程序 _打开文件右边下拉按钮_被单击
.判断开始 (打开文件夹等窗口.可视 ＝ 假)
打开文件夹等窗口.可视 ＝ 真
打开文件夹等窗口.顶边 ＝ 播放器窗口.顶边 ＋ 播放器窗口.LOGO图片.顶边 ＋ 播放器窗口.打开文件按钮.顶边 ＋ 播放器窗口.打开文件按钮.高度
打开文件夹等窗口.左边 ＝ 播放器窗口.左边 ＋ 播放器窗口.LOGO图片.左边 ＋ 播放器窗口.打开文件按钮.左边
.默认
打开文件夹等窗口.可视 ＝ 假
.判断结束
.子程序 _播放器窗口_创建完毕
LOGO图片.可视 ＝ 真
aplayer ＝ CreateAPlayer (播放器窗口.取窗口句柄 (), 0, 0, 播放器窗口.宽度, 播放器窗口.高度, 0, 0, 到整数 (&OnOpenSuccess), 0, 0, 0, 到整数 (&OnDownloadCodec), 0)
SetConfig (aplayer, 201, “3”)
调试输出 (播放器窗口.宽度)
调试输出 (播放器窗口.高度)
|
|