Mainframe (Reflection Sessions) - Определение позиции курсора из Excel

Question

При управлении мейнфреймом из Excel существует несколько функций, которые можно использовать для навигации и очистки данных. Некоторые из этих функций включают в себя: .GetString (x, y), .Putstring (x, y) и .MoveTo (x, y), чтобы назвать несколько. (x обозначает строку #, y обозначает столбец #, думайте об этих подобных координатах)

Я много раз просматривал онлайн; (IBM redbooks, whitepapers, google, стек, отражение api/vba manauls, tek-tips, веб-сайты, строго посвященные мэйнфрейму и т. Д.)

Одна функция, которую я не смог найти; функция, которая возвращает текущее положение курсора в окне Mainframe.

Можно ли это сделать?

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