Question

最近我在PowerPoint中使用了很多宏视觉基础。一切正常，然后我需要添加Try和Catch语句。它似乎没有用，但我想也许它在新版本中有所改变。现在，在尝试使用PowerPoint在Visual Basic中制作字典后，发生了同样的事情。它不起作用，文字是红色的。

这是字典的代码：

Dim test As New Dictionary(Of String, Integer)
test.Add("1", 1)

使用PowerPoint时是否还要添加词典？或者这个代码是错的？ try和catch语句也一样吗？

Answer 1

您需要确保声明对System.Collections.Generic的引用。

在代码顶部添加：

Imports System.Collections.Generic

Answer 2

你不清楚最终结果，但尝试这样的事情。

Sub test()
On Error Goto Handler
    Dim test AS New Collection
    test.Add "1", "27"
    test.Add 15, "Monkeys"
    Exit Sub
Handler:
    Msgbox "Error Number: " & Err & " Occurred. Its message text is: " & Error(Err)
End Sub

VBA没有Try和Catch您必须使用On Error GoTo处理所有错误，然后您可以按错误号处理错误。 See Here

另请注意，我使用的Collection使用Item和Key结构。不确定您的目的是什么，但您可以在Key中Collection检索项目，这对您来说可能没什么问题。 e.g。

 test.Item(1) 'will return "1" by index
 test.Item("27") 'will return "1" by key
 test.Item(2) ' will return 15 by index
 test.Item("Monkeys") 'will return 15 by key

Powerpoint Visual Basic代码无法正常工作

2 个答案: