VBA调用的蓝区屏幕

Question

我在BlueZone中使用了几个屏幕，这些屏幕有5个字母字符，称为"ABCDE"，"BCDEF"等。 用户必须(1(按F3(2(输入(3(键入字母字符(4(输入。

我想要一个简单的导航窗格，通过VBA将我想要的所有屏幕显示为按钮 - 单击并调用。 例如，我单击一个标有"ABCDE"的按钮，该屏幕出现。

我无法访问BlueZone的VBA附加组件。不过，我可以将程序中的宏记录/写入为.bss文件。不过，没有办法在BlueZone中添加漂亮的按钮，我故意假设，调用宏。

要使用 BlueZone 中的宏，您必须选择一个下拉列表，然后选择您的宏...

我知道我可以使用 Shell(( 在 VBA 中打开各种文件，但是我可以操作像 BlueZone 这样的模拟器通过 VBA 运行宏吗？

Answer 1

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 简单地调用击键。

Answer 2

您可以使用BlueZone的电源板制作各种导航窗格

您可以将每个按钮与宏、脚本或其他"操作"相关联。

您还可以使用 VBA 协调各种仿真，但其中一些需要您进行一些试验并观察大型机的行为方式。 我建议使用类似于以下内容的代码，但这是基于我们的大型机的工作方式......

' writes "ABCDE" at the given screen row and column
Sub ABCDE(row, column)
Set host = CreateObject("BZWhll.WhllObj")
host.Connect ""
host.SendKey "<PF3>"
host.WaitReady 10, 1
host.SendKey "<Enter>"
host.WaitReady 10, 1
host.WriteScreen "ABCDE", row, column
End Sub