编程论坛 » VB6论坛 » 请帮忙解决一个很菜的问题。。。

天堂小蚊子 发表于 2008-7-10 11:37

请帮忙解决一个很菜的问题。。。

小弟第一次来这里混。。。有个很菜的问题要请教各位大哥。。。

下面是一个程序。。

Private Sub MnuAdd_Click()
temp$ = InputBox("enter file path")
menucounter = menucounter + 1
Load MnuNew(menucounter)
MnuNew(menucounter).Caption = temp$
MnuNew(menucounter).Visible = True
End Sub

Private Sub MnuDelete_Click()
Dim n As Integer, I As Integer
n = InputBox("enter number to delete")
If n > menucounter Or n < 1 Then
MsgBox "out of range!"
Exit Sub
End If
For I = n To menucounter - 1
     MunNew(I).Caption = MnuNew(I + 1).Caption
Next I
Unload appname(menucounter)
menucounter = menucounter - 1
End Sub


问题是运行以后只能添加一个新菜单项，添第二个就会出错。。。而且删除菜单项也会出错。。
程序是看着书照搬的。。。

搞不懂了。。。

拜托各位高手了。。。

查看完整版本: 请帮忙解决一个很菜的问题。。。