Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations derfloh on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Get current cursor location
- Thread starter Yesuslave
- Start date
NoLuckOnMyOwn
Technical User
I copied this from the Extra help file and pasted it into an Excel module and it seemed to work.
Sub Main()
Dim Sys As Object, Sess As Object, MyScreen As Object
Set Sys = CreateObject("EXTRA.System"
' Assumes an open session
Set Sess = Sys.ActiveSession
Set MyScreen = Sess.Screen
CurrentRow = MyScreen.Row
CurrentCol = MyScreen.Col
MsgBox "The cursor is at " + Str$(CurrentRow) + "," + Str$(CurrentCol) + "."
End Sub
Copyright 1996 - 2000, Attachmate Corporation. All rights reserved.
Sub Main()
Dim Sys As Object, Sess As Object, MyScreen As Object
Set Sys = CreateObject("EXTRA.System"
' Assumes an open session
Set Sess = Sys.ActiveSession
Set MyScreen = Sess.Screen
CurrentRow = MyScreen.Row
CurrentCol = MyScreen.Col
MsgBox "The cursor is at " + Str$(CurrentRow) + "," + Str$(CurrentCol) + "."
End Sub
Copyright 1996 - 2000, Attachmate Corporation. All rights reserved.
- Status
