使用的美易模块 求图片框句柄问题 图片框句柄获不到

huazhengfeng000

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_窗口1
变量名	类 型	数组	备 注
窗口	分层_窗口
歌曲列表	分层_列表框
按钮	分层_按钮	4
bass	BASS类
进度控制	分层_进度条
音频总时长	双精度小数型
音量控制	分层_hk条
音乐标签	分层_标签
图片框	分层_图片框
程_场景句柄	整数型
程_101E5	整数型
程_频谱数据1	整数型	512
程_频谱数据2	小数型	512
程_频谱数据3	小数型	512
程_频谱数据4	整数型	512
调试句柄	整数型
error	整数型

子程序名	返回值类型	公开	备 注
主窗口_创建完毕

' 窗口.创建自句柄 (取窗口句柄 (), 0, 读入文件 (“C:\Users\Administrator\Desktop\1\res\14.JPG”), #背景图_平铺_ME, , , 真, , , , , , 真, , 真, #载入特效_翻转_ME, #关闭特效_翻转_ME, , 读入文件 (取运行目录 () ＋ “/轻播放器.ico”), 位或 (#窗口_关闭钮, #窗口_最大化钮, #窗口_最小化钮, #窗口_换肤钮))
窗口.创建 (, , , 1200, 800, , , 读入文件 (“C:\Users\Administrator\Desktop\1\res\14.JPG”), , , , , , )
窗口.标题 (“轻 播 放 器”, )
bass.加载Bass (, , , )
歌曲列表.创建 (窗口.取句柄 (), 0, 10, 25, 300, 770, 25, 40, , , 150, #黄褐, , , , #白色, 40, , , , )
歌曲列表.置表头颜色 ( #黑色, 60, )
歌曲列表.插入列 (“歌曲”, , 150, 1)
歌曲列表.插入列 (“歌手”, , 150, 2, )
歌曲列表.插入列 (“路径”, , 100, 3, )
歌曲列表.置列对齐 (1, 1, 1)
歌曲列表.置列对齐 (2, 1, 1)
歌曲列表.置列标题对齐 (1, #列表对齐_居中对齐_ME )
歌曲列表.置列标题对齐 (2, #列表对齐_居中对齐_ME )
歌曲列表.置列标题对齐 (3, #列表对齐_居中对齐_ME )
按钮 [1].创建图形钮 (窗口.取句柄 (), 0, 350, 40, 50, 50, #按钮_上一曲, , )
按钮 [2].创建图形钮 (窗口.取句柄 (), 0, 400, 20, 100, 100, #按钮_播放, , )
按钮 [3].创建图形钮 (窗口.取句柄 (), 0, 500, 40, 50, 50, #按钮_下一曲, , )
按钮 [4].创建图形钮 (窗口.取句柄 (), 0, 400, 20, 100, 100, #按钮_暂停, , )
按钮 [4].可视 (假, )
进度控制.创建 (窗口.取句柄 (), 0, 320, 730, 870, 15, 1, 1000, 1, , , , , , , #进度条风格_圆角_ME, #进度光风格_底亮白光_ME )
音量控制.创建 (窗口.取句柄 (), 0, 600, 45, 112, 40, , 1, 100, 1, , , , 真, , 1)
音量控制.背景色 ( #天蓝, )
音乐标签.创建 (窗口.取句柄 (), 0, 730, 40, 150, 50, “0”, , , , , , )
音乐标签.置字体属性 (, , 16, )
图片框.创建 (窗口.取句柄 (), , 600, 300, 340, 200, , , #黄色, 100, )
' 图片框.背景色 (#黑色, )
图片框.刷新显示 ()
音量控制.事件_位置改变 (到整数 (&音量控制))
按钮 [1].事件_鼠标左键按下 (到整数 (&鼠标按下上一曲))
按钮 [2].事件_鼠标左键按下 (到整数 (&鼠标按下播放))
按钮 [3].事件_鼠标左键按下 (到整数 (&鼠标按下下一曲))
歌曲列表.事件_项目被双击 (到整数 (&项目双击))
进度控制.事件_鼠标左键按下 (到整数 (&鼠标左键按下))
调试输出 (窗口.取句柄 ())
调试输出 (图片框.取句柄 ())
调试句柄 ＝ 图片框.取句柄 ()
调试输出 (GetDlgItem (窗口.取句柄 (), GetDlgCtrlID (调试句柄)))
窗口.事件_控制钮事件 (, 到整数 (&换皮肤))
音量控制.当前位置 (20)
音量_设置当前程序音量 (音量控制.当前位置 (20))
音乐标签.标题 (到文本 (音量控制.当前位置 (20)))
延迟 (1000)
数据库初始化 ()
' 列表框初始化 ()
窗口.事件_将被销毁 (到整数 (&关闭窗口))
窗口_消息循环 ()

子程序名	返回值类型	公开	备 注
画频谱			画频谱
参数名	类 型	参考	可空	数组	备 注
文件句柄	整数型
图片	分层_图片框				指定显示图片框
频带宽度	整数型				单个频带宽度
间隔	整数型				频带间隔。
消逝速度	整数型				消逝速度
顶峰延迟	整数型				顶峰延迟
高峰颜色	整数型				高峰颜色
顶端颜色	整数型				顶端颜色
底端颜色	整数型				底端颜色

变量名	类 型	静态	数组	备 注
局_颜色	整数型		3
局_频谱	RGB颜色		3
图片框句柄	整数型
内存场景	整数型
画板场景	整数型
位图句柄	整数型
取ftt数据	整数型
局_频谱数据	小数型		1024
局_循环计次	整数型
局_10	整数型
局_11	整数型
局_12	小数型
频带数量	整数型
频谱矩形柱1	rectaa
频谱矩形柱2	rectaa
局_频谱高度	整数型
局_顶端	RGB颜色
局_颜色1	整数型
局_颜色2	整数型

局_颜色 [1] ＝ 高峰颜色
局_颜色 [2] ＝ 顶端颜色
局_颜色 [3] ＝ 底端颜色
局_频谱 [1].红 ＝ 颜色_红 (局_颜色 [1])
局_频谱 [1].绿 ＝ 颜色_绿 (局_颜色 [1])
局_频谱 [1].蓝 ＝ 颜色_蓝 (局_颜色 [1])
局_频谱 [2].红 ＝ 颜色_红 (局_颜色 [2])
局_频谱 [2].绿 ＝ 颜色_绿 (局_颜色 [2])
局_频谱 [2].蓝 ＝ 颜色_蓝 (局_颜色 [2])
局_频谱 [3].红 ＝ 颜色_红 (局_颜色 [3])
局_频谱 [3].绿 ＝ 颜色_绿 (局_颜色 [3])
局_频谱 [3].蓝 ＝ 颜色_蓝 (局_颜色 [3])
' 图片框句柄 ＝ GetDlgItem (窗口.取句柄 (), GetDlgCtrlID (调试句柄))
图片框句柄 ＝ 图片框.取句柄 ()
调试输出 (图片框句柄)
画板场景 ＝ GetDC (图片框句柄)
内存场景 ＝ CreateCompatibleDC (画板场景)
位图句柄 ＝ CreateCompatibleBitmap (画板场景, 图片框.宽度 (), 图片框.高度 ())
SelectObject (内存场景, 位图句柄)
BitBlt (内存场景, 0, 0, 图片框.宽度 (), 图片框.高度 (), 画板场景, 0, 0, #SRCCOPY )
如果真 (程_场景句柄 ≠ 0)
BitBlt (内存场景, 0, 0, 图片框.宽度 (), 图片框.高度 (), 程_场景句柄, 0, 0, #SRCCOPY )
DeleteObject (位图句柄)
DeleteDC (程_场景句柄)
程_场景句柄 ＝ CreateCompatibleDC (画板场景)
位图句柄 ＝ CreateCompatibleBitmap (画板场景, 图片框.宽度 (), 图片框.高度 ())
SelectObject (程_场景句柄, 位图句柄)
BitBlt (程_场景句柄, 0, 0, 图片框.宽度 (), 图片框.高度 (), 内存场景, 0, 0, #SRCCOPY )
如果真 (文件句柄 ≠ 0)
取ftt数据 ＝ BASS_ChannelGetData (文件句柄, 局_频谱数据, #BASS_DATA_FFT512 )
如果真 (取ftt数据 ＝ -1)
调试输出 (“错误代码”, BASS_ErrorGetCode ())
' error ＝ BASS_ErrorGetCode ()
' 调试输出 (error)
如果真 (取ftt数据 ≠ -1)
变量循环首 (1, 512, 1, 局_循环计次)
如果真 (程_频谱数据1 [局_循环计次] ＜ 局_频谱数据 [局_循环计次])
程_频谱数据1 [局_循环计次] ＝ 局_频谱数据 [局_循环计次]

变量循环尾 ()
如果真 (频带宽度 ＜ 1)
频带宽度 ＝ 1
如果真 (间隔 ＜ 0)
间隔 ＝ 0
' 频带数量 ＝ (图片框.宽度 ＋ 间隔) ＼ (频带宽度 ＋ 间隔)
频带数量 ＝ 图片框.宽度 ()
程_101E5 ＝ 256 ��� (频带数量 ＋ 1)
如果真 (程_101E5 ≤ 1)
程_101E5 ＝ 1
如果真 (图片框.宽度 () ＞ 512)
图片框.宽度 (512)

计次循环首 (频带数量, 局_循环计次)
局_12 ＝ 0
局_11 ＝ (频带宽度 ＋ 间隔) �� (局_循环计次 － 1)
局_循环计次 ＝ 局_循环计次 × 程_101E5
计次循环首 (程_101E5, 局_10)
局_12 ＝ 局_12 ＋ 局_频谱数据 [局_循环计次 ＋ 局_10]
计次循环尾 ()
局_12 ＝ 局_12 × 求自然对数 (局_循环计次 ＋ 2)
如果 (局_12 ＜ 0.01)
局_12 ＝ 局_12 × 10
局_12 ＝ 局_12 × #pi
如果真 (局_12 ＞ 0.8)
局_12 ＝ 局_12 × 0.4
如果真 (局_12 ＞ 1)
局_12 ＝ 1

如果 (局_12 ＞ 程_频谱数据1 [局_循环计次] － 消逝速度 ÷ 100)
程_频谱数据1 [局_循环计次] ＝ 局_12
程_频谱数据1 [局_循环计次] ＝ 程_频谱数据1 [局_循环计次] － 消逝速度 ÷ 100
如果真 (程_频谱数据1 [局_循环计次] ＜ 0)
程_频谱数据1 [局_循环计次] ＝ 0
局_12 ＝ 程_频谱数据1 [局_循环计次]
频谱矩形柱1.左边 ＝ 局_11
频谱矩形柱1.顶边 ＝ 图片框.高度 () �� (1 － 局_12)
频谱矩形柱1.右边 ＝ 频谱矩形柱1.左边 ＋ 频带宽度
频谱矩形柱1.底边 ＝ 图片框.高度 () － 1
如果真 (频谱矩形柱1.顶边 ＜ 0)
频谱矩形柱1.顶边 ＝ 1
频谱矩形柱1.底边 ＝ 图片框.高度 ()
局_顶端.红 ＝ (局_频谱 [3].红 × 频谱矩形柱1.顶边 ＋ 局_频谱 [2].红 �� (图片框.高度 () － 频谱矩形柱1.顶边)) ÷ 图片框.高度 ()
局_顶端.绿 ＝ (局_频谱 [3].绿 × 频谱矩形柱1.顶边 ＋ 局_频谱 [2].绿 �� (图片框.高度 () － 频谱矩形柱1.顶边)) ÷ 图片框.高度 ()
局_顶端.蓝 ＝ (局_频谱 [3].蓝 × 频谱矩形柱1.顶边 ＋ 局_频谱 [2].蓝 �� (图片框.高度 () － 频谱矩形柱1.顶边)) ÷ 图片框.高度 ()
局_颜色2 ＝ 取颜色值 (局_频谱 [3].红, 局_频谱 [3].绿, 局_频谱 [3].蓝)
颜色配置 (内存场景, 频谱矩形柱1, 取颜色值 (局_顶端.红, 局_顶端.绿, 局_顶端.蓝), 局_颜色2, 假)
局_频谱高度 ＝ 图片框.高度 () － 频谱矩形柱1.顶边
判断 (局_频谱高度 ＞ 程_频谱数据2 [局_循环计次])
程_频谱数据2 [局_循环计次] ＝ 局_频谱高度
程_频谱数据3 [局_循环计次] ＝ 顶峰延迟
程_频谱数据4 [局_循环计次] ＝ 1
程_频谱数据3 [局_循环计次] ＝ 程_频谱数据3 [局_循环计次] － 1
如果真 (程_频谱数据3 [局_循环计次] ＜ 0)
如果真 (程_频谱数据2 [局_循环计次] ＞ 1)
程_频谱数据2 [局_循环计次] ＝ 程_频谱数据2 [局_循环计次] － 1
如果真 (程_频谱数据2 [局_循环计次] ＜ 0)
程_频谱数据2 [局_循环计次] ＝ 0
如果真 (程_频谱数据2 [局_循环计次] ＞ 10 且 频带宽度 ＝ 1)
如果 (程_频谱数据4 [局_循环计次] ＜ 4)
程_频谱数据4 [局_循环计次] ＝ 程_频谱数据4 [局_循环计次] ＋ 1
程_频谱数据4 [局_循环计次] ＝ 程_频谱数据4 [局_循环计次] － 1



频谱矩形柱2.左边 ＝ 频谱矩形柱1.左边
频谱矩形柱2.顶边 ＝ 图片框.高度 () － 程_频谱数据2 [局_循环计次]
频谱矩形柱2.右边 ＝ 频谱矩形柱1.右边
如果真 (程_频谱数据4 [局_循环计次] ≤ 0)
程_频谱数据4 [局_循环计次] ＝ 1
判断 (频谱矩形柱2.顶边 ＜ 0)
频谱矩形柱2.顶边 ＝ 0
判断 (频谱矩形柱2.顶边 ≥ 图片框.高度 () － 1)
频谱矩形柱2.顶边 ＝ 图片框.高度 () － 1


频谱矩形柱2.底边 ＝ 频谱矩形柱2.顶边 － 程_频谱数据4 [局_循环计次]
局_颜色1 ＝ 取颜色值 (局_频谱 [1].红, 局_频谱 [1].绿, 局_频谱 [1].蓝)
如果 (频带宽度 ＝ 1)
局_颜色2 ＝ 取颜色值 (80, 80, 80)
局_颜色2 ＝ 局_颜色1
颜色配置 (内存场景, 频谱矩形柱2, 局_颜色1, 局_颜色2, 假)
计次循环尾 ()

BitBlt (画板场景, 0, 0, 图片框.宽度 (), 图片框.高度 (), 内存场景, 0, 0, #SRCCOPY )
DeleteDC (内存场景)
ReleaseDC (图片框句柄, 画板场景)
DeleteObject (位图句柄)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_窗口1<br /> .程序集变量 窗口, 分层_窗口<br /> .程序集变量 歌曲列表, 分层_列表框<br /> .程序集变量 按钮, 分层_按钮, , "4"<br /> .程序集变量 bass, BASS类<br /> .程序集变量 进度控制, 分层_进度条<br /> .程序集变量 音频总时长, 双精度小数型<br /> .程序集变量 音量控制, 分层_hk条<br /> .程序集变量 音乐标签, 分层_标签<br /> .程序集变量 图片框, 分层_图片框<br /> .程序集变量 程_场景句柄, 整数型<br /> .程序集变量 程_101E5, 整数型<br /> .程序集变量 程_频谱数据1, 整数型, , "512"<br /> .程序集变量 程_频谱数据2, 小数型, , "512"<br /> .程序集变量 程_频谱数据3, 小数型, , "512"<br /> .程序集变量 程_频谱数据4, 整数型, , "512"<br /> .程序集变量 调试句柄, 整数型<br /> .程序集变量 error, 整数型<br /> <br /> .子程序 主窗口_创建完毕<br /> <br /> <br /> ' 窗口.创建自句柄 (取窗口句柄 (), 0, 读入文件 (“C:\Users\Administrator\Desktop\1\res\14.JPG”), #背景图_平铺_ME, , , 真, , , , , , 真, , 真, #载入特效_翻转_ME, #关闭特效_翻转_ME, , 读入文件 (取运行目录 () ＋ “/轻播放器.ico”), 位或 (#窗口_关闭钮, #窗口_最大化钮, #窗口_最小化钮, #窗口_换肤钮))<br /> 窗口.创建 (, , , 1200, 800, , , 读入文件 (“C:\Users\Administrator\Desktop\1\res\14.JPG”), , , , , , )<br /> 窗口.标题 (“轻 播 放 器”, )<br /> bass.加载Bass (, , , )<br /> 歌曲列表.创建 (窗口.取句柄 (), 0, 10, 25, 300, 770, 25, 40, , , 150, #黄褐, , , , #白色, 40, , , , )<br /> 歌曲列表.置表头颜色 (#黑色, 60, )<br /> 歌曲列表.插入列 (“歌曲”, , 150, 1)<br /> 歌曲列表.插入列 (“歌手”, , 150, 2, )<br /> 歌曲列表.插入列 (“路径”, , 100, 3, )<br /> 歌曲列表.置列对齐 (1, 1, 1)<br /> 歌曲列表.置列对齐 (2, 1, 1)<br /> 歌曲列表.置列标题对齐 (1, #列表对齐_居中对齐_ME)<br /> 歌曲列表.置列标题对齐 (2, #列表对齐_居中对齐_ME)<br /> 歌曲列表.置列标题对齐 (3, #列表对齐_居中对齐_ME)<br /> 按钮 [1].创建图形钮 (窗口.取句柄 (), 0, 350, 40, 50, 50, #按钮_上一曲, , )<br /> 按钮 [2].创建图形钮 (窗口.取句柄 (), 0, 400, 20, 100, 100, #按钮_播放, , )<br /> 按钮 [3].创建图形钮 (窗口.取句柄 (), 0, 500, 40, 50, 50, #按钮_下一曲, , )<br /> 按钮 [4].创建图形钮 (窗口.取句柄 (), 0, 400, 20, 100, 100, #按钮_暂停, , )<br /> 按钮 [4].可视 (假, )<br /> 进度控制.创建 (窗口.取句柄 (), 0, 320, 730, 870, 15, 1, 1000, 1, , , , , , , #进度条风格_圆角_ME, #进度光风格_底亮白光_ME)<br /> 音量控制.创建 (窗口.取句柄 (), 0, 600, 45, 112, 40, , 1, 100, 1, , , , 真, , 1)<br /> 音量控制.背景色 (#天蓝, )<br /> 音乐标签.创建 (窗口.取句柄 (), 0, 730, 40, 150, 50, “0”, , , , , , )<br /> 音乐标签.置字体属性 (, , 16, )<br /> <br /> 图片框.创建 (窗口.取句柄 (), , 600, 300, 340, 200, , , #黄色, 100, )<br /> ' 图片框.背景色 (#黑色, )<br /> 图片框.刷新显示 ()<br /> 音量控制.事件_位置改变 (到整数 (&音量控制))<br /> 按钮 [1].事件_鼠标左键按下 (到整数 (&鼠标按下上一曲))<br /> 按钮 [2].事件_鼠标左键按下 (到整数 (&鼠标按下播放))<br /> 按钮 [3].事件_鼠标左键按下 (到整数 (&鼠标按下下一曲))<br /> 歌曲列表.事件_项目被双击 (到整数 (&项目双击))<br /> 进度控制.事件_鼠标左键按下 (到整数 (&鼠标左键按下))<br /> 调试输出 (窗口.取句柄 ())<br /> 调试输出 (图片框.取句柄 ())<br /> 调试句柄 ＝ 图片框.取句柄 ()<br /> 调试输出 (GetDlgItem (窗口.取句柄 (), GetDlgCtrlID (调试句柄)))<br /> <br /> 窗口.事件_控制钮事件 (, 到整数 (&换皮肤))<br /> 音量控制.当前位置 (20)<br /> 音量_设置当前程序音量 (音量控制.当前位置 (20))<br /> 音乐标签.标题 (到文本 (音量控制.当前位置 (20)))<br /> 延迟 (1000)<br /> 数据库初始化 ()<br /> ' 列表框初始化 ()<br /> 窗口.事件_将被销毁 (到整数 (&关闭窗口))<br /> 窗口_消息循环 ()<br />   <br /> <br /> .版本 2<br /> .支持库 spec<br /> <br /> .子程序 画频谱, , 公开, 画频谱<br /> .参数 文件句柄, 整数型<br /> .参数 图片, 分层_图片框, , 指定显示图片框<br /> .参数 频带宽度, 整数型, , 单个频带宽度<br /> .参数 间隔, 整数型, , 频带间隔。<br /> .参数 消逝速度, 整数型, , 消逝速度<br /> .参数 顶峰延迟, 整数型, , 顶峰延迟<br /> .参数 高峰颜色, 整数型, , 高峰颜色<br /> .参数 顶端颜色, 整数型, , 顶端颜色<br /> .参数 底端颜色, 整数型, , 底端颜色<br /> .局部变量 局_颜色, 整数型, , "3"<br /> .局部变量 局_频谱, RGB颜色, , "3"<br /> .局部变量 图片框句柄, 整数型<br /> .局部变量 内存场景, 整数型<br /> .局部变量 画板场景, 整数型<br /> .局部变量 位图句柄, 整数型<br /> .局部变量 取ftt数据, 整数型<br /> .局部变量 局_频谱数据, 小数型, , "1024"<br /> .局部变量 局_循环计次, 整数型<br /> .局部变量 局_10, 整数型<br /> .局部变量 局_11, 整数型<br /> .局部变量 局_12, 小数型<br /> .局部变量 频带数量, 整数型<br /> .局部变量 频谱矩形柱1, rectaa<br /> .局部变量 频谱矩形柱2, rectaa<br /> .局部变量 局_频谱高度, 整数型<br /> .局部变量 局_顶端, RGB颜色<br /> .局部变量 局_颜色1, 整数型<br /> .局部变量 局_颜色2, 整数型<br /> <br /> 局_颜色 [1] ＝ 高峰颜色<br /> 局_颜色 [2] ＝ 顶端颜色<br /> 局_颜色 [3] ＝ 底端颜色<br /> 局_频谱 [1].红 ＝ 颜色_红 (局_颜色 [1])<br /> 局_频谱 [1].绿 ＝ 颜色_绿 (局_颜色 [1])<br /> 局_频谱 [1].蓝 ＝ 颜色_蓝 (局_颜色 [1])<br /> 局_频谱 [2].红 ＝ 颜色_红 (局_颜色 [2])<br /> 局_频谱 [2].绿 ＝ 颜色_绿 (局_颜色 [2])<br /> 局_频谱 [2].蓝 ＝ 颜色_蓝 (局_颜色 [2])<br /> 局_频谱 [3].红 ＝ 颜色_红 (局_颜色 [3])<br /> 局_频谱 [3].绿 ＝ 颜色_绿 (局_颜色 [3])<br /> 局_频谱 [3].蓝 ＝ 颜色_蓝 (局_颜色 [3])<br /> ' 图片框句柄 ＝ GetDlgItem (窗口.取句柄 (), GetDlgCtrlID (调试句柄))<br /> 图片框句柄 ＝ 图片框.取句柄 ()<br /> 调试输出 (图片框句柄)<br /> 画板场景 ＝ GetDC (图片框句柄)<br /> <br /> 内存场景 ＝ CreateCompatibleDC (画板场景)<br /> 位图句柄 ＝ CreateCompatibleBitmap (画板场景, 图片框.宽度 (), 图片框.高度 ())<br /> SelectObject (内存场景, 位图句柄)<br /> BitBlt (内存场景, 0, 0, 图片框.宽度 (), 图片框.高度 (), 画板场景, 0, 0, #SRCCOPY)<br /> .如果真 (程_场景句柄 ≠ 0)<br />     BitBlt (内存场景, 0, 0, 图片框.宽度 (), 图片框.高度 (), 程_场景句柄, 0, 0, #SRCCOPY)<br />     DeleteObject (位图句柄)<br />     DeleteDC (程_场景句柄)<br /> <br /> .如果真结束<br /> 程_场景句柄 ＝ CreateCompatibleDC (画板场景)<br /> 位图句柄 ＝ CreateCompatibleBitmap (画板场景, 图片框.宽度 (), 图片框.高度 ())<br /> <br /> SelectObject (程_场景句柄, 位图句柄)<br /> BitBlt (程_场景句柄, 0, 0, 图片框.宽度 (), 图片框.高度 (), 内存场景, 0, 0, #SRCCOPY)<br /> .如果真 (文件句柄 ≠ 0)<br />     取ftt数据 ＝ BASS_ChannelGetData (文件句柄, 局_频谱数据, #BASS_DATA_FFT512)<br />     .如果真 (取ftt数据 ＝ -1)<br />         调试输出 (“错误代码”, BASS_ErrorGetCode ())<br />     .如果真结束<br />     ' error ＝ BASS_ErrorGetCode ()<br />     ' 调试输出 (error)<br />     .如果真 (取ftt数据 ≠ -1)<br />         .变量循环首 (1, 512, 1, 局_循环计次)<br />             .如果真 (程_频谱数据1 [局_循环计次] ＜ 局_频谱数据 [局_循环计次])<br />                 程_频谱数据1 [局_循环计次] ＝ 局_频谱数据 [局_循环计次]<br />             .如果真结束<br /> <br />         .变量循环尾 ()<br />         .如果真 (频带宽度 ＜ 1)<br />             频带宽度 ＝ 1<br />         .如果真结束<br />         .如果真 (间隔 ＜ 0)<br />             间隔 ＝ 0<br />         .如果真结束<br />         ' 频带数量 ＝ (图片框.宽度 ＋ 间隔) ＼ (频带宽度 ＋ 间隔)<br />         频带数量 ＝ 图片框.宽度 ()<br />         程_101E5 ＝ 256 ＼ (频带数量 ＋ 1)<br />         .如果真 (程_101E5 ≤ 1)<br />             程_101E5 ＝ 1<br />             .如果真 (图片框.宽度 () ＞ 512)<br />                 图片框.宽度 (512)<br />             .如果真结束<br /> <br />         .如果真结束<br />         .计次循环首 (频带数量, 局_循环计次)<br />             局_12 ＝ 0<br />             局_11 ＝ (频带宽度 ＋ 间隔) × (局_循环计次 － 1)<br />             局_循环计次 ＝ 局_循环计次 × 程_101E5<br />             .计次循环首 (程_101E5, 局_10)<br />                 局_12 ＝ 局_12 ＋ 局_频谱数据 [局_循环计次 ＋ 局_10]<br />             .计次循环尾 ()<br />             局_12 ＝ 局_12 × 求自然对数 (局_循环计次 ＋ 2)<br />             .如果 (局_12 ＜ 0.01)<br />                 局_12 ＝ 局_12 × 10<br />             .否则<br />                 局_12 ＝ 局_12 × #pi<br />             .如果结束<br />             .如果真 (局_12 ＞ 0.8)<br />                 局_12 ＝ 局_12 × 0.4<br />                 .如果真 (局_12 ＞ 1)<br />                     局_12 ＝ 1<br />                 .如果真结束<br /> <br />             .如果真结束<br />             .如果 (局_12 ＞ 程_频谱数据1 [局_循环计次] － 消逝速度 ÷ 100)<br />                 程_频谱数据1 [局_循环计次] ＝ 局_12<br />             .否则<br />                 程_频谱数据1 [局_循环计次] ＝ 程_频谱数据1 [局_循环计次] － 消逝速度 ÷ 100<br />                 .如果真 (程_频谱数据1 [局_循环计次] ＜ 0)<br />                     程_频谱数据1 [局_循环计次] ＝ 0<br />                 .如果真结束<br />                 局_12 ＝ 程_频谱数据1 [局_循环计次]<br />             .如果结束<br />             频谱矩形柱1.左边 ＝ 局_11<br />             频谱矩形柱1.顶边 ＝ 图片框.高度 () × (1 － 局_12)<br />             频谱矩形柱1.右边 ＝ 频谱矩形柱1.左边 ＋ 频带宽度<br /> <br />             频谱矩形柱1.底边 ＝ 图片框.高度 () － 1<br />             .如果真 (频谱矩形柱1.顶边 ＜ 0)<br />                 频谱矩形柱1.顶边 ＝ 1<br />             .如果真结束<br />             频谱矩形柱1.底边 ＝ 图片框.高度 ()<br />             局_顶端.红 ＝ (局_频谱 [3].红 × 频谱矩形柱1.顶边 ＋ 局_频谱 [2].红 × (图片框.高度 () － 频谱矩形柱1.顶边)) ÷ 图片框.高度 ()<br />             局_顶端.绿 ＝ (局_频谱 [3].绿 × 频谱矩形柱1.顶边 ＋ 局_频谱 [2].绿 × (图片框.高度 () － 频谱矩形柱1.顶边)) ÷ 图片框.高度 ()<br />             局_顶端.蓝 ＝ (局_频谱 [3].蓝 × 频谱矩形柱1.顶边 ＋ 局_频谱 [2].蓝 × (图片框.高度 () － 频谱矩形柱1.顶边)) ÷ 图片框.高度 ()<br />             局_颜色2 ＝ 取颜色值 (局_频谱 [3].红, 局_频谱 [3].绿, 局_频谱 [3].蓝)<br />             颜色配置 (内存场景, 频谱矩形柱1, 取颜色值 (局_顶端.红, 局_顶端.绿, 局_顶端.蓝), 局_颜色2, 假)<br />             局_频谱高度 ＝ 图片框.高度 () － 频谱矩形柱1.顶边<br />             .判断开始 (局_频谱高度 ＞ 程_频谱数据2 [局_循环计次])<br />                 程_频谱数据2 [局_循环计次] ＝ 局_频谱高度<br />                 程_频谱数据3 [局_循环计次] ＝ 顶峰延迟<br />                 程_频谱数据4 [局_循环计次] ＝ 1<br />             .默认<br />                 程_频谱数据3 [局_循环计次] ＝ 程_频谱数据3 [局_循环计次] － 1<br />                 .如果真 (程_频谱数据3 [局_循环计次] ＜ 0)<br />                     .如果真 (程_频谱数据2 [局_循环计次] ＞ 1)<br />                         程_频谱数据2 [局_循环计次] ＝ 程_频谱数据2 [局_循环计次] － 1<br />                     .如果真结束<br />                     .如果真 (程_频谱数据2 [局_循环计次] ＜ 0)<br />                         程_频谱数据2 [局_循环计次] ＝ 0<br />                     .如果真结束<br />                     .如果真 (程_频谱数据2 [局_循环计次] ＞ 10 且 频带宽度 ＝ 1)<br />                         .如果 (程_频谱数据4 [局_循环计次] ＜ 4)<br />                             程_频谱数据4 [局_循环计次] ＝ 程_频谱数据4 [局_循环计次] ＋ 1<br />                         .否则<br />                             程_频谱数据4 [局_循环计次] ＝ 程_频谱数据4 [局_循环计次] － 1<br />                         .如果结束<br /> <br />                     .如果真结束<br /> <br />                 .如果真结束<br /> <br />             .判断结束<br />             频谱矩形柱2.左边 ＝ 频谱矩形柱1.左边<br />             频谱矩形柱2.顶边 ＝ 图片框.高度 () － 程_频谱数据2 [局_循环计次]<br />             频谱矩形柱2.右边 ＝ 频谱矩形柱1.右边<br />             .如果真 (程_频谱数据4 [局_循环计次] ≤ 0)<br />                 程_频谱数据4 [局_循环计次] ＝ 1<br />             .如果真结束<br />             .判断开始 (频谱矩形柱2.顶边 ＜ 0)<br />                 频谱矩形柱2.顶边 ＝ 0<br />             .判断 (频谱矩形柱2.顶边 ≥ 图片框.高度 () － 1)<br />                 频谱矩形柱2.顶边 ＝ 图片框.高度 () － 1<br />             .默认<br /> <br />             .判断结束<br />             频谱矩形柱2.底边 ＝ 频谱矩形柱2.顶边 － 程_频谱数据4 [局_循环计次]<br />             局_颜色1 ＝ 取颜色值 (局_频谱 [1].红, 局_频谱 [1].绿, 局_频谱 [1].蓝)<br />             .如果 (频带宽度 ＝ 1)<br />                 局_颜色2 ＝ 取颜色值 (80, 80, 80)<br />             .否则<br />                 局_颜色2 ＝ 局_颜色1<br />             .如果结束<br />             颜色配置 (内存场景, 频谱矩形柱2, 局_颜色1, 局_颜色2, 假)<br /> <br />         .计次循环尾 ()<br />     .如果真结束<br /> <br /> .如果真结束<br /> BitBlt (画板场景, 0, 0, 图片框.宽度 (), 图片框.高度 (), 内存场景, 0, 0, #SRCCOPY)<br /> DeleteDC (内存场景)<br /> ReleaseDC (图片框句柄, 画板场景)<br /> DeleteObject (位图句柄)

试了很多方法  图片框的句柄就是获取不到  获取到的也是窗口的句柄   大佬看看  谢谢