none
使用者控制項內, 物件_Click的問題~~ RRS feed

  • 問題

  • 各位學長/姐好:

       環境:VB.NET 2005, .Net Framwork 3.5

       我有一個form叫Home,裡面有一個使用者控制項Functions1.

       Functions1內有3個LinkLabel 分別為LkbL1Id1, LkbL1Id2, LkbL1Id3

       在MDI父表單中有多個ToolStripButton,分別設定Home中的Functions1內的Linklabel.Text為不同的值...

     

       Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
            Home.Functions1.LkbL1Id1.Text = "Rount1"
            Home.Functions1.LkbL1Id2.Text = "Rount30"
            Home.Functions1.LkbL1Id3.Text = "Rount15"

        End Sub

     

    Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click
            Home.Functions1.LkbL1Id1.Text = "Rount50"
            Home.Functions1.LkbL1Id2.Text = "Rount12"
            Home.Functions1.LkbL1Id3.Text = "Rount8"

        End Sub

    .....................

     

       我想讓Functions1內的所有LinkLabel 在Click時依它的Text屬性不同而執行不同的副程式,所以我這麼寫...

     

    Private Sub LkbL1Id1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LkbL1Id1.Click, LkbL1Id2.Click, LkbL1Id3.Click       

                 Select Case sender.Text
                    Case "Rount1"
                        Call Rount1()

                    Case "Rount2"

                        Call Rount2()

          ...............

     

         Case "Rount52"

               Call Rount52()

          End Select  

    End Sub

     

    可是這樣寫程式很長,不知道有沒有比較有效率的寫法??

     

    煩請學長/姐幫忙,謝謝.
    2008年1月31日 上午 12:31

解答

  • 提示:

    Code Snippet
    this.GetType.InvokeMember(sender.Text, BindingFlags.InvokeMethod, null, this, null);

     

     

     

    2008年1月31日 上午 12:38
    版主

所有回覆