Visual Basic

Membatasi Input hanya Numeric

2009-02-14T19:42:00.000-08:00

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

Mengubah input menjadi Kapital

2009-02-13T20:50:00.000-08:00

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

menampilkan File *.SWF (Flash)

2009-02-12T20:44:00.000-08:00

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

Bukalah Program Visual basic 6.0 anda
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

Tombol ENTER Sebagai Tombol TAB

2009-02-12T10:49:00.000-08:00

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

Buat IDE VB 6.0 Transparant

2009-02-11T07:52:00.000-08:00

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

Membatasi Program Hanya RUN 1x

2009-02-11T07:37:00.000-08:00

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

Efek Shadow Dengan Visual Basic 6.0

2009-02-11T07:16:00.000-08:00

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

Create dan Delete File

2009-02-09T10:51:00.001-08:00

desain form seperti gambar di atas

lalu ketik listing seperti dibawah ini

Private Sub Command1_Click()
x = InputBox("Lokasi Dan nama Folder baru : ")
NewFolder (x)
End Sub

Private Function FolderExists(path) As Boolean
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
If Len(path) > 3 Then
If fso.FolderExists(path) Then
FolderExists = True
Else
FolderExists = False
End If
End If
End Function

Private Function NewFolder(path)
Dim fso
Set fso = _
CreateObject("Scripting.FileSystemObject")
If Len(path) > 3 Then
If fso.FolderExists(path) Then
MsgBox "Folder Sudah ada !", vbInformation + vbOKOnly, "Informasi"
Else
fso.createfolder (path)
End If
End If
End Function

Private Function deleteFolder(path)
Set fso = CreateObject("Scripting.FileSystemObject")
If Len(path) > 3 Then
If fso.FolderExists(path) Then
fso.deleteFolder (path)
Else
MsgBox "Folder tidak ada !", vbInformation + vbOKOnly, "Informasi"
End If
End If
End Function

Private Sub Command2_Click()
y = InputBox("Lokasi Dan nama Folder Yng akan Dihapus : ")
deleteFolder (y)

End Sub

Selamat Mencoba