Spoiler Kode Seperti Yang Terdapat pada Spoiler Wikipedia?

Mengenai cara membuat spoiler seperti yang terdapat pada Wikipedia. Untuk menjalankannya copy dan pastekan kode di bawah ini, selanjutnya gantilah Spoiler Title: dan Text Spoiler.

<div style="padding: 10px; border:1px solid #ccc;background:#f9f9f9"><div style="margin-bottom: 0px;font-family: arial;font-size:12px;"><b>Spoiler Title:</b><input value="Show" style="border:0px solid #000;margin:0px;color:#0000FF;font-family: arial; font-size: 12px; height:16; background:#f9f9f9" onclick="if (this.parentNode.parentNode.getElementsByTagName('div')[1].getElementsByTagName('div')[0].style.display != '') { this.parentNode.parentNode.getElementsByTagName('div')[1].getElementsByTagName('div')[0].style.display = ''; this.innerText = ''; this.value = 'Hide'; } else { this.parentNode.parentNode.getElementsByTagName('div')[1].getElementsByTagName('div')[0].style.display = 'none'; this.innerText = ''; this.value = 'Show'; }" type="button"> </div><div style="margin: 0 10px 0px 10px; padding: 0px; border: 0px inset #fff;"><div style='display:none'><br/>Text Spoiler</div></div></div>

Demo spoiler code ala Wikipedia:

Enhanced Pair-Bi:

'simpan kode di bawah pada Form 
Option Explicit 
'buatlah satu project dengan 1 Form, 1 CommandButton, 1 TextBox 
Private Sub Command1_Click() 
    Dim g As String 
    Dim i As Integer 
    Dim s() As String 
    Dim x As String 
    g = Text1.Text 
    g = RemoveEndCrlf(g) 
    If Trim(g) = "" Then Exit Sub 
    If InStr(1, g, "<b></b>") > 0 Then 
        g = Replace(g, "<b></b>", "") 
        Text1.Text = RemoveEndCrlf(g) 
        Exit Sub 
    Else 
        s = Split(g, vbCrLf) 
        For i = 0 To UBound(s) 
            x = x & "<b></b>" & s(i) & vbCrLf 
        Next 
    End If 
    Text1.Text = RemoveEndCrlf(x) 
End Sub 
 
'fungsi di bawah digunakan untuk menghilangkan karakter CRLF 
'yang terdapat pada akhir kode 
Private Function RemoveEndCrlf(s As String) 
    Dim str As String 
    str = s 
    If Right(str, 2) = vbCrLf Then 
        Do While Right(str, 2) = vbCrLf 
            str = Left(str, Len(str) - 2) 
        Loop 
    End If 
    RemoveEndCrlf = str 
End Function 

Selain menggunakan untuk text spoiler juga bisa digunakan untuk menampilkan dan menyembunyikan gambar.

Catatan Penting: kode-kode HTML/XML yang akan dijalankan (bukan tulisan [ seperti kode spoiler di atas]) harus dibuat satu baris, mengapa demikian?

READ MORE - Spoiler Kode Seperti Yang Terdapat pada Spoiler Wikipedia?

VB6 Code - Mengambil URL Dari Address Bar IE

Mengenai cara mengambil URL dari adress bar yang terdapat pada IE menggunakan fungsi API, dengan melakukan spy terhadap HWND induk dan turunannya. Selain dengan API di bawah ini, kita pun bisa mengambil URL yang terdapat pada adress bar IE atau Firefox dengan menggunakan DDE.

Option Explicit 
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long 
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long 
Private Const WM_GETTEXT = &HD 
Private Const WM_GETTEXTLENGTH = &HE 
 
Private Sub FindIt(ByVal sClassName As String) 
On Error GoTo CallErrorA 
    lhWnd = FindWindowEx(lhWnd, 0, sClassName, vbNullString) 
End Sub 
Private Function GetAddressText() As String 
On Error GoTo CallErrorA 
    Dim usText() As Byte  
    Dim iPos As Integer 
    lhWnd = 0 
    Call FindIt("IEFrame") 
    Call FindIt("WorkerA") 
    Call FindIt("ReBarWindow32") 
    Call FindIt("ComboBoxEx32") 
    Call FindIt("ComboBox") 
    Call FindIt("Edit") 
    ReDim usText(0 To SendMessage(lhWnd, WM_GETTEXTLENGTH, 0, ByVal 0&) + 1)  
    If UBound(usText) = 1 Then 
        GetAddressText = "" 
    Else 
        usText(0) = UBound(usText) And 255 
        usText(1) = UBound(usText)  256 
        Call SendMessage(lhWnd, WM_GETTEXT, UBound(usText), usText(0)) 
        GetAddressText = StrConv(usText, vbUnicode) 
        iPos = InStr(GetAddressText, vbNullChar) 
        If iPos > 0 Then GetAddressText = Left(GetAddressText, iPos - 1) 
    End If 
End Function 

READ MORE - VB6 Code - Mengambil URL Dari Address Bar IE

Cara Membuat Direktori lebih dari 1 level - (Pengelolaan Fil

Fungsi yang menjelaskan mengenai cara membuat direktori lebih dari satu level, 2, 3 dan seterusnya - Mengenai kode membuat direktori lebih dari 1 level bisa Anda lihat di bawah ini:

Option Explicit 
 
Private Function CreateDir(strDir As String) As Boolean 
On Error Resume Next 
    Dim s() As String 
    s = Split(strDir, "\") 
    Dim i As Integer 
    For i = 1 To UBound(s) 
        s(0) = s(0) & "\" & s(i) 
        MkDir s(0) 
    Next 
End Function 
 
'contoh penggunaan fungsi di atas 
Private Sub Command1_Click() 
    CreateDir "C:\test1\test2\test3\test4 dan test5\test6\test7 dan test8" 
End Sub 

READ MORE - Cara Membuat Direktori lebih dari 1 level - (Pengelolaan Fil

Memahami Drag and Drop Dalam Visual Basic 6

Posting mengenai contoh operasi Drag and Drop menggunakan OLE pada VB6, Sebelum Anda mencoba kode drag and drop di bawah ini, settinglah property objek Picture1 OLEDropMode = 1 - Manual dan Property AutoSize = True.

Private Sub Picture1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)  
On Error GoTo ErrHandler  
    Picture1.Picture = LoadPicture(Data.Files(1)) 
   Exit Sub  
ErrHandler:  
    MsgBox "Error gambar tidak bisa diload" 
End Sub 

Untuk melihat cara kerjanya, bukalah Windows Explorer draglah satu file gambar yang terdapat pada Windows Explorer tersebut, selanjutnya drop tepat di atas object PictureBox.

READ MORE - Memahami Drag and Drop Dalam Visual Basic 6