vb6 - "Compile Error: Only Comments may appear after End Sub, End Function.."访问 2010 VBA

Question

我正在创建一个表单，并且我已经在 VBA 窗口中创建了我的第一个函数。该函数创建按钮。在“结束功能”之后输入任何内容后，我收到错误消息 - “只有注释出现在 ..”之后，有什么问题吗？我是否将函数放在了错误的区域？

这是我的代码:

Option Compare Database 
Option Explicit

Function MainMenuOptions()

Dim frm As String
frm = "Main"

Dim SCFormB As Control
Dim SCSearchB As Control
Dim SCReportB As Control

Set SCFormB = CreateControl(frm, acOptionButton, , , , 0.5, 0.6, 1.5, 0.55)
Set SCSearchB = CreateControl(frm, acOptionButton, , , , 0.5, 1.5, 1.5, 0.55)
Set SCReportB = CreateControl(frm, acOptionButton, , , , 0.5, 2.4, 1.5, 0.55)


End Function

Answer 1

我最近遇到了这个问题。我正在创建一个新的股票/衍生品交易和管理应用程序，并且我在创建表单方面取得了惊人的进展，有一次，我开始为表单上控件的所有 _Click() 处理程序收到此错误.但是，对于表单上的一个字段的 _Enter() 处理程序并没有发生这种情况。在任何“结束”语句之后都没有多余的文字 - 根本没有!我发现，不知何故，不正确的 LINE ENDINGS 已经进入了“End”语句的末尾。

修复:转到每个“End”语句的末尾，点击 DELETE 直到下一个 Sub 语句到达光标(即，您现在在与前一个相同的行上开始下一个过程proc 的 End 语句)，然后按 ENTER 将下一个 Sub 语句放回它自己的行。这将确保您在每个事件处理程序的末尾都有正确的 CR/LF(或该编辑器/编译器所需的任何内容)。