Kesalahan Pada Pemrograman

Auto Complete Mode? Apa itu? Begini jika kita buka google.com terus ketik kan misalnya windows, maka secara otomatis akan muncul juga di bawahnya kata-kata yang mirip. Contoh, windows 7, windows xp, windows vista dan lain-lain. Di vb.net juga ada. Ahhhh ribet jelasinnya. Lihat screenshot di bawah. Sudah tahu kan maksud saya? Berikut source codenya. Tapi sebelumnya harus buat dulu database-nya. Karena saya di situ membaca sebuah tabel di database (oledb-access 2003). Selanjutnya buka vb 2008 dan ada 1 form dan 1textbox dan di panel properties-nya atur AutoCompleteMode : SuggestAppend AutoCompletesource : CustomSource Kemudian masuk ke view lalu ikuti nih koding simple mudah-mudahan berguna. Imports System.Data.OleDb Public Class Form1 Inherits System.Windows.Forms.Form Dim koneksi_db As String = “PROVIDER=Microsoft.Jet.OleDb.4.0; DATA SOURCE=db.mdb” Dim con As New OleDbConnection(koneksi_db) Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.Even...

Terkadang programmer ingin membuat aplikasi yang hanya boleh dijalankan atau dieksekusi sekali saja, sehingga tidak terjadi duplikasi aplikasi. Tentunya jika aplikasi dijalankan lebih dari sekali akan beresiko, apalagi kalau aplikasi tersebut merupakan aplikasi pengolah file atau database. Langkah ini diterapkan pada VS 2005 Sampai Versi Sekarang 2010 : Dobel klik item ‘My project’ pada jendela Solution Explorer, dan centang atau klik pilihan ‘Make single instance application’.

Ketika selesai menginputkan data biasanya ada perintah untuk mengkosongkan isi komponen textbox. Mungkin jika 5 Textbox masih sedikit, nah kalau 20, kalau 50. Haruskah kita mengetikan textbox1.text = “” sampai textbox50.text = “” , ada cara gampangnya. Buatlah 1 form, dan terserah komponen textbox sebanyak berapapun, lalu 1 button. Kira-kira seperti ini. Lalu ketikan atau copas kode ini. Public Class Form1 Sub bersih() Dim Ctl As Control For Each Ctl In Me.Controls If TypeOf Ctl Is TextBox Then Ctl.Text = “” Next End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click bersih() End Sub End Class