We are using the new version on MICRO FOCUS Reflection (v16). In the older version of Reflection (v14) I was able to code setting NUMLOCK and CAPLOCK via a macro command.
OLD VERSION CODE (LEGACY PROJECT)
Sub ACCESSION_ORDERS()
' Generated by the Reflection Macro Recorder on 08-16-2013 07:55:22.98.
' Generated by Reflection for UNIX and OpenVMS 14.0.6.
' BUTCH JONES 8/16/2013
On Error GoTo ErrorHandler
Const NEVER_TIME_OUT = 0
Dim LF As String ' Chr(rcLF) = Chr(10) = Control-J
Dim CR As String ' Chr(rcCR) = Chr(13) = Control-M
LF = Chr(Reflection2.ControlCodes.rcLF)
CR = Chr(Reflection2.ControlCodes.rcCR)
With Session
Session.CapsLock = True
Session.NumLock = True
.MsgBox "You are a pretty baby"
End With
Exit Sub
ErrorHandler:
Session.MsgBox Err.Description, vbExclamation vbOKOnly
' Recording stopped at 07:55:41.87.
End Sub
The new version will not allow this code sequence to work. I have also tried coding this in the current project, NOT LEGACY..
NEW VERSION CODE
Sub caplock()
' Generated by the Reflection Macro Recorder on 06-29-2017 11:40:43.11.
' Generated by Micro Focus Reflection Desktop Pro (16.0.308.0).
Dim osCurrentScreen As Screen
Dim osCurrentTerminal As Terminal
Dim returnValue As Integer
Const NEVER_TIME_OUT = 0
Dim LF As String ' Chr(rcLF) = Chr(10) = Control-J
Dim CR As String ' Chr(rcCR) = Chr(13) = Control-M
Set osCurrentTerminal = ThisFrame.SelectedView.control
Set osCurrentScreen = osCurrentTerminal.Screen
LF = Chr(10)
CR = Chr(13)
ThisScreen.CapsLock = True
ThisScreen.NumLock = True
Exit Sub
' Recording stopped at 11:40:49.72.
End Sub
Nothing seems to work. Anyone have an idea that they can suggest?
Thanks,
Butch Jones
#Reflection14.x#Desktop#Reflectionmarshallgrads,
It appears that in the past few days you have not received a response to your
posting. That concerns us, and has triggered this automated reply.
These forums are peer-to-peer, best effort, volunteer run and that if your issue
is urgent or not getting a response, you might try one of the following options:
- Visit
https://www.microfocus.com/support-and-services and search the knowledgebase and/or check
all the other self support options and support programs available.
- Open a service request:
https://www.microfocus.com/support- You could also try posting your message again. Make sure it is posted in the
correct newsgroup. (
http://forums.microfocus.com)
- You might consider hiring a local partner to assist you.
https://www.partnernetprogram.com/partnerfinder/find.htmlBe sure to read the forum FAQ about what to expect in the way of responses:
http://forums.microfocus.com/faq.phpSometimes this automatic posting will alert someone that can respond.
If this is a reply to a duplicate posting or otherwise posted in error, please
ignore and accept our apologies and rest assured we will issue a stern reprimand
to our posting bot.
Good luck!
Your Micro Focus Forums Team
http://forums.microfocus.com
We are using the new version on MICRO FOCUS Reflection (v16). In the older version of Reflection (v14) I was able to code setting NUMLOCK and CAPLOCK via a macro command.
OLD VERSION CODE (LEGACY PROJECT)
Sub ACCESSION_ORDERS()
' Generated by the Reflection Macro Recorder on 08-16-2013 07:55:22.98.
' Generated by Reflection for UNIX and OpenVMS 14.0.6.
' BUTCH JONES 8/16/2013
On Error GoTo ErrorHandler
Const NEVER_TIME_OUT = 0
Dim LF As String ' Chr(rcLF) = Chr(10) = Control-J
Dim CR As String ' Chr(rcCR) = Chr(13) = Control-M
LF = Chr(Reflection2.ControlCodes.rcLF)
CR = Chr(Reflection2.ControlCodes.rcCR)
With Session
Session.CapsLock = True
Session.NumLock = True
.MsgBox "You are a pretty baby"
End With
Exit Sub
ErrorHandler:
Session.MsgBox Err.Description, vbExclamation vbOKOnly
' Recording stopped at 07:55:41.87.
End Sub
The new version will not allow this code sequence to work. I have also tried coding this in the current project, NOT LEGACY..
NEW VERSION CODE
Sub caplock()
' Generated by the Reflection Macro Recorder on 06-29-2017 11:40:43.11.
' Generated by Micro Focus Reflection Desktop Pro (16.0.308.0).
Dim osCurrentScreen As Screen
Dim osCurrentTerminal As Terminal
Dim returnValue As Integer
Const NEVER_TIME_OUT = 0
Dim LF As String ' Chr(rcLF) = Chr(10) = Control-J
Dim CR As String ' Chr(rcCR) = Chr(13) = Control-M
Set osCurrentTerminal = ThisFrame.SelectedView.control
Set osCurrentScreen = osCurrentTerminal.Screen
LF = Chr(10)
CR = Chr(13)
ThisScreen.CapsLock = True
ThisScreen.NumLock = True
Exit Sub
' Recording stopped at 11:40:49.72.
End Sub
Nothing seems to work. Anyone have an idea that they can suggest?
Thanks,
Butch Jones
#Reflection14.x#Desktop#ReflectionCapsLock and NumLock propertes of the macro "Screen" interface seem to work just fine as far as I can tell. In VT terminal, the NumLock key sends a host key called "PF1".
