VB6 Code - Fungsi Encode Dan Decode Tag HTML

Mengenai Fungsi VB6 untuk meng-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 = "&,<,>," & Chr(34) & ",±"
    DecTag = "&amp;,&lt;,&gt;,&quot;,&plusmn;"
    EncodeTag = Split(EncTag, ",")
    DecodeTag = Split(LCase(DecTag), ",")
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 - VB6 Code - Fungsi Encode Dan Decode Tag HTML

VB6 Code - Fungsi Personal Editor HTML Ordering List [ ol ]

Ini merupakan fungsi VB6 yang digunakan untuk membuat personal editor. Tag yang akan kita modifikasi adalah tag OL (Ordering List).

Option Explicit

Function OL(strText As String) As String
    Dim sText As String
    Dim aText() As String
    Dim i As Integer
    sText = strText
    aText = Split(sText, vbCrLf)
    For i = LBound(aText) To UBound(aText)
        Select Case i
        Case LBound(aText)
            sText = "<ol>" & "<li>" & aText(i) & "</li>" & vbCrLf
        Case UBound(aText)
            sText = sText & "<li>" & aText(i) & "</li>" & "</ol>"
        Case Else
            sText = sText & "<li>" & aText(i) & "</li>" & vbCrLf
        End Select
    Next
    OL = sText
End Function

Cara penggunaan Fungsi Personal Editor HTML Ordering List <OL>

Private Sub Command1_Click()
    Text1.SelText = OL(Text1.SelText)
End Sub

READ MORE - VB6 Code - Fungsi Personal Editor HTML Ordering List [ ol ]

Blogging - Membuat Menu Drop Down Pada Blogspot

Mengenai cara membuat menu dropdown pada blogspot - Untuk membuat menu dropdown,selain membuat situs lebih rapi,juga sambil belajar yuk!

Untuk kodenya copy paste kode di bawah ini :

<form><select name="menu"
onchange="window.open(this.options[this.selectedIndex].value,'_blank')"size=1
name=menu><option value=0 selected>KATA YANG PERTAMA MUNCUL</option>
<option value="ALAMAT YANG DI TUJU">TEXT YANG DI TAMPILKAN</option>
</select></form>

Contoh penggunaan kode :

<form><select name="menu"
onchange="window.open(this.options[this.selectedIndex].value,'_blank')"size=1
name=menu>
<option>Link</option>
<option value="http://www.youtube.com">Youtube</option>
<option value="http://www.yahoo.com">Yahoo</option>
<option value="http://www.google.com">Google</option>
</select></form>

Yang hasilnya nanti akan seperti di bawah ini :

LinkYoutubeYahooGoogle

READ MORE - Blogging - Membuat Menu Drop Down Pada Blogspot

VB Code - Mengisi Seluruh Fonts Ke Dalam Listbox

Di bawah ini merupakan fungsi VB6 untuk mengisi seluruh fonts yang ada dalam komputer Anda ke dalam objek ListBox pada dasarnya Anda dapat menggunakan objek selain ListBox seperti ListView, TreeView, dll.

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 VB6 di atas:

Private Sub Form_Load()
    LoadAllFonts List1
End Sub

READ MORE - VB Code - Mengisi Seluruh Fonts Ke Dalam Listbox