.版本 2 .程序集 窗口程序集_启动窗口 .子程序 _图片框1_鼠标左键被按下, 逻辑型 .参数 横向位置, 整数型 .参数 纵向位置, 整数型 .参数 功能键状态, 整数型 图片框1.图片 ＝ #空底图 图片框1.鼠标指针 ＝ #准星 处理事件 () SetCapture (图片框1.取窗口句柄 ()) .子程序 _图片框1_鼠标左键被放开, 逻辑型 .参数 横向位置, 整数型 .参数 纵向位置, 整数型 .参数 功能键状态, 整数型 .局部变量 横坐标, 整数型 .局部变量 纵坐标, 整数型 图片框1.图片 ＝ #原底图 ReleaseCapture () 横坐标 ＝ 取鼠标水平位置 () 纵坐标 ＝ 取鼠标垂直位置 () 编辑框1.内容 ＝ 到文本 (WindowFromPoint (横坐标, 纵坐标)) .子程序 __启动窗口_创建完毕