Question

VB当中用户定义类型未定义是什么意思?

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 1
Call OpenMenu_Click
'IsPointZoomOut = True
Case 2
frmShow.PaintArea.Cls
'IsPan = True
'Case 3
'IsAll = True
' Dim f As New frmShow
'
' f.Tag = FileName
' f.Caption = FileName & " - 100%"
' f.Show
'
' On Error Resume Next
' f.PaintArea.AutoSize = True
' f.PaintArea.Picture = LoadPicture(FileName)
' f.Buffer.Picture = f.PaintArea.Picture
' f.PaintArea.AutoSize = False
'
' f.Buffer.Width = f.PaintArea.Width
' f.Buffer.Height = f.PaintArea.Height
' f.Buffer.Tag = FileName
'Case 4
'IsImageInterior = True
'frmInterior.Show , frmMain
''frmShow.PaintArea.DrawStyle = vbSolid
''frmShow.PaintArea.DrawWidth = 3
''frmShow.PaintArea.Line (0, PaintArea.ScaleHeight / 2)-(PaintArea.ScaleWidth, PaintArea.ScaleHeight / 2), CrossColor
''frmShow.PaintArea.Line (PaintArea.ScaleWidth / 2, 0)-(PaintArea.ScaleWidth / 2, PaintArea.ScaleHeight), CrossColor
Case 4
IsZoomIn = True
IsZoomOut = False
Case 5
IsZoomOut = True
IsZoomIn = False
Case 6
IsCursor = True
Case 7
IsPan = False
IsCursor = False
Case 10
IsPan = True
IsPanDown = True
PanStyle = 1
End Select
End Sub

Answer 1

1，类型名称写错了.比如string 写成sting 就会出现这个错误。还有就是自定义的类，结构，枚举在使用的时候写错了名称。
2，当一个控件没有引用进来，却调用该控件时也会出现这个问题。这种问题一般可以重新将控件或者dll引用进来.就不会出现了。

Answer 2

这是个工具条事件，有没有放工具条了，到部件中去选上Microsoft Windows Common Controls 6.0 (SP6)，其中有个工具条控件。
frmShow 是一个同名的类的对象，使用之前要确保已经定义了。

追问

我在添加该控件时 显示，对象库未注册 T.T

追答

我没碰到过，也不知道怎么弄，重装一下vb，或能修复，也或者你的版本不完整吧，可能它涉及到其它一些对象库。装个vb企业版，完整点。

这个附件是用向导完成，带了工具条，如果能打开的话说明没问题，如打不开说明你的vb某些部件缺失。

追问

恩，我电脑系统是win7 版本的，是不是跟vb也会因为兼容上的问题导致 控件什么不能装上呢，我能不能麻烦您，帮我看一下 我这边在学习的一个摄影测量系统的程序啊， 上面提问中出现的问题正是运行该程序时出现的问题， 我想请您能不能帮我看一下.....整个文件大概50几兆，能不能麻烦你一下，回头我可以追加分数.....因为我真的比较急！

追答

我这里是xp系统，或到我这里能运行也没法解决你问题啊。
你先重装一下vb,碰碰运气再说，这文件太大，不知能不发的过来。qq号：2978454279
2978454279@qq.com

追问

我重新装了 VB 还是不能运行 你发给我 用向导创建的程序， 程序发过去了，麻烦您给我看一下，如果XP 能用 我就去装个 XP系统。

追答

我没找到，不如放到你的网盘中，我自己下载。

Answer 3

第一行: MSComctlLib.Button
这是什么类型??