Sabtu, 25 Juni 2011

Menampilkan Gambar GIF atau PNG

Kontrol PictureBox dan Image yang terdapat dalam VB 6.0 tidak dapat menampilkan gambar yang berformat GIF (secara gerak / animasi) dan PNG. Solusi yang paling mudah untuk melakukannya adalah menggunakan kontrol WebBrowser, berikut langkah-langkahnya :

Buat Project baru dengan sebuah Form didalamnya. Lalu tambahkan Component baru dengan nama "Microsoft Internet Controls", kemudian tempatkan kontrol WebBrowser. Untuk menampilkan gambar ke dalam WebBrowser, tambahkan kode berikut di bagian 'Form_Load'
WebBrowser1.Navigate "LOKASI FILE GAMBAR"

Bila Anda menginginkan agar kontrol WebBrowser tampak seperti kontrol PictureBox, gunakan kode berikut :
Dim s As String, h As String

s = "LOKASI FILE GAMBAR"

h = "<html>" & vbCrLf & "<body scroll=" & Chr(34) & "no" & Chr(34)
h = h & " TOPMARGIN=" & Chr(34) & "0" & Chr(34)
h = h & " LEFTMARGIN=" & Chr(34) & "0" & Chr(34) & ">" & vbCrLf

h = h & "<img src=" & Chr(34) & s & Chr(34) & ">" & vbCrLf & "</body>" & vbCrLf & "</html>"

Open App.Path & "\temp.tmp" For Output As #1
Print #1, h
Close #1

WebBrowser1.Navigate App.Path & "\temp.tmp"

Jika ingin diubah posisi gambarnya ke tengah, gantikan kode yang berwarna merah dengan kode berikut :
h = h & "<center><img src=" & Chr(34) & s & Chr(34) & "></center>" & vbCrLf & "</body>" & vbCrLf & "</html>"

Jika ingin gambar ditampilkan secara stretch, gantikan kode yang berwarna merah dengan kode berikut :
h = h & "<img src=" & Chr(34) & s & Chr(34) & " width =" & Chr(34) & "100%" & Chr(34)
h = h & " height =" & Chr(34) & "100%" & Chr(34) & " >" & vbCrLf & "</body>" & vbCrLf & "</html>"


Untuk menghilangkan PopupMenu dari kontrol WebBrowser, ikuti langkah-langkah berikut :
Tambahkan References "Microsoft HTML Object Library"
Di bagian '(Declarations)' dari Form ketikkan :
Dim WithEvents Hdoc As HTMLDocument
Lalu di bagian 'WebBrowser1_DocumentComplete' ketikkan :
Set Hdoc = WebBrowser1.Document
Terakhir di bagian 'Hdoc_oncontextmenu()' ketikkan :
Hdoc_oncontextmenu = False




CATATAN :
Selain dapat diterapkanuntuk gambar berformat GIF atau PNG, cara ini juga bisa diterapkan untuk format yang lain seperti JPG, BMP, ICO, dll
Karena cara ini menggunakan kontrol WebBrowser maka bisa digunakan untuk men-load gambar dari internet.

Label: , ,

diposting oleh Prince @ 11:23 PM   0 Komentar

Rabu, 22 Juni 2011

Penomoran Data Otomatis

Penomoran data secara otomatis berguna untuk mempermudah User ketika melakukan penambahan data. Biasanya cara ini diterapkan pada field ID atau primary key.

Label: , , ,

diposting oleh Prince @ 11:41 PM   0 Komentar

Selasa, 21 Juni 2011

CrystalReport Dinamis

Berikut ini adalah contoh source code yang menggunakan laporan data berbasis CrystalReport secara dinamis, atau dapat dirubah-rubah datanya ketika aplikasi dijalankan.
Download source code-nya disini.

Label: , , ,

diposting oleh Prince @ 2:52 AM   0 Komentar

Sabtu, 18 Juni 2011

InputBox Buatan Sendiri

Kurang puas dengan tampilan InputBox bawaan VB? Jika iya, sebenarnya Anda bisa membuat InputBox sendiri sesuai dengan selera dan kebutuhan seperti gambar diatas.
Download source code-nya disini.

Label: , , ,

diposting oleh Prince @ 1:59 AM   0 Komentar

Rabu, 15 Juni 2011

Menempatkan DataReport Sebagai Kontrol

Jika Anda pernah atau sedang menggunakan DataReport sebagai laporan untuk database, maka mau tidak mau DataReport tersebut akan tampil sebagai form / jendela baru.
Dengan sedikit trik, sebenarnya DataReport bisa ditempatkan sebagai kontrol seperti menggunakan CrystalReport (dengan kontrol viewer).
Download source code-nya disini.

Label: , , , ,

