拖拽文件-初级程序-极语言教程

//窗体代码:

整数 窗体,列表;
程序资源 24,"清单.xml";
程序段 加载窗体
整数 左=(桌面.宽-417)>>1,上=(桌面.高-321)>>1;
窗体=创建窗口($10,程序.名称,"窗口标题",$10C80000,左,上,417,321,0,0,0,0);
列表=创建窗口($200,"listbox","",$50210081,10,20,380,260,窗体,1,9,0);
窗体启动;读取消息
结束

 

//程序代码:

程序段 窗体消息(窗口,消息,参数,数据)
    判断(消息)
    为 窗口关闭{停止(0)}
    为 拖放文件{拖曳文件(参数)}
    否则{处理窗口(窗口,消息,参数,数据)}
结束

程序段 窗体启动
    读取消息
结束

程序段 拖曳文件(整数 拖曳)
    整数 序号=0,数量=查询拖曳(拖曳,-1,0,0)
    文本 名称[64]
    循环(序号<数量){
    查询拖曳(拖曳,序号,名称,64)
    发送消息(列表,列表添加,0,名称)
    序号++}释放拖曳(拖曳)
结束;