我就这么几分,都给了

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




...全文
87 7 打赏 收藏 举报
写回复
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) 
什么意思?
相关推荐
发帖
VB基础类

7681

社区成员

VB 基础类
社区管理员
  • VB基础类社区
加入社区
帖子事件
创建了帖子
2001-12-10 11:37
社区公告
暂无公告