diposting oleh Prince @ 1:24 AM   0 Komentar

Senin, 13 Juni 2011

Mengisi AutoComplete TextBox dengan Data

Dalam kontrol TextBox di VB .NET, terdapat properti AutoComplete yang berguna untuk memudahkan pengisian teks dengan menampilkan kemungkinan teks yang akan diketik.
Dengan sedikti kreatifitas, Anda bisa memanfaatkan properti AutoComplete tersebut sebagai fitur untuk mempermudah penginputan data, dengan cara mengisinya dengan data yang diperlukan. Download contoh source code-nya disini.

Label: , , ,

diposting oleh Prince @ 12:35 AM   0 Komentar

Sabtu, 11 Juni 2011

Media Player

Ini merupakan aplikasi media player sederhana yang mampu memutar file audio, video, bahkan playlist. Didalamnya tersedia fasilitas fullscreen, loop, shuffle, dll.
Media player ini menggunakan kontrol Windows Media Player (wmp.dll) sebagai kontrol utamanya. Yang mungkin membedakan dengan souce code media player lain, terletak dimana daftar file media yang diputar terintegrasi dengan playlist dari kontrol, sehingga lebih mudah dikembangkan dan dikendalikan.
Download source code-nya disini.

Label: , ,

diposting oleh Prince @ 2:55 AM   0 Komentar

Jumat, 10 Juni 2011

Membatasi Karakter Input TextBox

Mungkin Anda pernah menginginkan agar sebuah TextBox hanya boleh atau bisa diisi dengan karakter input tertentu, seperti hanya karakter "R" dan "A" saja, atau mungkin hanya karakter "I" dan karakter angka saja, atau yang lain.
Berikut ini satu baris kode yang bisa Anda gunakanuntuk melakukannya. Sebagai contoh, buatlah sebuah kontrol TextBox di dalam Form. Lalu  ketikkan kode berikut di bagian 'TextBox1_KeyPress' -nya :

[ VB 6.0 ]
If (InStr("RTAB", Chr(KeyAscii)) = 0) And (KeyAscii <> 8) Then KeyAscii = 0

[ VB .NET ]
If (InStr("RTAB", e.KeyChar) = 0) And (e.KeyChar <> Chr(8)) Then e.KeyChar = Chr(0)

Contoh diatas menunjukkan bagaimana TextBox hanya bisa diisi karakter "R", "T", "A", dan "B" saja. Jika Anda menginginkan karakter yang lain, tinggal menggati teks yang berwarna merah dengan karakter-karakter yang hanya boleh diinputkan. Misalnya Anda ingin hanya krakter "J" dan karakter angka saja, tinggal menggantikannya dengan "J0123456789".

Label: , , ,

diposting oleh Prince @ 10:55 PM   0 Komentar

Selasa, 07 Juni 2011

Grafik Data

Pembuatan grafik untuk mempresentasikan data, bertujuan agar user lebih mudah dalam memahami perbandingan data yang satu dengan data yang lain.
Pembuatan grafiknya dibuat menggunakan kontrol Microsoft Chart (MSCHRT20.ocx), yang memiliki berbagai bentuk mulai dari batang sampai dengan pie.

Label: , , , ,

diposting oleh Prince @ 2:01 AM   0 Komentar

Minggu, 05 Juni 2011

Manipulasi Data Sederhana

Source code berikut ini menunjukkan bagaimana memanipulasi data yang bersifat sederhana, seperti mencari data terbesar atau terkecil, menghitung jumlah total, dll.
Download source code-nya disini.

Label: , , ,

diposting oleh Prince @ 11:48 PM   0 Komentar

Sabtu, 04 Juni 2011

Menyimpan Gambar dalam Database

Berikut ini adalah contoh source code yang menunjukkan bagaimana cara menyimpan gambar ke dalam database dan menampilkannya kembali dari database.

Label: , , ,

diposting oleh Prince @ 12:11 AM   0 Komentar

Rabu, 01 Juni 2011

Tab IDE

Dalam IDE / lembar kerja Visual Basic 6.0, tidak terdapat kontrol Tab yang berguna untuk mempermudah berpindah antar jendela / form yang terbuka.
Solusinya adalah dengan menginstall Add-In khusus yang bisa Anda download disini.

Label: , ,

diposting oleh Prince @ 2:07 AM   0 Komentar

Menampilkan Data di ComboBox dan ListBox

Menampilkan data di kontrol ComboBox atau ListBox, biasanya diterapkan dalam Form inputan untuk tabel yang be-relathionship / berhubungan dengan tabel lain.
Sehingga dapat mengurangi resiko kesalahan dan mempermudah penginputan data.

Label: , , , ,

diposting oleh Prince @ 1:12 AM   0 Komentar