【发布时间】:2016-10-30 15:48:32
【问题描述】:
我在尝试编译 VB6 程序时收到错误“未定义用户定义的类型”。编译器突出显示了“Public fMainForm As frmMain”语句。这个程序之前编译没有错误。
我的代码是
Public fMainForm As frmMain
Public commonSQl, commonDSN, commonPealNo, commonDove, _
commonGridRefE, commonGridRefN As String
Public commonDate As Date
Public commonShowUnringable As Boolean
Public IsOpen As Integer
Sub Main()
Dim fLogin As New frmLogin
commonDSN = ""
fLogin.Show vbModal
Isloaded = -1
If Not fLogin.OK Then
'Login Failed so exit app
End
End If
Unload fLogin
frmSplash.Show
frmSplash.Refresh
Set fMainForm = New frmMain
Load fMainForm
Unload frmSplash
fMainForm.Show
End Sub
【问题讨论】:
-
尝试将您的示例仅简化为 fMainForm 变量,删除所有其余的;用这个做一个新的测试项目。并在每个文件的顶部添加一个 Option Explicit(您声明了一个 IsOpen,但我看到一个 Isloaded 被引用)。
-
谢谢。仅使用 fMainForm 变量仍然失败。将变量类型更改为源 - 工作正常。看起来 VB 没有加载 frmMain 对象的定义?
-
和 frmMain 是?
-
是项目的启动对象
-
这是什么意思?是表格吗?这是 VB6 吗(因为 VB6 中不允许使用 New frmMain)