Verified Answers


If an answer to your question is correct, click on "Verify Answer" under the "More" button. The answer will now appear with a checkmark. Please be sure to always mark answers that resolve your issue as verified. Your fellow Community members will appreciate it!  Learn more

  • State Not Answered
  • Replies replies
    2
  • Subscribers subscribers
    9
  • Views views
    316
  • Users 0 members are here
  • Locked Locked
Related
Options
This discussion has been locked.
You can no longer post new replies to this discussion. If you have a question you can start a new discussion

Refresh/update screen while Macro is running

James James

Hello from France, 

At work, we are using an old version of 'Reflection for Unix and digital'. 

To simply my job, I'm trying to write a vba macro to get text (numbers) from the screen. As the numbers change regularly, I would like to get the values from the screen every 30 seconds until a certain condition happens. 

The problem is that when the macro is running, the screen doesn't update/refresh. I tried several things like 'doevents' with no success. 

Is there a way I can run a macro with 'loop until' and let the screen update at the same time. I need to run the macro without blocking the screen.

Any help would be much appreciated. 

Best regards, 

James 

Tags:

Labels:

Reflection
  • 0  

    With Reflection for Digital Graphics, you are talking about 17 year or older software.  So you should consider updating that software.  The best place to start is the documentation:

    Visual Basic User Guide

    Generally speaking, if you have code at this point that collects the numbers that you are expecting then I would think you would just need to create a while loop that states while this condition is not met do the code that you have working now.  If the application requires keyboard interaction to get the next number to show up, then you would need to incorporate send keys to get to the next screen inside the while loop.

    From within the VBA editor use help to get the correct syntax for the 'while' and 'sendkeys' commands.

    Regards,

    Jeff

  • 0 in reply to   

    Good Morning,

    Many thanks for your reply. I am using 'Reflection for Unix and Digital' version 8.00.076. It is old !

    I'm just an end user so I can't upgrade the software. I'm trying to do something like this example

    Sub test()
    Dim a, tmp
    With Session

    tmp= Timer
    Do While Timer < tmp + 30
    DoEvents

    ' THE SCREEN DOESN'T REFRESH/UPDATE
    Loop
    a = .GetText(4, 58, 4, 60)
    a = CInt(a)
    Loop Until a < 10
    ' Do things

    End With
    End Sub

    The problem is that the screen doesen't refresh in the DO... LOOP

    Regards,

    James

Resources

Support
Documentation
Learning Services
Partner Programs
Privacy
Compliance
Help
Company
Privacy Policy
Terms of Use
Cookies Preferences
Accessibility
Anti-Slavery Statement
Support
Contact Us
Careers
Code of Business Conduct and Ethics
The opinions expressed above are the personal opinions of the authors, not of OpenText. By using this site, you accept the Terms of Use. Certain versions of content ("Material") accessible here may contain branding from Hewlett-Packard Company (now HP Inc.), Hewlett Packard Enterprise Company, or Micro Focus. As of January 31, 2023, the Material is now offered by OpenText, a separately owned and operated company. Any reference to the HP, Hewlett Packard Enterprise/HPE, and Micro Focus marks is historical in nature and the HP, Hewlett Packard Enterprise/HPE, and Micro Focus marks are the property of their respective owners.