Membatasi Input hanya Numeric

ada kalanya dalam membagun aplikasi ada input yang hanya bolrh di isi dengan Angka saja (0 - 9),contoh untuk input nomor telepon ,NIP dll. kali ini saya akan sedikit berbagi tentang hal di atas

1. Klik Ganda Pada Textbox yang ingin dibatasi Inputnya dalam contoh ini saya gunakan text1
2. Ganti Event change menjadi keypress
3. ketik perintah dibawah ini


Private Sub text1_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9")
_ Or KeyAscii = vbKeyBack) Then
beep
KeyAscii =0
end if
End Sub

Selamat mencoba

Baca Selengkapnya..

Mengubah input menjadi Kapital

biasanya dalam membangun aplikasi terkadang dibutuhkan untuk mengubah input menjadi huruf kapital. dalam trik kali ini saya ingin membagi sedikit pengetahuanku. langsung aja yah!!!!!!

1. Klik ganda pada TextBox yang ingin kita setting menjadi Huruf Kapital
2. ganti event dari textboxt yang semula change menjadi keypress
3. Keitk seperti listing dibawah ini :

Private Sub text1_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub

4. Tekan F5

Selamat Mencoba

Baca Selengkapnya..

Buat IDE VB 6.0 Transparant

Ingin Tampilan IDE VB 6.0 anda Transparan ???

Buka Program VB anda

• Masuk Menu Tools->Options
• Pilih Tab Advance
• Centang "SDI Development Environment"
• Klik OK
• Tutup Lembar Kerja VB anda
• Hasil akan Terlihat Jika Program di buka kembali

Selamat Mencoba

Baca Selengkapnya..

Membatasi Program Hanya RUN 1x

ketik listing seperti di bawah ini :

Private Sub Form_Load()

If App.PrevInstance = True Then

MsgBox "Program Telah Aktif !! "

End

End If

End Sub

Selamat Mencoba

Baca Selengkapnya..

Efek Shadow Dengan Visual Basic 6.0

pertama - tama buat prosedur seperti di bawah ini :

Public Sub shadow(kontrol As Control)
Dim X As Integer
Dim Y As Integer
Const warna = &H404040
Const lebar = 3
X = Me.DrawWidth
Y = ScaleMode
Me.ScaleMode = 3
Me.DrawWidth = 1
Me.Line (kontrol.Left + lebar, kontrol.Top + lebar)-Step(kontrol.Width, _
kontrol.Height), warna, BF
Me.DrawWidth = X
Me.ScaleMode = Y
End Sub

setelah itu, pada prosedur Form_Paint inisilisasi kontrol yang anda ingin berikan efek shadow, contoh :

Private Sub Form_Paint()
shadow( Command1)
shadow (Text1)
End Sub

selamat mencoba

Baca Selengkapnya..