Экраны BlueZone от VBA - PullRequest
Новая
       11

Экраны BlueZone от VBA

0 голосов
/ 12 октября 2019

Я использую несколько экранов в BlueZone, которые имеют 5 буквенных вызовов «ABCDE», «BCDEF» и т. Д. Пользователи должны (1) нажать F3 (2) Ввести (3) ввести буквенные символы (4) ввести.

Я хочу простую панель навигации через VBA, которая отображает все экраны, которые я хочу в виде кнопок - щелчок и вызовНапример, я нажимаю кнопку с надписью «ABCDE», и появляется этот экран.

У меня нет доступа к надстройке VBA от BlueZone. Однако я могу записывать / записывать макросы в программе как файлы .bss. Однако в BlueZone нет способа добавить красивые кнопки для преднамеренного вызова макросов.

Чтобы использовать макросы в BlueZone, вы должны выбрать выпадающий список, а затем ваш макрос ...

Я знаю, что могу открыть все виды файлов в VBA с помощью Shell (), номожно манипулировать эмулятором типа BlueZone для запуска макросов через VBA?

1 Ответ

0 голосов
/ 19 октября 2019 
    Sub ARDAA()

Set bzhao = CreateObject("BZWhll.WhllObj")
  bzhao.Connect ""

bzhao.SendKey "<PF3>"
bzhao.WaitForString "[0;7mA" & Chr(27) & "[0m", 30
bzhao.SendKey "a"
bzhao.WaitForString "[0;7mA" & Chr(27) & "[0m", 30
bzhao.SendKey "r"
bzhao.WaitForString "[0;7mA" & Chr(27) & "[0m", 30
bzhao.SendKey "d"
bzhao.WaitForString "[0;7mA" & Chr(27) & "[0m", 30
bzhao.SendKey "a"
bzhao.WaitForString "[0;7mA" & Chr(27) & "[0m", 30
bzhao.SendKey "a"
bzhao.WaitForString "[0;7mA" & Chr(27) & "[0m", 30
bzhao.SendKey "<Enter>"

End Sub

Мне не удалось найти вызов для перехода к экрану, поэтому VBA просто вызывает нажатия клавиш.

...