[VB.NET] Estendere il tempo di un Timer

[e444]

Ok, ora si capisce qualcosa di più... permettimi iniziando con alcuni errori "di concetto":

PublicSubCBSala1Posto1_SelectedIndexChanged(sender AsObject, e AsSystem.EventArgs)HandlesCBSala1Posto1.SelectedIndexChanged
       
       'se è selezionato l'item 0, la label sarà rinominata con il t1 che corrisponde a "3600".
        If CBSala1Posto1.SelectedIndex="0"Then
            LBTimerS1P1.Text= t1
        ElseIf CBSala1Posto1.SelectedIndex="1"Then
           'se è selezionato l'item 1, la label sarà rinominata con il t2 che corrisponde a "7200".                           LBTimerS1P1.Text= t2
       ...............
       ..............

Se non usi ElseIf ti rileggi anche tutti gli If che non ti servono.

Ti rispondo passo passo...

Si... avrei potuto usare l'ElseIf... ma, se ci pensi, potrei fare ancor meglio a convertirlo con un Select Case... e molto probabilmente farò così...

Public Sub CBSala1Posto1_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles CBSala1Posto1.SelectedIndexChanged

        Select Case CBSala1Posto1.SelectedIndex
            Case 0
                LBTimerS1P1.Text = t1
            Case 1
                LBTimerS1P1.Text = t2
            Case 2
                LBTimerS1P1.Text = t3
            Case 3
                LBTimerS1P1.Text = t4
        End Select


    End Sub

Forse è ancora meglio... o sbaglio?...

[eziogsv]

Ti rispondo passo passo...

Si... avrei potuto usare l'ElseIf... ma, se ci pensi, potrei fare ancor meglio a convertirlo con un Select Case... e molto probabilmente farò così...
[CUT]

Forse è ancora meglio... o sbaglio?...

Personalmente se possibile preferisco il SELECT al ELSEIF.... ma è una questione "estetica" di pulizia del codice: se fai reverse engineering del codice compilato vedi che il SELECT viene comunque "trasformato" dal compilatore in una serie di If... ElseIf...

Riguardo al codice:

        Select Case CBSala1Posto1.SelectedIndex
            Case 0
                LBTimerS1P1.Text = t1
            Case 1
                LBTimerS1P1.Text = t2
            Case 2
                LBTimerS1P1.Text = t3
            Case 3
                LBTimerS1P1.Text = t4
        End Select

personalmente, onde evitare di creare 35.600 variabili, userei la variabile "Durata" che vedo che hai dichiarato (Dim Durata as Integer = 3600).

        Select Case CBSala1Posto1.SelectedIndex
            Case 0
                LBTimerS1P1.Text = Durata
            Case 1
                LBTimerS1P1.Text = Durata * 2
            Case 2
                LBTimerS1P1.Text = Durata * 3
            Case 3
                LBTimerS1P1.Text = Durata * 4
        End Select

che mi pare più pulito e meglio leggibile in futuro