大型机(反射会话)-从Excel中确定光标位置
从Excel控制大型机时,有几个功能可用于导航和刮取数据。其中一些函数包括.GetString(x,y)、.Putstring(x,y)和.MoveTo(x,y),仅举几个例子。(x表示行#,y表示列#,考虑这些类似的坐标) 我在网上查阅了很多资料;(IBM红皮书、白皮书、谷歌、堆栈、反射api/vba管理、tek提示、严格致力于大型机的网站等) 一个我一直找不到的函数;返回光标在大型机窗口中的当前位置的函数大型机(反射会话)-从Excel中确定光标位置,excel,function,screen-scraping,mainframe,Excel,Function,Screen Scraping,Mainframe,从Excel控制大型机时,有几个功能可用于导航和刮取数据。其中一些函数包括.GetString(x,y)、.Putstring(x,y)和.MoveTo(x,y),仅举几个例子。(x表示行#,y表示列#,考虑这些类似的坐标) 我在网上查阅了很多资料;(IBM红皮书、白皮书、谷歌、堆栈、反射api/vba管理、tek提示、严格致力于大型机的网站等) 一个我一直找不到的函数;返回光标在大型机窗口中的当前位置的函数 有什么方法可以做到这一点吗?我通过在反射的VBE中运行以下代码,找到了获取光标位置的方
有什么方法可以做到这一点吗?我通过在反射的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使用哪个终端仿真器???;emulatorsOP正在使用反射,这似乎是一个包含TN3270方法的包,两者之间可能存在差异。在过去的一周里,他发布了另一个关于反思的问题。根据OP在另一个帖子中的评论,互联网上似乎缺少关于该产品的文档。