membuat spoiler pada artikel blog

umm,Spoiler, yap.. ini merupakan alternatif dari pembuatan readmore ..
itu fungsinya untuk meringkas artikel pemosting artikel sekaligus buat menarik perhatian reader buat membaca lebih lengkap lagi ..
umm, contoh penggunaan terbanyak adalah pada http://kaskus.us ,
nah, kalau masih bingung ini contohnya

Judul spoiler

isi spoiler anda , dimana bisa dimasukkan artikel yang panjang disini

nah minat untuk mencoba ?
ini dia code.nya
jeng..jeng..

<div><div style="margin: 5px;">
<div class="smallfont" style="margin-bottom: 2px;"><i><span style="font-weight: bold;">Judul dari spoiler</span></i><input value="Show" style="margin: 0px; padding: 0px; width: 60px; font-size: 10px;" 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 class="alt2" style="border: 1px inset ; margin: 0px; padding: 6px;">
<div style="display: none;">
isi dari spoiler yang akan ditampilkan
</div></div></div></div>

Teks yang berwarna hijau muda adalah teks yang harus anda ganti sesuai kebutuhan sobat ..
nah, selamat mencoba :)

membatasi input textbox buat hanya Huruf pada vb 6.0

terkadang suatu textbox kita menginginkan buat inputnya untuk huruf aja
jadi ini dia codingnya, umm ... sebenarnya bisa sih pake fungsi InStr , hehehe
lebih afdhol pake yang ini deh

preparation :
1 project standar EXE
1 textbox

Public Sub Hurufsaja(ByRef KeyAscii As Integer)
    If Not (KeyAscii >= Asc("a") & Chr(13) And KeyAscii <= Asc("z") & Chr(13) Or (KeyAscii >= Asc("A") & Chr(13) And KeyAscii <= Asc("Z") & Chr(13) Or KeyAscii = vbKeyBack Or KeyAscii = vbKeyDelete Or KeyAscii = vbKeySpace)) Then
        KeyAscii = 0
    End If
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
    Hurufsaja KeyAscii
End Sub

hehehe.. silahkan coba niih :D