Question

我想使用变量作为我的子参数之一，所以我可以在我的编码中应用 DRY: Don't Repeat Yourself 。我真的不确定我怎么说这个，因为标题似乎与我的真实问题无关。

基本上我有这个代码，我想转换成sub，所以我可以多次调用它

Dim counter_1 As Integer = 0
Dim counter_2 As Integer = 0
Dim num_blink As Integer

Private Sub Tmr_Recall_Tick(sender As Object, e As EventArgs) Handles Tmr_Recall_01.Tick
    num_blink = ((CInt(My.Settings.num_blink) - 1) * 2)
    Service_Num = "01"
    Console.WriteLine(counter_1)
    Console.WriteLine(num_blink)
    If Lbl_Temp_01.Text = "1" Then
        If counter_1 <= num_blink Then
            For Each Ctrl_Panel As Panel In Me.Pnl_Service.Controls.OfType(Of Panel)()
                If TypeOf Ctrl_Panel Is Panel And Ctrl_Panel.Name = "Pnl_Service_" & Service_Num Then
                    For Each Ctrl_Lbl In Ctrl_Panel.Controls
                        If TypeOf Ctrl_Lbl Is Label And Ctrl_Lbl.Name = "Lbl_Service_Current_" & Service_Num Then
                            If CType(Ctrl_Lbl, Label).Visible = False Then
                                CType(Ctrl_Lbl, Label).Visible = True
                                CType(Ctrl_Lbl, Label).ForeColor = Color.Black
                            End If
                            If CType(Ctrl_Lbl, Label).ForeColor = Color.Red Then
                                CType(Ctrl_Lbl, Label).Visible = False
                            End If
                            If CType(Ctrl_Lbl, Label).Visible = True Then
                                CType(Ctrl_Lbl, Label).ForeColor = Color.Red
                            End If
                        End If
                        If TypeOf Ctrl_Lbl Is Label And Ctrl_Lbl.Name = "Lbl_Service_Window_" & Service_Num Then
                            If CType(Ctrl_Lbl, Label).Visible = False Then
                                CType(Ctrl_Lbl, Label).Visible = True
                                CType(Ctrl_Lbl, Label).ForeColor = Color.Black
                            End If
                            If CType(Ctrl_Lbl, Label).ForeColor = Color.Red Then
                                CType(Ctrl_Lbl, Label).Visible = False
                            End If
                            If CType(Ctrl_Lbl, Label).Visible = True Then
                                CType(Ctrl_Lbl, Label).ForeColor = Color.Red
                            End If
                        End If
                    Next
                End If
            Next Ctrl_Panel
            counter_1 += 1
        Else
            Lbl_Temp_01.Text = "0"
            counter_1 = 0
        End If
    Else
        For Each Ctrl_Panel As Panel In Me.Pnl_Service.Controls.OfType(Of Panel)()
            If TypeOf Ctrl_Panel Is Panel And Ctrl_Panel.Name = "Pnl_Service_" & Service_Num Then
                For Each Ctrl_Lbl In Ctrl_Panel.Controls
                    If TypeOf Ctrl_Lbl Is Label And Ctrl_Lbl.Name = "Lbl_Service_Current_" & Service_Num Then
                        CType(Ctrl_Lbl, Label).ForeColor = Color.Black
                        CType(Ctrl_Lbl, Label).Visible = True
                    End If
                    If TypeOf Ctrl_Lbl Is Label And Ctrl_Lbl.Name = "Lbl_Service_Window_" & Service_Num Then
                        CType(Ctrl_Lbl, Label).ForeColor = Color.Black
                        CType(Ctrl_Lbl, Label).Visible = True
                    End If
                Next
            End If
        Next Ctrl_Panel
    End If
End Sub

