中国DOS联盟

'$INCLUDE: 'qb.bi'
Mouse.Setrage 0, 0, 640, 480
SCREEN 12
Mouse.Show
LINE (100, 100)-STEP(50, 50), 3, BF
DO
k$ = INKEY$
IF k$ = chr$(27) THEN EXIT DO
IF Mouse.down(2) THEN PRINT "right key"
DO WHILE Mouse.InBox(100, 100, 50, 50)
IF Mouse.down(1) THEN
PRINT "ok"
end
END IF
LOOP
LOOP

SUB Mouse (m1%, m2%, m3%, m4%)
DIM inreg AS RegType, outreg AS RegType
inreg.ax = m1%
inreg.bx = m2%
inreg.cx = m3%
inreg.dx = m4%
INTERRUPT &H33, inreg, outreg
m1% = outreg.ax
m2% = outreg.bx
m3% = outreg.cx
m4% = outreg.dx
END SUB

FUNCTION Mouse.down (button%)
Mouse 3, Mouse.button%, x%, y%
Mouse.down = 0
IF button% = 1 THEN
IF Mouse.button% = 1 THEN Mouse.down = -1
END IF
IF button% = 2 THEN
IF Mouse.button% = 2 THEN Mouse.down = -1
END IF
END FUNCTION

SUB Mouse.Hide
Mouse 2, 0, 0, 0
END SUB

FUNCTION Mouse.InBox (box.x, box.y, box.w, box.h)
box.x1 = box.x + box.w: box.y1 = box.y + box.h
Mouse.InBox = 0
IF Mouse.X > box.x AND Mouse.Y > box.y THEN
IF Mouse.X < box.x1 AND Mouse.Y < box.y1 THEN Mouse.InBox = -1
END IF
END FUNCTION

SUB Mouse.Setrage (x%, y%, W%, H%)
Mouse 7, 0, x%, x% + W%
Mouse 8, 0, y%, y% + H%
END SUB

SUB Mouse.Show
Mouse 1, 0, 0, 0
END SUB

SUB Mouse.State (x%, y%, Mouse.button%)
Mouse 3, Mouse.button%, x%, y%
END SUB

FUNCTION Mouse.X
Mouse 3, Mouse.button%, x%, y%
Mouse.X = x%

END FUNCTION

FUNCTION Mouse.Y
Mouse 3, Mouse.button%, x%, y%
Mouse.Y = y%
END FUNCTION

大哥，这个例程在VB1。0里是作为例子的。

vb1.0没用过啊！

不知道VB1。0里面有没有读写硬盘主引导区的例子啊？
有的话发重了就更不好意思啦！
望诸位不吝赐教！