<label class="switch"> <input type="checkbox"> <div> <span></span> </div> </label> <label class="switch"> <input type="checkbox" checked> <div> <span></span> </div> </label> .switch { --line: #E8EBFB; --dot: #275EFE; --circle: #D3D4EC; --background: #fff; --duration: .3s; --text: #9EA0BE; --shadow: 0 1px 3px #{rgba(#00093D, .08)}; cursor: pointer; position: relative; &:before { content: ''; width: 60px; height: 32px; border-radius: 16px; background: var(--background); position: absolute; left: 0; top: 0; box-shadow: var(--shadow); } input { display: none; & + div { position: relative; &:before, &:after { --s: 1; content: ''; position: absolute; height: 4px; top: 14px; width: 24px; background: var(--line); transform: scaleX(var(--s)); transition: transform var(--duration) ease; } &:before { --s: 0; left: 4px; transform-origin: 0 50%; border-radius: 2px 0 0 2px; } &:after { left: 32px; transform-origin: 100% 50%; border-radius: 0 2px 2px 0; } span { padding-left: 60px; line-height: 28px; color: var(--text); &:before { --x: 0; --b: var(--circle); --s: 4px; content: ''; position: absolute; left: 4px; top: 4px; width: 24px; height: 24px; border-radius: 50%; box-shadow: inset 0 0 0 var(--s) var(--b); transform: translateX(var(--x)); transition: box-shadow var(--duration) ease, transform var(--duration) ease; } &:not(:empty) { padding-left: 68px; } } } &:checked { & + div { &:before { --s: 1; } &:after { --s: 0; } span { &:before { --x: 28px; --s: 12px; --b: var(--dot); } } } } } } // Center & dribbble body { min-height: 100vh; display: flex; justify-content: center; align-items: center; flex-direction: column; position: relative; background: #E8EBFB; .switch { & + .switch { margin-top: 32px; } } .dribbble { position: fixed; display: block; right: 20px; bottom: 20px; img { display: block; height: 28px; } } }

Alpha Numeric Data Sort In Datatable using VB.Net

Private Function AlphaNumericDataSortInDatatable(input As DataTable, Columnname As String, SortType As String) As DataTable
        Try
            If input.Rows.Count > 0 Then
                Dim lobjDic As New Dictionary(Of String, List(Of Integer))
                Dim IntegerData As New List(Of Integer)
                Dim AlpData As New List(Of String)
                For i As Integer = 0 To input.Rows.Count - 1
                    If CheckInteger(input.Rows(i)(0)) Then
                        IntegerData.Add(CInt(input.Rows(i)(0)))
                    Else
                        AlpData.Add(input.Rows(i)(0))
                    End If
                Next
                IntegerData.Sort()
                lobjDic.Add("INT", IntegerData)
                AlpData.Sort()
                For Each objalp As String In AlpData
                    Dim Key As String = ""
                    Dim ValueObj As New List(Of Integer)
                    For i As Integer = 0 To objalp.Length - 1
                        If CheckInteger(objalp.Substring(i, 1)) Then
                            Key = objalp.Substring(0, i)
                            If Not lobjDic.ContainsKey(Key) Then
                                ValueObj.Add(CInt(objalp.Substring(i, objalp.Length - 1)))
                                lobjDic.Add(Key, ValueObj)
                                Exit For
                            Else
                                ValueObj = lobjDic(Key)
                                ValueObj.Add(CInt(objalp.Substring(i, objalp.Length - 1)))
                                Exit For
                            End If
                        End If
                    Next
                Next

                For Each keyobj As String In lobjDic.Keys
                    Dim ValueObj As New List(Of Integer)
                    ValueObj = lobjDic(keyobj)
                    ValueObj.Sort()
                Next
                Dim ColumnObj As New DataColumn
                ColumnObj.ColumnName = "Identity"
                ColumnObj.DataType = GetType(Integer)

                input.Columns.Add(ColumnObj)
                Dim Cnt As Integer = 1
                For Each keyobj As String In lobjDic.Keys
                    For Each valueobj As String In lobjDic(keyobj)
                        If keyobj = "INT" Then
                            Dim myRow() As Data.DataRow
                            myRow = input.Select(Columnname & " = '" & valueobj & "'")
                            myRow(0)("Identity") = Cnt
                        Else
                            Dim myRow() As Data.DataRow
                            myRow = input.Select(Columnname & " = '" & keyobj & valueobj & "'")
                            myRow(0)("Identity") = Cnt
                        End If
                        Cnt = Cnt + 1
                    Next
                Next
                Dim dvGAmt As New DataView(input)
                dvGAmt.Sort = "Identity " + SortType
                Return dvGAmt.Table
            End If
        Catch ex As Exception
            Return input
        End Try
        Return input
    End Function
    Private Function CheckInteger(ByVal input As String) As Boolean
        Dim lstrReturn As Boolean = False
        Try
            Dim intval As Integer
            lstrReturn = Integer.TryParse(input, intval)
        Catch ex As Exception
            Return False
        End Try
        Return lstrReturn
    End Function

Its sort only array like 1,A1,b1,c1,c2,2,c3,b3