大型机（反思会议）- 从 Excel 内确定光标位置

Question

从 Excel 控制大型机时，有几个函数可用于导航和抓取数据。其中一些函数包括 .GetString(x, y)、.Putstring(x, y) 和 .MoveTo(x, y)，仅举几例。（x 表示第 # 行，y 表示第 # 列，将它们想象成坐标）

我在网上看了很多；（IBM 红皮书、白皮书、google、堆栈、反射 api/vba 手册、tek-tips、专门针对大型机的网站等）

一个功能我一直找不到； returns 光标在大型机 window.

中的当前位置的函数

有什么办法可以做到吗？

Answer 1

我在反射的 VBE

中找到了如何通过运行以下代码获取光标位置

Sub getCoordinates()

Dim ibmCurrentTerminal As IbmTerminal
Dim ibmCurrentScreen As IbmScreen
Dim returnValue As Integer
Set ibmCurrentTerminal = ThisFrame.SelectedView.control
Set ibmCurrentScreen = ibmCurrentTerminal.Screen
'---------------------------------------------------------------------
ibmCurrentTerminal.Productivity.ScreenHistory.ClearAllScreens
ibmCurrentTerminal.Productivity.RecentTyping.ClearAllItems

Dim CursorColumn As Integer
Dim valueColumn As Integer
Dim CursorRow As Integer
Dim valueRow As Integer

ibmCurrentScreen.CursorColumn = valueColumn
ibmCurrentScreen.CursorRow = valueRow
valueColumn = ibmCurrentScreen.CursorColumn
valueRow = ibmCurrentScreen.CursorRow

MsgBox "(" & valueRow & ", " & valueColumn & ")"

End Sub

如果你想检索光标位置，尽管是通过 msgbox

大型机（反思会议）- 从 Excel 内确定光标位置

Mainframe (Reflection Sessions) - Determining cursor position from within Excel

excel

screen-scraping

function

mainframe