Visual Basic.NET - RESUMIR IF 'CONDICION' THEN

If ComboBox1.Text = "A" And ComboBox2.Text = "1" Or ComboBox1.Text = "A" And ComboBox2.Text = "2" Or ComboBox1.Text = "B" And ComboBox2.Text = "1" Or ComboBox1.Text = "B" And ComboBox2.Text = "2"Then

'Code

End If

If

ComboBox1.Text = "A" And ComboBox2.Text = "1"

Or

ComboBox1.Text = "A" And ComboBox2.Text = "2"

Or

ComboBox1.Text = "B" And ComboBox2.Text = "1"

Or

ComboBox1.Text = "B" And ComboBox2.Text = "2"

Then

'Code

End If

' ********** If ComboBox1.Text = "A" And ComboBox2.Text = "1" Or ComboBox1.Text = "A" And ComboBox2.Text = "2" Or ComboBox1.Text = "B" And ComboBox2.Text = "1" Or ComboBox1.Text = "B" And ComboBox2.Text = "2"Then

Tienes que escribir solamente este 'Code 

' ********** End If

Friend Function DarDuracion() As Integer  ' Con Friend, puede lo llamar de otro Form ... 

    ' si DGV es en otro Form pero no este función, tienes que dar el nombre de este Form antes los nombres de los ComboBox y ante el nombre del DGV

    ' If NombreForm.DGV = NombreForm.ComboBox ...

    '

    ' Supongo que este funcion es en mismo Form que DGV y los Combos ...

    For R As Integer = 0 To MiDGV.Rows.Count - 2   ' -2 si existe una ultima Row vacia

        If MiDGV.Item("Material", R) = ComboBoxMaterial.Text And

            MiDGV.Item("Diametro", R) = ComboBoxDiametro.Text And

            MiDGV.Item("Espesor", R) = ComboBoxEspesor.Text Then

            Return CType(MiDGV.Item("Duracion", R).Value, Integer)

        End If

    Next

    Return -1  ' Este es un codigo significado "no buscado"

End Function

Private Sub FInicio_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

        CrearBaseParaArchivoTraducciones()

End Sub

Private Sub CrearBaseParaArchivoTraducciones()

        Dim NombreArchivo As String = Me.Name & ".TXT"  ' El archivo se creado en mismo lugar que el archivo EXE del proyecto (Debug o Release)

' ... ... ...

Table.Columns.Add("OPERATION", Type.GetType("System.String"))

        Table.Columns.Add("START DATE", Type.GetType("System.DateTime"))

        Table.Columns.Add("FINAL DATE", Type.GetType("System.DateTime"))

        Table.Columns.Add("STATUS", Type.GetType("System.DateTime"))

IF Lenguaje = "ES" Then

HeaderDGVOperacion = … en el archivo, leer el texto de HeaderDGVOperacion dondé el código es ES

HeaderDGVInicialFecha = …

HeaderDGVUltimaFecha = …

HeaderDGVEstado = …

Else

HeaderDGVOperacion = … en el archivo, leer el texto de HeaderDGVOperacion dondé el código es US

HeaderDGVInicialFecha = …

HeaderDGVUltimaFecha = …

HeaderDGVEstado = …

End If

' Y programar un sola vez el código (cuando debes corregir un “bug”, corrige una vez) :

        Table.Columns.Add(HeaderDGVOperacion, Type.GetType("System.String"))

        Table.Columns.Add(HeaderDGVInicialFecha, Type.GetType("System.DateTime"))

        Table.Columns.Add(HeaderDGVUltimaFecha, Type.GetType("System.DateTime"))

        Table.Columns.Add(HeaderDGVEstado, Type.GetType("System.DateTime"))

If ComboBox1.Text = "A" And ComboBox2.Text = "1" Or ComboBox1.Text = "A" And ComboBox2.Text = "2" _

     Or ComboBox1.Text = "B" And ComboBox2.Text = "1" Or ComboBox1.Text = "B" And ComboBox2.Text = "2" Then

end if

Private Sub RBConfirmar_CheckedChanged(sender As Object, e As EventArgs) Handles RBConfirmarSI.CheckedChanged, RBConfirmarNO.CheckedChanged

        Button1.Enabled = False

        Button2.Enabled = False

        BImprimir.Enabled = False

' ...

        If RBConfirmarSI.Checked Then

            Button1.Enabled = True

            Button2.Enabled = True

            BImprimir.Enabled = True

' ...

        End If

    End Sub

    Private Sub TBDuracionPropuesta_TextChanged(sender As Object, e As EventArgs) Handles TBDuracionPropuesta.TextChanged

        RBConfirmarSI.Checked = False

    End Sub