Silahkan Pilih Warna Yang Anda Sukai Untuk Kenyamanan Mata Anda

Ganti Warna Teks Yg Sesuai

Jumat, 03 Mei 2013

Membuat Data Base Dengan RTF


    Bicara tentang Data Base, saya yakin semua orang tahu, Tapi kalau tentang Jenisnya, mungkin tidak semua orang tahu banyak. Data Base Yang paling umum diketahui adalah : Access, dBASE III, dBASE IV dBASE 5, Excel, FoxPro, Lotus, SQL, Paradox. Dll.

Dari banyaknya Sistim pengolah data tersebut, yang paling mudah dibuat adalah Data Base Jenis Txt, Karena DB jenis ini tidak membutuhkan sistim software pendukung lain yang harus terinstall di dalam komputer. Dan database macam ini, akan sangat cocok untuk keperluan pembuatan kamus.

Ok, Kita langsung saja. Buatlah Project VB60 baru, Pada form1 masukkan kotak Text1, Text2 dan control RichTextBox1.

Letakkan kode dibawah ini pada keypressnya text1.

If KeyAscii = 13 Then
Dim teks As String, ygdcr As String
teks = Replace(text1, " ", "") ' Opsional
RichTextBox1.SelStart = 0
ygdcr = RichTextBox1.Find(teks, , , rtfWholeWord)
RichTextBox1.Span ";", False, True
End If

Dan Kode dibawah ini diletakan pada RichTextBox1. (SelChange) atau bisa
juga pada command1 (command button).

If RichTextBox1.SelText <> "" Then
text2.Text = RichTextBox1.SelText
End If

Pada Bentuk Data Base Text seperti ini, semua kata yang ada didalam RTF
dapat dicari sampai pada batas yang membatasi pencarian, dalam hal ini
batasnya adalah titik koma " ; ", dengan mengabaikan tanda2 lain. Dan
anda pun dapat menentukan sendiri tanda yang akan digunakan sebagai
pembatas seperti :
RichTextBox1.Span "-", False, True
berarti pencarian kata sampai pada tanda - dsb.


Ok selamat mencoba.