Saturday, September 22, 2012

Wednesday, August 15, 2012

Membuat TextBox Hanya Menerima Input Huruf/Angka di Visual Basic 6.0 (VB)

 __________________Huruf_________________ Public Sub Huruf(ByRef KeyAscii As Integer)    If Not (KeyAscii >= Asc("1") & Chr(13) And KeyAscii <= Asc("a") & Chr(13) Or (KeyAscii >= Asc("Z") & Chr(13) And KeyAscii <= Asc("Z") & Chr(13) Or KeyAscii = vbKeyBack...

Cara membuat Text/Label kedap kedip visual basic 6.0 (VB)

    Masukan component yang gambar jam beker dulu , lalu langsung masukan kode berikut ini untuk membuat teks/label kedap kedip Private Sub Timer1_Timer() If Label1.Visible = True Then 'Label1 ganti dengan nama text/label yang ingin di kedap kedip kan Label1.Visible = False Else Label1.Visible...

Thursday, August 2, 2012

Friday, July 6, 2012

Tuesday, July 3, 2012

Saturday, January 14, 2012

Friday, November 4, 2011