创建一个从字符串调用幻灯片的函数，例如string.label1.caption

Question

我正在尝试创建一个自动完成所有操作的功能。

这是我目前的代码：

Public Sub IncrementValueBeta(SlideDescription As String, SlideNumber As Integer, SlideName As String)
    ChangeSlide (SlideNumber)
    MsgBox ("Test: " + SlideDescription)
    AddClicks = SlideName.ClickedTimes.Caption + 1
    SlideName.ClickedTimes.Caption = AddClicks
End Sub

这会为数字添加一个数字，但我试图制作更短的代码，而不必进行1000次if SlideName = "Slide1"，这是一个巨大的问卷。

我在这里尝试做什么，以便用户输入"SlideName"，例如"Slide1"并且在代码中它会像Slide3.ClickedTimes.Caption = AddClicks一样使用它，所以在幻灯片中，如果幻灯片是25次点击，那么它将是26已经有效但只有在Slide3不{{1}我有办法做到这一点吗？如果你知道怎么做，你能帮助我吗，因为如果我必须进行1000次Slidename If bah = "bah" then，这将是一个真正的痛苦。

有人可以帮忙吗？

Answer 1

Slides("Slide3").ClickedTimes.Caption = AddClicks适合您吗？因为在这种情况下，您可以使用＆＃34; SlideName＆＃34;替换"Slide3"（常量） （一个变量），你的问题就解决了。