在FREEBASIC中使用鼠标(MystikShadows原著，沧海冷心翻译)

最新推荐文章于 2024-05-18 10:00:12 发布

Dickson

最新推荐文章于 2024-05-18 10:00:12 发布

阅读量1.6k

点赞数

文章标签： integer windows 图形 email api 工作

本文链接：https://blog.csdn.net/Dickson/article/details/976349

版权

在FREEBASIC中使用鼠标(MystikShadows原著，沧海冷心翻译)

在网上搜索了一圈之后，我发现竟然没有一篇关于在WINDOWS控制台程序中使用鼠标的技术性文章。所以我决定写一篇文章来作为这方面的例子。大家都知道一个WINDOWS控制台肯定有鼠标功能，那就意味着它可以直接用WINDOWS API来创建，也可以直接从控制台访问鼠标。所以没有必要去打开或者关闭鼠标。你需要做的只是去设定它的X和Y坐标和取得它的状态。我们来看一下以下几点：

·取得鼠标坐标：当鼠标移动时，它的坐标值改变。你可以通过坐标来了解鼠标在屏幕上精确的位置。

·设置鼠标坐标：有些时候你可能需要移动鼠标去一个你要求它需要去的位置。

·获得鼠标按键状态：很简单，当用户按下鼠标的一个按键时，它将返回一个值告诉你哪个键被按下或者哪些键被按下（译者：哪些？鼠标有多少个按键呀~~）。从这些值你就可以让程序来选择执行哪一部分代码。

象大部分教程一样，我们将举一个非常简单的例子来演示用户和鼠标的交互。它将提供最基本的鼠标操控代码供你参考使用。

（警示：你必须在图形模式下使用鼠标。否则将返回-1值，表示图形模式未设定）

程序介绍：
这是一个非常简单和直观的示例程序。这个程序运行时将在屏幕顶部出现3个东西，点击不同的东西将有不同的提示。这个程序将给你足够的信息来了解在FREEBASIC中使用鼠标。

在FREEBASIC中有2个命令是你必须牢记的。这里是它们的使用方法。

GETMOUSE
--------------------------------------------------------------------------------
使用方法:
GETMOUSE x, y[, [Wheel][, [Buttons]]]

说明:
GETMOUSE 返回鼠标的位置和按键状态。

鼠标X和Y坐标将在函数调用的时候返回。如果鼠标不在窗口内，X和Y都返回-1

Wheel这个参数是鼠标滚轮的计数器。正着滚滚轮的时候这个数值将增加，反着则减。如果鼠标在窗口外则返回-1

Buttons参数。当函数调用时，它将返回鼠标按键状态信息。0是左键按下，1是右键，2是中键（如果有的话）。

SETMOUSE

--------------------------------------------------------------------------------
使用方法:
SETMOUSE x, y, visibility

说明:
SETMOUSE 可以设置鼠标位置和可见性。

X和Y参数来设定鼠标位置。

如果visibility=1则鼠标可见, 反之不可见。

例子代码开始：

这里是一些常量声明。它们可以使代码看上去更简洁明了。

Const LEFTBUTTON = 1
Const MIDDLEBUTTON = 2
Const RIGHTBUTTON = 4
Const SHOWMOUSE = 0
Const HIDEMOUSE = 1

声明变量：

Dim CurrentX As Integer
Dim CurrentY As Integer
Dim MouseButtons As Integer
Dim CanExit As Integer

所有程序需要做的事都放在DO循环里然后我们可以控制程序退出就OK了。所以我们创建一个循环，并且判断只要CanExit=0时就退出。在这个循环中我们监视鼠标并且作出响应。不要忘了设置图形模式喔，我们使用SCREEN 12模式：

Screen 12
CanExit = 1
Do While CanExit <> 0
    GETMOUSE CurrentX, CurrentY, , MouseButtons
    If CurrentX < 0 Then
    Print "Mouse is out of context."
    Else
    Print Using "Mouse position: ###:### Buttons: "; CurrentX; CurrentY;
    If MouseButtons And LEFTBUTTON Then Print "L";
    If MouseButtons And MIDDLEBUTTON Then Print "R";
    If MouseButtons And RIGHTBUTTON Then Print "M";
    End If
Loop

这个例子可以演示鼠标的位置和判断鼠标的按键按下。GETMOUSE函数把鼠标的X和Y坐标放进了CURRENTX和CURRENTY两个变量中，把按键状态放在MouseButtons变量。L表示左键按下，R表示右键按下，M表示中间键按下。

下一步，我们应该来对鼠标发生的事件做点什么了。我我们为鼠标例子做一些选项来进一步演示。

Const LEFTBUTTON   = 1
Const MIDDLEBUTTON = 2   ' UNUSED IN THIS DEMO
Const RIGHTBUTTON = 4   ' UNUSED IN THIS DEMO
Const SHOWMOUSE    = 0
Const HIDEMOUSE    = 1

Dim CurrentX As Integer
Dim CurrentY As Integer
Dim MouseButtons As Integer

Do
   GETMOUSE CurrentX, CurrentY, , MouseButtons
   If MouseButtons And LEFTBUTTON Then
      If CurrentY <= 12 Then
         If CurrentX >= 0 And CurrentX <=75 Then
            Locate 12, 1
            Print "First Option Selected ";
         Elseif CurrentX >= 76 And CurrentX <= 147 Then
            Locate 12, 1
            Print "Second Option Selected";
         Elseif CurrentX >= 148 And CurrentX <=212 Then
            Locate 12, 1
            Print "Third Option Selected ";
         Elseif CurrentX >= 213 And CurrentX <=268 Then
            Locate 12, 1
            Print "Last Option Selected ";
            Exit Do
         End If
      End If
   End If
Loop While Inkey$ = ""