易语言免注册调用 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”)
调试输出 (播放器窗口.宽度)
调试输出 (播放器窗口.高度)

调整画面大小的方法是，SetWindowPos，其中的窗口句柄通过APlayer_GetWindow 获取。

楼上所言极是 楼主可以试一下