TIP: Click on subject to list as thread! ANSI
echo: quik_bas
to: JOHN ZORTMAN
from: PAT PRIDGEN
date: 1998-02-09 06:15:00
subject: Mouse in Quick Basic 4.5

[In a message from John Zortman to All ]
 JZ> Is there such a thing as a handler or module or whatever out there
 JZ> for reading X,Y co-ordinates from the mouse in Quick Basic 4.5?
This is usually done using Interrupt 33h. If you have access to a copy
of Ralf Brown's Interrupt list take a look there. The Interrupt list can
be found on Simtel Net in the msdos/info/ directory via the Internet.
Here's a little something to get you started.
'$INCLUDE: 'qbx.bi'  ' For Call Interrupt, QB45 use 'qb.bi'
DECLARE SUB GetMouseInfo (Status%, MCol%, MRow%)
DECLARE SUB ShowMouse ()
DECLARE SUB HideMouse ()
DIM SHARED Regs AS RegType
CONST True = -1
CONST False = NOT True
'Put your Code Here.
'***************************************************************
' Gets the Button Status (Which Button Pressed) and the
' Location (Row/Col) of the Mouse Cursor. Location is in Pixels.
' Screen 12 80x30  Col/8 Row/16 For Text Position
'
'
'
'***************************************************************
SUB GetMouseInfo (Status%, MCol%, MRow%)
Regs.ax = &H3
CALL Interrupt(&H33, Regs, Regs)
Status% = Regs.bx
MCol% = Regs.cx
MRow% = Regs.dx
END SUB
'***************************************************************
' Turn the Mouse Cursor OFF
'***************************************************************
SUB HideMouse
Regs.ax = &H2
CALL Interrupt(&H33, Regs, Regs)
END SUB
'******************************************************************
' Turn the Mouse Cursor ON
'******************************************************************
SUB ShowMouse
Regs.ax = &H1
CALL Interrupt(&H33, Regs, Regs)
END SUB
.                         pat.pridgen@svis.org
.                          La Grande, Oregon
*SignIt 2.x #001* 
... Windows: Bringing yesterdays performance to todays computers.
___ Blue Wave/DOS v2.30
--- Maximus 2.02
---------------
* Origin: THE LOFT in Auburn IN 219-925-5524 & 238-3222 HST/V34+ (1:236/7)

SOURCE: echomail via exec-pc

Email questions or comments to sysop@ipingthereforeiam.com
All parts of this website painstakingly hand-crafted in the U.S.A.!
IPTIA BBS/MUD/Terminal/Game Server List, © 2025 IPTIA Consulting™.