提示缺少END SUB

Question

Private Sub Command1_Click()
Dim A As Long
A = WritePrivateProfileString("aa", "bb", Text1.Text, App.Path & "\123.INI")
If A = 0 Then MsgBox ("写文件时出错")
End SubPrivate Sub Command2_Click()
Dim Result As Long
Dim BufferStr As String * 255
Result = GetPrivateProfileString("aa", "bb", "", BufferStr, Len(BufferStr), App.Path & "\123.INI")
If Result = 0 Then
GetINIstr = ""
Else
GetINIstr = Left(BufferStr, Result)
End If
End Function
End Sub
点击COMMAND2的时候，提示缺少END SUB

Answer 1

Private Sub Command2_Click()
Dim Result As Long
Dim BufferStr As String * 255
Result = GetPrivateProfileString("aa", "bb", "", BufferStr, Len(BufferStr), App.Path & "\123.INI")
If Result = 0 Then
GetINIstr = ""
Else
GetINIstr = Left(BufferStr, Result)
End If
End Sub

Answer 2

将你代码中的倒数第2行语句(End Function)删除即可.

Answer 3

Private Sub Command2_Click()
Dim Result As Long
Dim BufferStr As String * 255
Result = GetPrivateProfileString("aa", "bb", "", BufferStr, Len(BufferStr), App.Path & "\123.INI")
If Result = 0 Then
GetINIstr = ""
Else
GetINIstr = Left(BufferStr, Result)
End If
End Function '这个去掉
End Sub

Answer 4

Function为函数，可以返回值；Sub为过程，不能返回值
这两种是不能同时定义的。