A property to get or set the cursor position.
- Parameters
- PositionVal
- When setting the
cursor position, used to specify the new position.
- Returns
- The current cursor position when using the get property.
- Remarks
- The cursor position starts at 1 in the upper-left corner of the
window (row 1, column 1), and ends at the bottom-right of the window
(max row times max column). For example, for a Model 2 - 24 x 80
screen, the last position is 1920.
- Example (get)
Set bzhao = CreateObject("BZWhll.WhllObj")
bzhao.Connect
pos = bzhao.PSCursorPos
MsgBox "The cursor position is " & pos
- Example (set)
Set bzhao = CreateObject("BZWhll.WhllObj")
bzhao.Connect
bzhao.PSCursorPos = 1841