Private Sub Tmr_Recall_02_Tick(sender As Object, e As EventArgs) Handles Tmr_Recall_02.Tick
    num_blink = ((CInt(My.Settings.num_blink) - 1) * 2)
    Service_Num = "02"
    Console.WriteLine(counter_2)
    Console.WriteLine(num_blink)
    If Lbl_Temp_02.Text = "1" Then
        If counter_2 <= num_blink Then
            For Each Ctrl_Panel As Panel In Me.Pnl_Service.Controls.OfType(Of Panel)()
                If TypeOf Ctrl_Panel Is Panel And Ctrl_Panel.Name = "Pnl_Service_" & Service_Num Then
                    For Each Ctrl_Lbl In Ctrl_Panel.Controls
                        If TypeOf Ctrl_Lbl Is Label And Ctrl_Lbl.Name = "Lbl_Service_Current_" & Service_Num Then
                            If CType(Ctrl_Lbl, Label).Visible = False Then
                                CType(Ctrl_Lbl, Label).Visible = True
                                CType(Ctrl_Lbl, Label).ForeColor = Color.Black
                            End If
                            If CType(Ctrl_Lbl, Label).ForeColor = Color.Red Then
                                CType(Ctrl_Lbl, Label).Visible = False
                            End If
                            If CType(Ctrl_Lbl, Label).Visible = True Then
                                CType(Ctrl_Lbl, Label).ForeColor = Color.Red
                            End If
                        End If
                        If TypeOf Ctrl_Lbl Is Label And Ctrl_Lbl.Name = "Lbl_Service_Window_" & Service_Num Then
                            If CType(Ctrl_Lbl, Label).Visible = False Then
                                CType(Ctrl_Lbl, Label).Visible = True
                                CType(Ctrl_Lbl, Label).ForeColor = Color.Black
                            End If
                            If CType(Ctrl_Lbl, Label).ForeColor = Color.Red Then
                                CType(Ctrl_Lbl, Label).Visible = False
                            End If
                            If CType(Ctrl_Lbl, Label).Visible = True Then
                                CType(Ctrl_Lbl, Label).ForeColor = Color.Red
                            End If
                        End If
                    Next
                End If
            Next Ctrl_Panel
            counter_2 += 1
        Else
            Lbl_Temp_02.Text = "0"
            counter_2 = 0
        End If
    Else
        For Each Ctrl_Panel As Panel In Me.Pnl_Service.Controls.OfType(Of Panel)()
            If TypeOf Ctrl_Panel Is Panel And Ctrl_Panel.Name = "Pnl_Service_" & Service_Num Then
                For Each Ctrl_Lbl In Ctrl_Panel.Controls
                    If TypeOf Ctrl_Lbl Is Label And Ctrl_Lbl.Name = "Lbl_Service_Current_" & Service_Num Then
                        CType(Ctrl_Lbl, Label).ForeColor = Color.Black
                        CType(Ctrl_Lbl, Label).Visible = True
                    End If
                    If TypeOf Ctrl_Lbl Is Label And Ctrl_Lbl.Name = "Lbl_Service_Window_" & Service_Num Then
                        CType(Ctrl_Lbl, Label).ForeColor = Color.Black
                        CType(Ctrl_Lbl, Label).Visible = True
                    End If
                Next
            End If
        Next Ctrl_Panel
    End If
End Sub

在那段代码中，您可以看到我正在重复我的大部分代码，因为我想在我的2个定时器中应用它（实际上我使用6个定时器，它可能甚至更多）

这就是为什么我觉得将它转换为sub更实际的原因，就在这里。

Sub recall_Service_num(Service_Num As String, Lbl_Temp As Label, counter As Integer)
    num_blink = ((CInt(My.Settings.num_blink) - 1) * 2)
    Console.WriteLine(counter)
    Console.WriteLine(num_blink)
    If Lbl_Temp.Text = "1" Then
        If counter <= num_blink Then
            For Each Ctrl_Panel As Panel In frmQueuing.Pnl_Service.Controls.OfType(Of Panel)()
                If TypeOf Ctrl_Panel Is Panel And Ctrl_Panel.Name = "Pnl_Service_" & Service_Num Then
                    For Each Ctrl_Lbl In Ctrl_Panel.Controls
                        If TypeOf Ctrl_Lbl Is Label And Ctrl_Lbl.Name = "Lbl_Service_Current_" & Service_Num Then
                            If CType(Ctrl_Lbl, Label).Visible = False Then
                                CType(Ctrl_Lbl, Label).Visible = True
                                CType(Ctrl_Lbl, Label).ForeColor = Color.Black
                            End If
                            If CType(Ctrl_Lbl, Label).ForeColor = Color.Red Then
                                CType(Ctrl_Lbl, Label).Visible = False
                            End If
                            If CType(Ctrl_Lbl, Label).Visible = True Then
                                CType(Ctrl_Lbl, Label).ForeColor = Color.Red
                            End If
                        End If
                        If TypeOf Ctrl_Lbl Is Label And Ctrl_Lbl.Name = "Lbl_Service_Window_" & Service_Num Then
                            If CType(Ctrl_Lbl, Label).Visible = False Then
                                CType(Ctrl_Lbl, Label).Visible = True
                                CType(Ctrl_Lbl, Label).ForeColor = Color.Black
                            End If
                            If CType(Ctrl_Lbl, Label).ForeColor = Color.Red Then
                                CType(Ctrl_Lbl, Label).Visible = False
                            End If
                            If CType(Ctrl_Lbl, Label).Visible = True Then
                                CType(Ctrl_Lbl, Label).ForeColor = Color.Red
                            End If
                        End If
                    Next
                End If
            Next Ctrl_Panel
            counter += 1
        Else
            Lbl_Temp.Text = "0"
            counter = 0
        End If
    Else
        For Each Ctrl_Panel As Panel In frmQueuing.Pnl_Service.Controls.OfType(Of Panel)()
            If TypeOf Ctrl_Panel Is Panel And Ctrl_Panel.Name = "Pnl_Service_" & Service_Num Then
                For Each Ctrl_Lbl In Ctrl_Panel.Controls
                    If TypeOf Ctrl_Lbl Is Label And Ctrl_Lbl.Name = "Lbl_Service_Current_" & Service_Num Then
                        CType(Ctrl_Lbl, Label).ForeColor = Color.Black
                        CType(Ctrl_Lbl, Label).Visible = True
                    End If
                    If TypeOf Ctrl_Lbl Is Label And Ctrl_Lbl.Name = "Lbl_Service_Window_" & Service_Num Then
                        CType(Ctrl_Lbl, Label).ForeColor = Color.Black
                        CType(Ctrl_Lbl, Label).Visible = True
                    End If
                Next
            End If
        Next Ctrl_Panel
    End If
