Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请教一下代码如何放入foxtable


  共有2117人关注过本帖树形打印复制链接

主题：请教一下代码如何放入foxtable
帅哥哟，离线，有人找我吗？
ljh29206
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1368 积分：12189 威望：0 精华：0 注册：2012/3/5 11:32:00 		请教一下代码如何放入foxtable  发帖心情 Post By：2018/5/15 15:16:00 [只看该作者]

'作用获取当前鼠标位置'

Private Structure POINTAPI
Dim x As Long
Dim y As Long
End Structure

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
'------------全局代码'


'--------------命令提示框'
 Dim z As POINTAPI
GetCursorPos(z)
Output.Show(z.x & z.y)

提示没定义类型

[此贴子已经被作者于2018/5/15 15:21:18编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/5/15 15:21:00 [只看该作者]

Public Structure POINTAPI
Dim X As Long
Dim Y As Long
End  Structure
Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long '移动鼠标

 回到顶部
帅哥哟，离线，有人找我吗？
ljh29206
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1368 积分：12189 威望：0 精华：0 注册：2012/3/5 11:32:00 		  发帖心情 Post By：2018/5/15 15:22:00 [只看该作者]

Dim z As POINTAPI
GetCursorPos(z)
Output.Show(z.x & z.y)

输出结果是 0 , 0 !

我是哪里错了呢
[此贴子已经被作者于2018/5/15 15:26:37编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/5/15 15:37:00 [只看该作者]

获取鼠标值，参考

 

Dim x As Integer = System.Windows.Forms.Cursor.Current.Position.X
Dim y As Integer = System.Windows.Forms.Cursor.Current.Position.Y
 回到顶部
帅哥哟，离线，有人找我吗？
ljh29206
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1368 积分：12189 威望：0 精华：0 注册：2012/3/5 11:32:00 		  发帖心情 Post By：2018/5/15 15:49:00 [只看该作者]

请问


鼠标 隐藏   显示的 代码 是什么呢
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/5/15 15:54:00 [只看该作者]

<System.Runtime.InteropServices.DllImport("user32.dll", EntryPoint:="ShowCursor")> _
Public Function ShowCursor(ByVal bShow As Boolean) As Boolean
End Function

 

调用

 

ShowCursor(True) 'ShowCursor(False)
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 4 次数据查询