UC知道vb编程遇到的一个很奇怪很棘手的问题！帮忙！！
来源：百度知道 编辑：UC知道 时间：2024/06/05 22:55:28
我在搞一个设计，在界面设计方面我用了一个控件，ctlbar32.ocx，用这个控件可以做出跟qq差不多的界面。在vb环境中运行没问题，但是当我编译成.exe文件后，运行却出现问题了！用ctlbar32.ocx创建的部分什么都看不到。我贴出代码大家看看：
Option Explicit
Private Sub ctListBar1_ItemClick(ByVal nList As Integer, ByVal nItem As Integer)
Select Case nList And nItem
Case 1 And 1
frmsys.Show
Case 1 And 2
frmhelp.Show
Case 1 And 3
frmabout.Show
'以上为第一级目录的连接
Case 2 And 1
frmchaxun.Show
Case 2 And 2
frmtianjia.Show
'以上为第二级目录的连接
Case 3 And 1
frmuser.Show
Case 3 And 2
frmadmin.Show
'以上为第三级目录的连接
Case 4 And 1
frmbeifen.Show
'以上为第四级目录的连接
Case 5 And 1
frmexit.Show
'以上为第五级目录的连接
End Select
End Sub
Private Sub Form_Load()
ctListBar1.AddList "
Option Explicit
Private Sub ctListBar1_ItemClick(ByVal nList As Integer, ByVal nItem As Integer)
Select Case nList And nItem
Case 1 And 1
frmsys.Show
Case 1 And 2
frmhelp.Show
Case 1 And 3
frmabout.Show
'以上为第一级目录的连接
Case 2 And 1
frmchaxun.Show
Case 2 And 2
frmtianjia.Show
'以上为第二级目录的连接
Case 3 And 1
frmuser.Show
Case 3 And 2
frmadmin.Show
'以上为第三级目录的连接
Case 4 And 1
frmbeifen.Show
'以上为第四级目录的连接
Case 5 And 1
frmexit.Show
'以上为第五级目录的连接
End Select
End Sub
Private Sub Form_Load()
ctListBar1.AddList "
Select Case nList And nItem
Case XX And YY
frmsys.Show
用这种形式是不正确的～～
Select Case 后面只能有一个变量，
不能用 XX AND YY这样的形式
故你可以试试改成这样的形式：
Select Case nList
Case XX
Select Case nItem
Case YY
.....
Case ZZ
.....
End Select
设计的时候能看倒界面就说明控件的注册是正确的
打包的时候不正确的那个控件与你看不见界面无关
是你发布后出现的问题吧？
是否换在了别的电脑上？
另外给你个建议：第三方控件能不用就不用
”问题补充：我想把设计打包的时候出现了问题，提示：部件mscomct2.0cx或其附件之一不能正确注册：一个文件丢失或无效！
是不是这个错误引起上面的错误呢！！ ”
就是它引起的．
你必须要找到它
这个问题我也遇到过，我估计是这个控件有问题，毕竟第三方的不可靠啊，换一个试试吧