Searching di ListView

Sial... maksudnya bikin buru-buru biar bisa di upload untuk temen- temen di www. vb-bego.net eh.. malah keduluan servernya eror,websitenya kagak bisa dibuka.Udah kepalang mau upload, Terpaksa dah nulis di blog dulu neh...

Neh program pencarian pada listview. Biasanya kan pencarian dari database, tapi ini pencarian pada listview. mungkin akan bermanfaat, agar tidak terus-terusan manggil data dari database. Pencarian ini saya buat dengan memanfaatkan konsep matriks :)

silakan download di : http://rapidshare.com/files/104126558/pencarianDi_Listview.zip.html

semoga membantu

salam.... BeGO [ ... ]

CopyFile Visual Basic 6

hmm.. dari pada neh trik jamuran d hardisk, aku upload aja dah, sapa tau ada yang membutuhkan..
Ini contoh trik untuk mengcopy File.
dengan menggunaka Fungsi bawaan : CopyFile
kalo ada yang berminat silakan download aja di sini :
http://rapidshare.com/files/102961075/copyPDFdiVB.zip.html

bersambung dengan file-file lain.... hehehe... [ ... ]

combo Trik

setelah beberapa saat buka2 direktori kerja, saya menemukan file ini. File yang saya buat waktu membantu menyelesaikan permasalah seorang temen dengan combo. Dari pada lumutan di dalam direktori saya posting disini aja ya...
Ini contoh trik combo, tinggal di edit sedikit dan bisa digunakan sesuai keinginan anda.

"sebelumnya sediakan 2 combobox di form anda. copy paste deh..

Private Sub Form_Load()
Dim i As Integer
For i = 1 To Screen.FontCount
Me.Combo1.AddItem Screen.Fonts(i)
Me.Combo2.AddItem Screen.Fonts(i)
Next i
End Sub


'+++++++++++ Coding combo2

Private Sub Combo1_Change()
Dim item As Integer, count As Integer

'deteksi jumlah item di combo
count = Me.Combo1.ListCount - 1

For item = 0 To count
'jika huruf awal = huruf awal item
If LCase$(Me.Combo1.Text) = Left$(LCase(Me.Combo1.List(item)), Len(LCase(Combo1.Text))) Then
'menetapkan isi terpilih
Me.Combo1.ListIndex = item
Exit For
End If
Next item

SendKeys "{F4}"

End Sub


Private Sub Combo1_GotFocus()
SendKeys "{F4}"
End Sub


'+++++++++++ Coding combo2
Private Sub Combo2_GotFocus()
SendKeys "{F4}"
End Sub

[ ... ]

shutdown timer {vb.6}

Sebenarnya script ini sudah banyak tersebar dimana-mana, baik buku ataupun di forum. Bagi saudara yang belum sempat menemukannya, ini code untuk membuat komputer shutdown. Dengan sedikit sentuhan componen timer anda sudah bisa membuat aplikasi shutdown timer sendiri. Semoga bisa menjadi sumber inspirasi untuk project selanjutnya.

Sebelumnya anda cukup menyediakan 1 textbox, 1 command dan 1 timer pada form anda lalu copy paste code berikut. Selamat mencoba

'code textbox

Private Sub Text1_KeyPress(KeyAscii As Integer)
On Error GoTo pesan

If KeyAscii = 13 Then

If Text1.Text = "0" Or Text1.Text < interval =" 60000" enabled =" False">

'code timer
Private Sub Timer1_Timer()
If Text1.Text = 0 Then
Shell ("shutdown -s -f -t 0")
Else
Text1.Text = Text1.Text - 1
End If
End Sub
'code command
Private Sub Command1_Click()
Timer1.Interval = 0
Text1.Enabled = True
Text1.Text = "min"
End Sub

[ ... ]

Sekuriti FORM VB 6.0

Dilihat dari judul mungkin akan sangat aneh, tapi cobalah baca dengan seksama agar memahami :
Perlu diketahui dengan Visual Basic kita bisa melakukan hal yang baik, atau sangat merugikan. Form pada VB bisa kita buat agar tidak tertutup ketika form dijalankan. Proteksi Form VB bisa dilakukan dengan memanfaatkan event unload Form. Berdasarkan siklus hidupnya event ini dijalankan sebelum alokasi memori dibersihkan. Artinya masih ada kesempatan kita untuk mencegah hal tersebut terjadi yaitu dengan cara memberikan nilai 1 pada argumen cancel. Berikut lebih jelasnya.

Private blnStatus As Boolean

Private Sub cmdOK_Click()

If (Me.Text1.Text = "cookie") Then

blnStatus = True

Unload Me

Else

blnStatus = False

MsgBox "Untuk menutup form ini silakan isikan nama cookie", vbCritical, "cookie"

End If

End Sub

--

Private Sub Form_Unload(Cancel As Integer)

If Not blnStatus Then

Cancel = 1

Call cmdOK_Click

End If

End Sub

Dengan code diatas sudah dipastikan penutupan form dengan (kontrol X) ataupun dengan kombinasi Alt-F4 tidak akan berhasil!! Tetapi sangat mudah bagi TaskManager dengan “Hak Istimewanya” untuk membunuh/ menutup form anda. Perlu diketahui di Visual Basic ada tersimpan trik bagi anda untuk menghidari “hak istimewa” tersebut.

Nah, sudah mengerti dengan judul diatas??? Jangan-jangan belum neh??
Jadi code ini bisa dipakai untuk mambuat program untuk kebaikan sekuriti atau bisa anda gunakan untuk berbuat hal yang merugikan,…begitu lho…. Capekk dech…

[ ... ]

shutdown timer {vb.6}

Sebenarnya script ini sudah banyak tersebar dimana-mana, baik buku ataupun di forum. Bagi saudara yang belum sempat menemukannya, ini code untuk membuat komputer shutdown. Dengan sedikit sentuhan componen timer anda sudah bisa membuat aplikasi shutdown timer sendiri. Semoga bisa menjadi sumber inspirasi untuk project selanjutnya.

Sebelumnya anda cukup menyediakan 1 textbox, 1 command dan 1 timer pada form anda lalu copy paste code berikut. Selamat mencoba

'code textbox

Private Sub Text1_KeyPress(KeyAscii As Integer)
On Error GoTo pesan

If KeyAscii = 13 Then

If Text1.Text = "0" Or Text1.Text < interval =" 60000" enabled =" False">

'code timer
Private Sub Timer1_Timer()
If Text1.Text = 0 Then
Shell ("shutdown -s -f -t 0")
Else
Text1.Text = Text1.Text - 1
End If
End Sub
'code command
Private Sub Command1_Click()
Timer1.Interval = 0
Text1.Enabled = True
Text1.Text = "min"
End Sub

[ ... ]