Forum Discussion

ray_mosley's avatar
ray_mosley
Frequent Contributor
10 years ago

How to enter special key sequence in VBScript

I have a window object that pops up another window whenever CTRL+Shift+F12 is entered.  This works as designed manually, but I cannot find the magic sequence to reporduce it from my code.  Any sugges...
  • ray_mosley's avatar
    ray_mosley
    10 years ago

    That was my first attempt several days ago - it recorded but did not play back.

     

    What I finally got to work today was:

        obj.Keys("[Hold]^+[F12]{Release]")     ' Press Ctrl + Shift + F12

    Now I am on to the next problem...

mes6073's avatar
mes6073
Contributor
10 years ago

The following sub is what I have tried:

 

Sub SpecialTestDriver
  Dim xx
  Dim myObj
  
  Set myObj = eval("Sys.Process(""enterpriseroommanager"").VCLObject(""fmCHRTSelectICD10Options"").VCLObject(""Panel2"")")
  myObj.SetFocus

 

Sorry for the topic drift, but I am curious why you are using Eval to instantiate the object? In the code above, seems like it is not very fault tolerant in that if the Sys obect does not exist, you are going to end up with a variable containing a stub object that has only the Exists property. As a result, the call to the 'SetFocus' method will raise an exception since the stub object does not contain such a method. Consider the following which eliminates the need for double quoting the objects and affords more fault tolerance in case somethign prevented the creation of the object:

Set myObj = Sys.Process("enterpriseroommanager").VCLObject("fmCHRTSelectICD10Options").VCLObject("Panel2")
   
   If myObj.Exists Then
      myObj.SetFocus
      ...
   End If