Question

我有这个简单的vbscript，但是当我试图运行它时，Windows会给我一个错误。我之前从未使用过vbscript，我试图谷歌，但可以找出原因。我在第1行，第16行遇到预期的行尾错误。有人看到了什么吗？另外，我在记事本中编码并通过双击文件来运行它。我还有其他办法吗？

Dim WithEvents Button As CommandButton
Private Sub Application_StartUp(Cancel As Boolean)
Set Button = CommandButtons.Add("Click me")
End SubPrivate Sub Button_Click()
Msgbox "Clicked", vbInformation
End Sub

Answer 1

由于有人提到记事本正在使用并查看代码，因此这似乎是在Visual Studio中使用VBScript向基于表单的应用程序添加按钮的代码。

通过记事本的VBScript并不擅长用于创建GUI对话框等。使用记事本工作的示例代码如下：

toRepeat = InputBox("What should I repeat?", "Echo", "Hello World")
MsgBox toRepeat

在此示例中，将重复输入框中输入的内容。

如果Visual Studio不可用且有兴趣构建基于表单的应用程序，则可以通过Word或Excel在VBA中创建用户表单。以下站点提供了在Excel中创建用户表单应用程序的良好教程：Excel VBA Userform - Easy Excel Macros

如果有兴趣，我最近在我的博客中写了一篇关于VB的不同风格的解释：VBA vs VBSCRIPT vs Visual Basic

谢谢，

Sean W。

代码行中间的预期行尾错误

1 个答案: