小弟是菜鸟，自己做画面时引用了别人的画面，一个阀门用VB动作弹出一个画面窗口，语句为：
Sub OnClick(ByVal Item)
Dim a
Set a=ScreenItems("画面窗口19")
If a.visible=True Then
a.visible=False
Else
a.visible=True
End If
End Sub
我只需将("画面窗口19")中的名字改应该就可以了；可改完 检查后报错，弹出错误窗口如：图1，错误窗口弹出后里面的语句变成：如图2：
Option Explicit
Sub OnClick(ByVal Item)
Dim a
Set a=ScreenItems("画面窗口18")
If a.visible=True Then
a.visible=False
Else
a.visible=True
End If
End S
不知道应该怎么改，请高手指点；
问题补充：
改完画面窗口并检查后，语句结尾自动变为END S；
想改成END SUB可是改不了，不知道为什么
图片说明：
最佳答案
建议将原程序代码复制到txt文档中之后，再从txt中复制进新的脚本中。
问题也许是编辑器的字符集选择错误，也许是全角、半角选择错误，因为看到截图中的汉字有乱码的嫌疑，而且像end、true这种关键字都应是蓝色字体。
使用ctrl+空格，直接使用自带的英文键盘输入法写脚本。
提问者对于答案的评价：
学习
原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc200364.html
微信扫一扫 
支付宝扫一扫