.版本 2 .程序集 程序集1 .程序集变量 对话框, 对话框类 .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行 对话框.载入 (, 1000, &对话框_创建完毕, , 真) 返回 (0) ' 可以根据您的需要返回任意数值 .子程序 对话框_创建完毕 .参数 窗口句柄, 整数型 对话框.接受拖放 (真) 对话框.通用事件_收到拖放文件 (&对话框_接收拖放) ' 看子程序说明 .子程序 对话框_接收拖放 .参数 文件名, 整数型 .局部变量 局_文件名, 文本型, , "0" .局部变量 局_输出, 文本型 .局部变量 i, 整数型 局_文件名 ＝ 分割文本 (指针到文本 (文件名), #换行符, ) 局_输出 ＝ “接收到的拖放文件如下：” ＋ #换行符 ＋ #换行符 .计次循环首 (取数组成员数 (局_文件名), i) 局_输出 ＝ 局_输出 ＋ 局_文件名 [i] ＋ #换行符 .计次循环尾 () 局_输出 ＝ 取文本左边 (局_输出, 取文本长度 (局_输出) － 2) 对话框.信息框 (局_输出, #确认钮, “test”)