End Sub

所以现在我可以像这样使用它

Dim counter_1 As Integer = 0
Dim counter_2 As Integer = 0
Dim counter_3 As Integer = 0
Dim counter_4 As Integer = 0

Private Sub Tmr_Recall_Tick(sender As Object, e As EventArgs) Handles Tmr_Recall_01.Tick
    recall_Service_num("01", Lbl_Temp_01, counter_1)
End Sub

Private Sub Tmr_Recall_02_Tick(sender As Object, e As EventArgs) Handles Tmr_Recall_02.Tick
    recall_Service_num("02", Lbl_Temp_02, counter_2)
End Sub

Private Sub Tmr_Recall_03_Tick(sender As Object, e As EventArgs) Handles Tmr_Recall_03.Tick
    recall_Service_num("03", Lbl_Temp_03, counter_3)
End Sub

Private Sub Tmr_Recall_04_Tick(sender As Object, e As EventArgs) Handles Tmr_Recall_04.Tick
    recall_Service_num("04", Lbl_Temp_04, counter_4)
End Sub

我的问题是，counter_1，counter_2等等似乎无法在recall_Service_num("01", Lbl_Temp_01, counter_1)中使用？关于如何将变量添加为我的子中的一个参数的任何想法？

Answer 1

计数器参数传递 ByVal （即变量的副本）。

您需要在 ByRef 中传递它。

Sub recall_Service_num(Service_Num As String, Lbl_Temp As Label, ByRef counter As Integer)

Answer 2

除了按照程序员的建议传递计数器 ByRef 之外，使用Controls.Find()获取对所需标签的引用：

Sub recall_Service_num(ByVal Service_Num As String, ByVal Lbl_Temp As Label, ByRef counter As Integer)
    num_blink = ((CInt(My.Settings.num_blink) - 1) * 2)
    Dim lblServiceCurrent As Label = frmQueuing.Controls.Find("Lbl_Service_Current_" & Service_Num, True).FirstOrDefault
    Dim lblServiceWindow As Label = frmQueuing.Controls.Find("Lbl_Service_Window_" & Service_Num, True).FirstOrDefault

    If Lbl_Temp.Text = "1" Then
        If counter <= num_blink Then
            If Not IsNothing(lblServiceCurrent) Then
                If lblServiceCurrent.Visible = False Then
                    lblServiceCurrent.Visible = True
                    lblServiceCurrent.ForeColor = Color.Black
                End If
                If lblServiceCurrent.ForeColor = Color.Red Then
                    lblServiceCurrent.Visible = False
                End If
                If lblServiceCurrent.Visible = True Then
                    lblServiceCurrent.ForeColor = Color.Red
                End If
            End If

            If Not IsNothing(lblServiceWindow) Then
                If lblServiceWindow.Visible = False Then
                    lblServiceWindow.Visible = True
                    lblServiceWindow.ForeColor = Color.Black
                End If
                If lblServiceWindow.ForeColor = Color.Red Then
                    lblServiceWindow.Visible = False
                End If
                If lblServiceWindow.Visible = True Then
                    lblServiceWindow.ForeColor = Color.Red
                End If
            End If

            counter += 1
        Else
            Lbl_Temp.Text = "0"
            counter = 0
        End If
    Else
        If Not IsNothing(lblServiceCurrent) Then
            lblServiceCurrent.ForeColor = Color.Black
            lblServiceCurrent.Visible = True
        End If

        If Not IsNothing(lblServiceWindow) Then
            lblServiceWindow.ForeColor = Color.Black
            lblServiceWindow.Visible = True
        End If
    End If
End Sub

如何将变量用作sub的参数？

2 个答案: