Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As LongPrivate Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong...
Saturday, June 2, 2012
XML Pretty Print - Merapikan Format File XML
Private Sub PrettyPrint(Parent As IXMLDOMNode, Optional Level As Integer) Dim Node As IXMLDOMNode Dim Indent As IXMLDOMText If Not Parent.ParentNode Is Nothing And Parent.ChildNodes.Length > 0 Then For Each Node In Parent.ChildNodes...
Tuesday, May 29, 2012
On Error Resume Next, On Error GoTo Line, On Error GoTo 0
Kalau boleh dikatakan, hampir tidak ada di dunia ini software yang tidak memiliki error. Hampir seluruhnya memiliki error. Hanya permasalahannya, bagaimana software tersebut dapat menangani error, seberapa baik ia dapat menangani error. Penanganan error,...
Kamus Inggris - Fasilitas Pemindai Kosakata - Bagian ke-10
Kamus Inggris - Fasilitas Pemindai Kosakata merupakan kelanjutan dari bagian ke-9.Pada bagian ini, kita akan melengkapi aplikasi software kamus dengan fasilitas pemindai kosakata. Dengan adanya fasilitas ini, maka pada saat kita menggerakan pointer mouse...
Kamus Inggris Selesai - Bagian ke-11
Akhirnya, setelah kita berbicara panjang lebar mengenai membuat software Kamus Bahasa Inggris dari bagian ke-1 sampai bagian ke-10, tibalah saatnya untuk mem-package project Kamus Inggris yang telah kita buat. Dalam hal ini saya menggunakan Installer...
VB6 Crash Pada Saat Keluar, Cara Mengatasinya?
Pernahkan Anda mengalami crash..entahlah. Pernahkah aplikasi VB6 Anda mengalami crash pada saat keluar? Padahal Anda sudah memastikan VB6 yang sedang Anda gunakan tidak sedang terinfeksi malware. Bahkan pada saat hanya membuka VB6 dan menutupnya kembali...
Fungsi CSS Decompress Untuk Editing | Visual Basic 6.0
Artikel ini berjudul fungsi css decompress untuk editing, Maksud dari css decompress untuk editing ialah sebuah fungsi (procedure) yang digunakan untuk mengembalikan format css yang telah dicompress. Kita tahu bahwa css yang telah dicompress tentu saja...
Memainkan file MP3 dengan Windows API di Visual Basic 6
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" ( ByVal lpstrCommand As String, _ ByVal lpstrReturnString As String, _ ByVal uReturnLength As Long, _ ByVal hwndCallback As Long) As Long Dim lagu As String lagu = "D:\musik.mp3"...
Kamus Inggris - Merapikan Project - Bagian ke-5
Kamus Inggris - Merapikan Project merupakan kelanjutan dari bagian ke-4.Mulai pada bagian yang ke-5 kita akan merapikan project telah dibuat. Yang dimaksud dengan merapikan project disini diantaranya: membuat folder-folder untuk form, module, class,...
Smart OCX Dependencies Finder - Reusable Module VB6
Tools atau tepatnya module reusable ini, sangat tepat bagi Anda yang sering membuat project-project demo yang melibatkan ocx, tujuannya agar kita tidak lupa menyertakan file ocx tersebut ke dalam project demo yang sedang dibuat, disamping itu module...
Kamus Inggris - Fasilitas Popup Windows - Bagian ke-6
Yang dimaksud dengan Popup Windows disini adalah aplikasi yang dapat tampil paling depan. Modul Popup Windows ini diambil dari software Kamus Bahasa Arab. Inti dari modul popup ini hanyalah satu jajar kode API yaitu SetForegroundWindow. Tujuan pada bagian...
Menyembunyikan TextBox dan ComboBox Caret Menggunakan VB6
Terkadang dalam sebuah aplikasi, kita membutuhkan kode untuk menyembunyikan caret yang terdapat dalam TextBox maupun ComboBox. Nah, bagaimana cara menyembunyikan caret yang terdapat dalam TextBox maupun ComboBox menggunakan Visual Basic 6.0 (VB6)? kode...
Menyembunyikan Caret RichTextBox Menggunakan VB6
Di bawah ini merupakan kode untuk menyembunyikan caret menggunakan cara yang singkat, TIMER! dan satu fungsi API HideCaret.'simpan kode ini pada Form Option Explicit Public Declare Function HideCaret Lib "user32" ByVal hwnd As Long) As Long Private...
Fungsi Untuk Memperoleh Nama File (Path) dari GUID
Bagaimanakah cara memperoleh nama file (file name) sebuah GUID (Globally Unique Identifier) dari sebuah ActiveX yang telah teregister dalam registry? di bawah ini merupakan implementasi dari kodenya:'simpan kode di bawah pada modul Option Explicit Dim...
PathCompactPathEx - Untuk Menyingkat Nama Path - VB6
Dalam membuat sebuah program, terkadang kita membutuhkan nama path yang disingkat, adapun tujuannya, agar nama yang berada paling akhir dapat kita baca. Lagipula jika path tidak disingkat, mungkin kita akan menemukan MRU (Most Recently Used) seperti...
Fungsi Terbilang Bagaimanakah Membuatnya - Database VB6
Posting yang menjelaskan tentang cara membuat fungsi terbilang - Fungsi terbilang adalah sebuah fungsi yang dapat mengkonversi angka ke dalam kalimat. Sebuah fungsi yang cukup penting, terutama pada saat kita bekerja dengan database. Bagaimanakah cara...
BCM_SETIMAGELIST CommandButton Standar Tampil Indah Menawan
CommandButton Standar dengan Icon 32-bit. Melanjutkan project mengenai tampilan yang telah saya tulis, sekarang kita akan bereksperimen dengan konstanta API BCM_SETIMAGELIST (konstanta yang diperkenalkan Microsoft sekitar tahun 2004). Apakah kegunaan...
TextBox Auto Complete Dan Pencarian Cepat Pada ListBox
Apabila Anda pernah menggunakan Tools API-Guide salah satu produk AllApi.net, maka kita akan melihat salah satu TextBox (untuk pencarian fungsi API) yang dilengkapi dengan fasilitas Auto Complete. Auto Complete ini sangat tepat bagi Anda yang sedang...
Memilih Lebih dari Satu File Pada Dialog Open - VB6 Code
Option Explicit Public Function GetFiles(Optional ByVal sTitle As String = "Open files...") As String Dim sFilenames As String Dim cdlOpen As Object On Error GoTo ProcError ' Get the desired name using the common dialog Set cdlOpen = CreateObject("MSComDlg.CommonDialog")...
Membuat Menu Pada Saat Design Time Melalui Kode
Melengkapi tulisan terdahulu mengenai pembuatan Form, CommandButton (objek), referensi dll dan ocx baik ocx/dll default VB ataupun pihak ketiga. Maka sekarang kita akan membuat menu melalui pengkodean, menu tersebut dibuat pada saat design time dengan...
Modal, Modeless, Non Modal Non Modeless - VB6
Dalam menampilkan sebuah form, apalagi jika bukan method .Show yang digunakan. Method .Show ini memiliki dua parameter, yaitu [Modal] dan [OwnerForm], jadi lengkapnya adalah seperti ini Form.Show ([Modal], [OwnerForm]). Karena dua parameter (Modal, OwnerForm)...
Kode Ini Efektif Untuk Validasi Empty Text - Database VB6
Dalam pembuatan aplikasi database, memvalidasi data yang akan dientry sangatlah penting. Apakah tujuan utama dari validasi entry tersebut? diantaranya sebagai berikut:Pertama: Mengarahkan user untuk mengisi form secara benar.Kedua: Meminimalisir error...
Beberapa masalah penggunaan file manifest dan Penyelesaiannya
Penggunaan file manifest untuk meng- Style XP-kan objek-objek Visual Basic 6.0 ternyata memiliki bebearapa masalah, diantaranya:Hilangnya shortcut mnemonicOptionButton dan CheckBox yang disimpan dalam kontainer Frame berubah berwarna hitam mengakibatkan...
Menampilkan Dialog Modal Ala Office - Visual Basic 6.0
Yang dimaksud mirip office disini bukan style-nya, akan tetapi cara menampilkan form dialog secara modal. Sebenarnya apa perbedaan dari aplikasi-aplikasi yang sering kita buat dengan office dalam hal menampilkan dialog secara modal? nah, marilah kita...
VB6.0 - Set Mozilla Firefox & IE Default Home Site Via Code
Setelah berhasil mendefaultkan Google Chrome home page/site, maka sekarang kita akan mendefaultkan 2 browser lainnya, yaitu Internet Explorer dan Mozilla Firefox. Bagaimanakah caranya? Untuk Internet Explorer maka yang perlu kita lakukan adalah sedikit...
Menampilkan Informasi User Yang Sedang Login
Dalam pembuatan aplikasi database, sangatlah penting untuk mengetahui informasi user yang sedang atau telah login, baik mengenai ID, UserName, tanggal login dan lain sebagainya. Bagaimana implementasinya dalam kode? Di bawah ini merupakan contoh sederhana...
Horizontal Scroll And Vertical Scroll
Option Explicit
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA"...
Menyimpan File Ke Dalam Format MHTML
Menyimpan file dalam format MHTML tentunya memiliki banyak keuntungan, salah satu dari banyak keuntungan tersebut ialah terintegrasinya seluruh gambar dan file dengan baik, sehingga kita bisa mendownload halaman situs/blog yang kita kunjungi utuh dengan...
Kesalahan Penulisan Variable Yang Umum Terjadi
Seringkali kita menemui penulisan variable seperti di bawah ini:Option Explicit Private Sub Form_Load() Dim i, a, b, c, s As String 'Kode selanjutnya End Sub Penulisan variable seperti di atas seakan-akan menunjukan bahwa i, a, b, c memiliki...
Blokir Situs Menggunakan Visual Basic 6.0
Option Explicit Public Declare Function GetForegroundWindow Lib "user32" ) As Long Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Public Declare...
Cara Mudah Membuat Read More Pada Blogger | Blogging
Langkah yang pertama:Login ke BloggerKlik PengaturanKlik FormatKlik tombol Simpan PengaturanLangkah yang kedua:Back-up terlebih dahulu template AndaBeri tanda centang pada samping tulisan Expand Template WidgetCari kode ini <data:post.body/>, jika...
Mengirim Email Lewat VB6.0 Menggunakan vbSendMail.dll
Di bawah ini merupakan contoh kode untuk mengirim email lewat VB6.0 menggunakan bantuan ActiveX (vbSendMail.dll). VB SendMail merupakan ActiveX yang digunakan untuk mengirim email, terdokumentasi dengan baik dan lengkap. Anda dapat memperoleh komponen...
Fungsi Format RTF Untuk Pembuatan Kamus Bahasa Inggris
Di bawah ini merupakan contoh format RTF untuk keperluan pembuatan kamus Bahasa Inggris. Fungsi di bawah ini dapat bekerja dengan sangat cepat? mengapa? karena ia tidak memformat tulisan pada objeknya secara langsung akan tetapi, memformat string yang...
Subscribe to:
Posts
(
Atom
)
