Sabtu, 14 Februari 2009

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..

Jumat, 13 Februari 2009

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..

Kamis, 12 Februari 2009

menampilkan File *.SWF (Flash)

File ber ekstensi SWF merupakan file animasi yang dibuat menggunakan Macromedia Flash yang sekarang bernama Adobe Flash.

        1. Bukalah Program Visual basic 6.0 anda
        2. komponen yang digunakan untuk memanggil File SWF tidak ada dalam contol standar, maka perlu ditambahkan caranya :
          • Menu Project >> Component atau CTRL + T
          • pilih tanda centang pada pilihan Shockware flash
          • dan klik OK
* masukan Sebuah Komponen ShockwaveFlash
*
Selanjutnya kilk ganda area form setelah itu ketik perintah dibawah ini

private sub Form Load()
with Shockwaveflash1
.top = 0
.left = 0
.width = me.width * menyesuaikan lebar form
.loadMovie 0, app.path & " \flsah.swf"
end with
end sub

ket :
Peritnah ".loadMovie 0, app.path & " \flsah.swf"" hanya digunakan apabila temapt file SWf sama dengan tempat project disimpan dan disa diganti dengan
.loadMovie 0, "C:\erfan\flsah.swf"

Selamat mencoba

Baca Selengkapnya..

Tombol ENTER Sebagai Tombol TAB

Trik Ini berfungsi apabila tombol ENTER ditekan maka fungsix sama dengan Tombol TAB
* Bukalah Program Visual Basic 6.0 dan mulaikah dengan form baru
* Masukkan komponen "textbox" ke dalam area form

* Klik 2 kali pada Text1 ubalah event Change menjadi KeyPress
* Dan ketiklah Perintah dibawah ini

Private sub text1 Keypress(keyascii as integer)
if keyascii = 13 then
sendkey(vbtab)
sendkey "{home}+{end}"
end if
ed sub

* tekan F5 unutk menjalankan program

Selamat mencoba

Baca Selengkapnya..