CORRELATIVOS EN .NET

CORRELATIVO CON FORMATO DE FACTURACIÓN ALFANUMÉRICA

CODIFICACIÓN:

Public Class FORM1

    Private Sub BUTTON1_CLICK(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles Button1.Click

        Dim C As Integer

        C = TXT_CORRELATIVO.TEXT

        C = C + 1

        TXT_CORRELATIVO.TEXT = Format(C, CBO_FORMATO.TEXT)

        LABEL_RESUL.TEXT = TXT_LETRA.TEXT + TXT_CORRELATIVO.TEXT

    End Sub

End Class

CORRELATIVO CON FORMATO DE FACTURACIÓN NUMÉRICA

CODIFICACIÓN:

Public Class FORM1

    Private Sub BUTTON1_CLICK(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles Button1.Click

        Dim C As Integer

        C = TXT_CORRELATIVO.TEXT

        C = C + 1

        TXT_CORRELATIVO.TEXT = Format(C, CBO_FORMATO.TEXT)

    End Sub

End Class