Fungsi CSS Compressor Opsi Light | Visual Basic 6.0

Artikel di bawah ini kami beri judul fungsi css compress opsi light. Apa yang dimaksud dengan css compress ini, bisa Anda lihat pada link disamping ini [css compress]. Nah, sekarang Anda faham mengenai apa tujuan, kegunaan dan mengapa kode css dikompres. Bagaimana implementasi kode css ini pada pemrograman Visual Basic 6.0? bisa Anda lihat kodenya di bawah.

Kode fungsi css compress opsi light

Option Explicit 
 
Public Function CSSCompressLight(sText As String) As String 
    Dim sTextCSS As String 
    Dim arrCSS() As String 
    sTextCSS = sText 
    sTextCSS = Replace(sTextCSS, " ", "") 
    arrCSS = Split(sTextCSS, vbCrLf) 
    sTextCSS = "" 
    For i = LBound(arrCSS) To UBound(arrCSS) 
        If arrCSS(i) <> "" Then 
            sTextCSS = sTextCSS & arrCSS(i) & vbCrLf 
        End If 
    Next 
    CSSCompressLight = sTextCSS 
End Function 

Cara penggunaan fungsi css compress opsi light

Private Sub Command1_Click() 
    Text1.Text = CSSCompress(Text1.Text) 
End Sub