vb.net - 文字列内のフォーム名でラベル テキストを変更します。String1.label1.text

Question

すべてを自動的に行う関数を作成しようとしています。これが私の現在のコードです：

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

if FormName = "Slide1"これにより値に数値が追加されますが、巨大なアンケートであるため、1000回も実行することなくコードをより簡潔にしようとしています.

ユーザーは"FormName"、たとえば、と入力し"Form1"ます。コードではFormName.ClickedTimes.Caption = AddClicks、スライドが25回クリックされた場合、スライドでそのように使用されます.26回はすでに機能していますが、そうで Slide3ない場合にのみ、これを行うFormName方法はありますか? If bah = "bah" then elseif bah = "bah" then1000回やると大変なことになるのでわかる方教えてください。

これは基本的に、フォーム ラベルのテキストを次のように変更します。たとえば、ユーザーは yes をクリックしました。私はスポーツが好きです。コードはモジュール/クラスをロードし、label1.text を +1 クリックに変更し、label2.text を「質問」に変更します。 2" ですが、それがどのフォームであるかがわからないため、引数で指定された FormName のテキストを使用して、編集中のフォームを見つけます。それがここで達成しようとしていることです

要するに、FormName と View からフォームを見つけてほしいだけですFormName.Label1.text = ""。Form1.Label1.text = ""