| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 3203 人关注过本帖, 2 人收藏
标题:请问:如何实现移动显示出鼠标在屏幕上的xy坐标,及屏幕的颜色值?
只看楼主 加入收藏
wxzd123456
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2013-7-19
结帖率:50%
收藏(2)
已结贴  问题点数:20 回复次数:21 
请问:如何实现移动显示出鼠标在屏幕上的xy坐标,及屏幕的颜色值?
请问:如何实现移动显示出鼠标在屏幕上的xy坐标,及屏幕的颜色值?
搜索更多相关主题的帖子: 如何 
2013-07-19 20:12
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
如何实现移动显示出鼠标在屏幕上的xy坐标:AMOUSEOBJ()
屏幕的颜色值:POINT方法
自己研究吧

坚守VFP最后的阵地
2013-07-19 20:27
qingfameng
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:35
帖 子:964
专家分:3019
注 册:2010-2-6
收藏
得分:0 
''

[ 本帖最后由 qingfameng 于 2013-7-21 21:22 编辑 ]
2013-07-20 00:16
love云彩
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
来 自:青藏高原
等 级:贵宾
威 望:53
帖 子:3663
专家分:11416
注 册:2012-11-17
收藏
得分:0 
哇,学习了,管用

思考赐予新生,时间在于定义
2013-07-20 00:27
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
以下是引用love云彩在2013-7-20 00:27:07的发言:

哇,学习了,管用

看来你是到处流窜啊~

授人以渔,不授人以鱼。
2013-07-20 01:15
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
图片附件: 游客没有浏览图片的权限,请 登录注册

授人以渔,不授人以鱼。
2013-07-20 13:10
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:20 
程序代码:
CLEAR ALL
Main()
CLEAR ALL
RETURN 

PROCEDURE Main()
    LOCAL loForm
    loForm = CREATEOBJECT("_Form")
    WITH loForm
        .Caption = "Test4"
        .BorderStyle = 1
        .WindowState = 2
        .Image1.Picture = "1127364.JPG"
        .Show
    ENDWITH
    READ EVENTS
ENDPROC 

PROCEDURE ColorToRGB(tnColor, tnRed, tnGreen, tnBlue)
    tnBlue = BITRSHIFT(tnColor, 16)
    tnGreen = MOD(BITRSHIFT(tnColor, 8), 256)
    tnRed = MOD(tnColor, 256)
ENDPROC 

DEFINE CLASS _Form AS Form 

    ADD OBJECT Image1 AS Image   WITH Stretch = 1
    ADD OBJECT Label1 AS Label   WITH Caption = "坐标:", Height = 25, Width = 60, Alignment = 1
    ADD OBJECT Text1  AS TextBox WITH Height = 25, Width = 80, Enabled = .F.
    ADD OBJECT Label2 AS Label   WITH Caption = "RGB颜色:", Height = 25, Width = 80, Alignment = 1
    ADD OBJECT Text2  AS TextBox WITH Height = 25, Width = 100, Enabled = .F.
   
    PROCEDURE Arrange
        WITH This.Label1
            .Top = This.Height - .Height - 5
            .Left = 5
        ENDWITH
        WITH This.Text1
            .Top = This.Label1.Top
            .Left = This.Label1.Left + This.Label1.Width
        ENDWITH
        WITH This.Label2
            .Top = This.Text1.Top
            .Left = This.Text1.Left + This.Text1.Width + 5
        ENDWITH
        WITH This.Text2
            .Top = This.Label2.Top
            .Left = This.Label2.Left + This.Label2.Width
        ENDWITH
        WITH This.Image1
            .Top = 5
            .Left = 5
            .Height = This.Label1.Top - .Top - 5
            .Width = This.Width - .Left - 5
        ENDWITH
    ENDPROC
   
    PROCEDURE Activate
        This.Arrange
    ENDPROC 

    PROCEDURE Destroy
        CLEAR EVENTS
    ENDPROC
   
    PROCEDURE Image1.MouseMove(tnButton, tnShift, tnXCoord, tnYCoord)
        LOCAL lnRed, lnGreen, lnBlue
        ColorToRGB(ThisForm.Point(tnXCoord, tnYCoord), @lnRed, @lnGreen, @lnBlue)
        WITH This.Parent
            .Text1.Value = "(" + TRANSFORM(tnXCoord) + "," + TRANSFORM(tnYCoord) + ")"
            .Text2.Value = "(" + TRANSFORM(lnRed) + "," + TRANSFORM(lnGreen) + "," + TRANSFORM(lnBlue) + ")"
        ENDWITH
    ENDPROC
   
ENDDEFINE
收到的鲜花
  • tlliqi2013-07-20 20:34 送鲜花  20朵   附言:加分

授人以渔,不授人以鱼。
2013-07-20 13:11
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
实在是高

坚守VFP最后的阵地
2013-07-20 20:06
wxzd123456
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2013-7-19
收藏
得分:0 
谢谢,这里真不错,人都这么好
2013-07-20 20:22
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
回复 8楼 sdta
这就是你以前想做那个程序的基本方法。

授人以渔,不授人以鱼。
2013-07-20 20:59
快速回复:请问:如何实现移动显示出鼠标在屏幕上的xy坐标,及屏幕的颜色值?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.056366 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved