basic - 在 QB45 中设置光标

Question

我一直在使用以下代码来更改 QB45 中的光标：

SUB LocateX(Inserting)
    ' locate cursor
    IF Inserting THEN
       ' half-block cursor
       Locate Xcoor, Ycoor, 1, 3, 7
    ELSE
       ' underline cursor
       Locate Xcoor, Ycoor, 1, 7, 7
    END IF
END SUB

但我想要的是一种设置光标颜色和光标闪烁率的方法..

感谢帮助。

Answer 1

QB64 中存在一个解决方案，而在 QB45 中，在我看来，除了使用 ANSI 编码之外别无他法（也许在逆向计算中，有人可能知道写入光标颜色的可能内存地址）。

如果您打算将颜色代码 7 专用于光标或任何与光标具有相同颜色的符号，则此解决方案（如下面的代码所示）可能是有效的。

这里的代码：

SCREEN 0
LOCATE 1, 1, 1, 3, 7
COLOR 15
PRINT "Cursor is gray [hit a key]"
K$ = INPUT$(1)
_PALETTECOLOR 7, &HFFDAA520 ' FF alpha makes the color translucent
PRINT "Cursor is now Goldenrod! [hit a key]"
K$ = INPUT$(1)
COLOR 7
PRINT "... also text with color 7 is Goldenrod!!! [hit a key to end]";
K$ = INPUT$(1)