我就这么几分,都给了

Jeelen 2001-12-10 11:37:43
怎么会出‘Main()不存在’的错误呢
Modules,startUp已设置成Sub Main
代码:
Option Explicit
Public Name As String
Private mlngDebugId As Long

Public getdatServerStarted As Data

Sub Main()
getdatServerStarted = Now
Debug.Print "Executing Sub Main"
End Sub

Public Function GetDebugId() As Long
Static lngDebugId As Long
lngDebugId = lngDebugId + 1
GetDebugId = lngDebugId
End Function


Public Property Get DebugID() As Variant
DebugID = mlngDebugId
End Property
Public Sub ReverseName()
Dim intCt As Integer
Dim strNew As String
For intCt = 1 To Len(Name)
strNew = Mid$(Name, intCt, 1) & strNew
Next
Name = strNew
End Sub

Private Sub Class_Initialize()
mlngDebugId = GetDebugId
Debug.Print "Initialize Thing" & DebugID & ",Name=" & Name
End Sub

Private Sub Class_Terminate()
On Error Resume Next
Debug.Print "Terminate Thing" & DebugID & ",Name=" & Name
End Sub




...全文
98 7 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
BillyW 2001-12-10
  • 打赏
  • 举报
回复
帽儿!
Jeelen 2001-12-10
  • 打赏
  • 举报
回复
可是类模块的startUp里也有sub Main可选的啊,怎么不行呢
Wesely 2001-12-10
  • 打赏
  • 举报
回复
你应该把Main写在一般模块而不是类模块里。
Jeelen 2001-12-10
  • 打赏
  • 举报
回复
救救我呀!
Jeelen 2001-12-10
  • 打赏
  • 举报
回复
各位帮帮忙吧!虽然问题很菜!
huowuyang 2001-12-10
  • 打赏
  • 举报
回复
I have try ,but i have no ideas.I am sorry.
good luck!
Jeelen 2001-12-10
  • 打赏
  • 举报
回复
To: BillyW(Billy) 
什么意思?

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