鼠标左键被放开事件，怎么高效获得句柄

myface

  

子程序名	返回值类型	公开	备 注
_图片框1_鼠标左键被放开	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

变量名	类 型	静态	数组	备 注
hWnd	整数型
L	精易_坐标

hWnd ＝ 窗口_取鼠标处窗口句柄 ()
图片框1.鼠标指针 ＝ 到字节集 (1)
图片框1.图片 ＝ #鼠标指针
调试输出 (hWnd)  ’‘要获取的值
L ＝ 鼠标_取窗口坐标 (hWnd)
调试输出 (L.横, L.纵)     ‘要获取的值
ReleaseCapture ()

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _图片框1_鼠标左键被放开, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> .局部变量 hWnd, 整数型<br /> .局部变量 L, 精易_坐标<br /> <br /> hWnd ＝ 窗口_取鼠标处窗口句柄 ()<br /> 图片框1.鼠标指针 ＝ 到字节集 (1)<br /> 图片框1.图片 ＝ #鼠标指针<br /> 调试输出 (hWnd)  ’‘要获取的值<br /> L ＝ 鼠标_取窗口坐标 (hWnd)<br /> 调试输出 (L.横, L.纵)     ‘要获取的值<br /> ReleaseCapture ()

改的某个大神的代码（默默感谢），代码是拖动十字到窗口，获取窗口的句柄 和 坐标，可不想用编辑框等控件和全局变量，这些感觉有点僵硬，怎么不用这些，获取代码里的句柄和坐标数据呢。才开始学的易语言，不太会。

as790912701

是不是这么个意思？ 可以用参数来返回

  

子程序名	返回值类型	公开	备 注
获取窗口句柄和坐标	逻辑型
参数名	类 型	参考	可空	数组	备 注
返回句柄	整数型
返回横坐标	整数型
返回纵坐标	整数型

变量名	类 型	静态	数组	备 注
hWnd	整数型
L	精易_坐标

hWnd ＝ 窗口_取鼠标处窗口句柄 ()
L ＝ 鼠标_取窗口坐标 (hWnd)
返回句柄 ＝ hWnd
返回横坐标 ＝ L.横
返回纵坐标 ＝ L.纵
如果 (hWnd ≠ 0 或 L.横 ≠ 0 或 L.纵 ≠ 0)
返回 (真)
返回 (假)

子程序名	返回值类型	公开	备 注
_图片框1_鼠标左键被放开	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

变量名	类 型	静态	数组	备 注
窗口句柄	整数型
横坐标	整数型
纵坐标	整数型

获取窗口句柄和坐标 (窗口句柄, 横坐标, 纵坐标)
调试输出 (窗口句柄, 横坐标, 纵坐标)

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 获取窗口句柄和坐标, 逻辑型<br /> .参数 返回句柄, 整数型, 参考<br /> .参数 返回横坐标, 整数型, 参考<br /> .参数 返回纵坐标, 整数型, 参考<br /> .局部变量 hWnd, 整数型<br /> .局部变量 L, 精易_坐标<br /> <br /> hWnd ＝ 窗口_取鼠标处窗口句柄 ()<br /> L ＝ 鼠标_取窗口坐标 (hWnd)<br /> 返回句柄 ＝ hWnd<br /> 返回横坐标 ＝ L.横<br /> 返回纵坐标 ＝ L.纵<br /> .如果 (hWnd ≠ 0 或 L.横 ≠ 0 或 L.纵 ≠ 0)<br />     返回 (真)<br /> .否则<br />     返回 (假)<br /> .如果结束<br /> <br /> <br /> .子程序 _图片框1_鼠标左键被放开, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> .局部变量 窗口句柄, 整数型<br /> .局部变量 横坐标, 整数型<br /> .局部变量 纵坐标, 整数型<br /> <br /> 获取窗口句柄和坐标 (窗口句柄, 横坐标, 纵坐标)<br /> 调试输出 (窗口句柄, 横坐标, 纵坐标)