Fungsi Encode dan Decode Tag HTML

Kode HTML yang dituliskan dalam sebuah tulisan/postingan tentu saja tidak dapat ditulis secara langsung tetapi harus dikonversi terlebih dahulu agar format tulisannya sesuai dengan apa yang diharapkan. Perlu kita ketahui bahwa mesin penerjemah (compiler) akan menganggap tulisannya merupakan kode HTML dan menerjemahkannya, padahal yang kita maksud adalah tulisan, tulisan yang mengandung kode HTML . Dibawah ini merupakan fungsi encode dan decode tag HTML yang bisa Anda gunakan ketika membuat tulisan/postingan yang melibatkan banyak kode/tag HTML.

Option Explicit 
 
Dim EncodeTag() As String 
Dim DecodeTag() As String 
 
Enum eType 
    Decode 
    Encode 
End Enum 
 
Public Function   EncDecTag(strText As String, EncDec As eType) As String 
    Dim i As Integer 
    InitTagArray 
    For i = LBound(EncodeTag) To UBound(EncodeTag) 
        If EncDec = Encode Then 
            strText = Replace(strText, EncodeTag(i), DecodeTag(i), , , vbTextCompare) 
        Else 
            strText = Replace(strText, DecodeTag(i), EncodeTag(i), , , vbTextCompare) 
        End If 
    Next 
    EncDecTag = strText 
End Function 
 
Private Function InitTagArray() 
    Dim EncTag As String 
    Dim DecTag As String 
    EncTag = &quot;&amp;,<,>,&quot; &amp; Chr(34) &amp; &quot;,&plusmn;&quot; 
    DecTag = &quot;&amp;amp;,&amp;lt;,&amp;gt;,&amp;quot;,&amp;plusmn;&quot; 
    EncodeTag = Split(EncTag, &quot;,&quot;) 
    DecodeTag = Split(LCase(DecTag), &quot;,&quot;) 
End Function 

Cara Penggunaan Fungsi Encode dan Decode Tag HTML

Private   Sub Command1_Click() 
    Text1.SelText = EncDecTag(Text1.SelText, Decode) 
End Sub 
 
Private Sub Command2_Click() 
    Text1.SelText = EncDecTag(Text1.SelText, Encode) 
End Sub 

READ MORE - Fungsi Encode dan Decode Tag HTML

Cara Termudah Untuk Mengisi Seluruh Fonts Ke dalam ListBox

Di bawah ini merupakan fungsi untuk mengisi seluruh fonts yang ada dalam komputer Anda ke dalam objek ListBox

Public Function LoadAllFonts(lst As Control) 
    Dim i As Integer 
    For i = 1 To 1000 
        If Screen.Fonts(i) = "" Then Exit For 
        lst.AddItem Screen.Fonts(i) 
    Next i 
End Function 

Contoh penggunaan fungsi untuk mengisi seluruh fonts ke dalam ListBox

Private Sub Form_Load() 
    LoadAllFonts List1 
End Sub 

READ MORE - Cara Termudah Untuk Mengisi Seluruh Fonts Ke dalam ListBox

Fungsi Compressor CSS Opsi Super Compact | Visual Basic 6.0

Artikel di bawah ini kami beri judul fungsi css compress opsi super compact. 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 compress ini pada pemrograman Visual Basic 6.0? bisa Anda lihat kodenya di bawah.

Kode fungsi css compress opsi super compact

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

Contoh penggunaan css compress opsi super compact

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

READ MORE - Fungsi Compressor CSS Opsi Super Compact | Visual Basic 6.0

Fungsi CSS Decompress Untuk Editing | Visual Basic 6.0

Artikel ini berjudul fungsi css decompress untuk editing. Maksud dari css decompress untuk editing ialah sebuah fungsi (procedure) yang digunakan untuk mengembalikan format css yang telah dicompress. Kita tahu bahwa css yang telah dicompress tentu saja akan menyulitkan pada saat kita ingin mengeditnya kembali. Bagaimana fungsi css decompress ini?

Fungsi css decompress untuk editing

Option Explicit 
 
Public Function CSSDecompress(sText As String) As String 
    Dim sTextCSS As String 
    Dim arrCSS() As String 
    Dim i As Integer 
    sTextCSS = CSSDelSpace(sText) 
    sTextCSS = Replace(sTextCSS, "{", "{" & vbCrLf) 
    sTextCSS = Replace(sTextCSS, "}", "}" & vbCrLf & vbCrLf) 
    sTextCSS = Replace(sTextCSS, ";", ";" & vbCrLf) 
    CSSDecompress = sTextCSS 
End Function 
 
Private Function CSSDelSpace(sText As String) As String 
    Dim sTextCSS As String 
    sTextCSS = sText 
    sTextCSS = Replace(sTextCSS, " ", "") 
    sTextCSS = Replace(sTextCSS, vbCrLf, "") 
    CSSDelSpace = sTextCSS 
End Function   

Contoh penggunaan fungsi css decompress untuk editing

Private Sub Command2_Click() 
    Text1.Text = CSSDecompress(Text1.Text) 
End Sub 
 

READ MORE - Fungsi CSS Decompress Untuk Editing | Visual Basic 6.0