Mengenai cara mengekstrak seluruh link atau elemen yang ditentukan dalam sebuah halamn HTML menggunakan VB6 dengan bantuan ActiveX MSHTML - Adapun contoh kode untuk mengektrak seluruh link menggunakan VB6 dengan bantuan MSHTML adalah sebagai berikut:...
Saturday, June 16, 2012
Mengektrak Seluruh Link Atau Elemen Menggunakan MSHTML - VB6
READ MORE - Mengektrak Seluruh Link Atau Elemen Menggunakan MSHTML - VB6
Thursday, June 14, 2012
TwitterCOM.dll - Mengirim Tweet Ke Twitter Dari VB6
Mengenai cara mengirim tweet ke twitter.com menggunakan aplikasi yang dibuat dengan VB6 menggunakan bantuan COM ActiveX yang miskin fitur yang diberi nama TwitterCOM.dll. Sekarang saya mau share mengenai TwitterCOM.dll sebuah COM ActiveX yang miskin...
Contoh Mengambil Image Dari Resource - VB6 Code
Mengenai cara mengambil gambar dari file resource menggunakan pemrograman Visual Basic 6 - Bagaimana kita dapat menggunakan gambar yang terdapat pada resource file, berikut adalah jawabannya: Private Sub Form_Paint() Me.PaintPicture VB.LoadResPicture(101,...
Dua Cara Memperoleh Nama Hari Dari Tanggal Tertentu
Cara PertamaPrivate Function GetDayName(d As Date) As String GetDayName = WeekdayName(Weekday(d, vbMonday))End FunctionCara KeduaPrivate Function GetDayName(d As Date) As String GetDayName = Format$(d, "dddd")End FunctionContoh penggunaanPrivate...
Dua Cara Memperoleh Tanggal Terakhir Dari Bulan Tertentu
Cara Pertama:Private Function GetLastDayOfMonth(d As Date) As Integer GetLastDayOfMonth = DateDiff("d", Format$(d, "mm/yyyy"), Format$(DateAdd("m", 1, d), "mm/yyyy"))End FunctionCara Kedua:Private Function GetLastDayOfMonth(d As Date) As String ...
Tidy XML Menggunakan XSL Transform - VB6 Source Code
Private Function TidyXML(sXML As String) As String Dim oXSLT As DOMDocument Dim XSL_FILE As String Dim sResult As String Const DoubleQuotes = """" Dim strText As String Dim objDom As DOMDocument Set objDom = New DOMDocument objDom.loadXML...
Cara Yang Sangat Efisien Untuk Mengkonversi Detik
Mengenai cara yang sangat efisien untuk mengkonversi detik ke jam:menit:detik menggunakan VB6 - Kita hanya perlu 1 baris untuk mengkonversi detik ke jam:menit:detik, adapun kodenya adalah sebagai berikut: Option ExplicitPrivate Sub Command1_Click() ...
App.Path Dalam VB6 Bisa Diganti Dengan Dot Slash
Mengenai App.path dalam VB6 yang bisa kita ganti dengan "./" (dot slash) - Misalnya kita membuat kode seperti ini:Shell App.Path & "\Launcher.exe" bisa kita ganti menjadi Shell "./Launcher.exe" atau Shell "Launcher.exe" tanpa App.path dan "./" (dot...
Mengaktifkan Horizontal ScrollBar Pada RichTextBox
Mengenai cara mengaktifkan Horizontal ScrollBar yang terdapat pada objek RichtTextBox VB6 Code - Pada saat kita mengisi text RichTextBox, maka secara otomatis RichTextBox tersebut akan melakukan aksi WordWrap, sekalipun kita telah menyeting properties...
Memperoleh Tag Sebuah File MP3 - VB6 Code
Option ExplicitPrivate Type eTagMP3 TagIdent As String * 3 Title As String * 30 Artist As String * 30 Album As String * 30 Year As String * 4 Comment As String * 30End TypePrivate TagMP3 As eTagMP3Private Function GetMP3Tag(Path As...
Class ListBox - Untuk Memilih Item Pada Saat Klik Kanan
Mengenai cara memilih item pada ListBox dengan klik kanan menggunakan VB6 - Seperti yang telah kita ketahui, sebuah ListBox hanya dapat dipilih itemnya melalui klik kiri, nah bagaimana jika kita ingin memilih item ListBox tersebut melalui klik kanan?...
Apa Yang Terjadi Jika dd/mm/yyyy dirubah menjadi mm/yyyy
Mengenai merubah format "dd/mm/yyyy" yang dirubah menjadi "mm/yyyy" dalam VB6 - Judul di atas sangat jelas, Apakah yang akan terjadi dengan sebuah tanggal yang memiliki format "dd/mm/yyyy" kemudian kita rubah formatnya menjadi "mm/yyyy" dalam pemrograman...
Memperoleh Jumlah Hari Dalam Tahun Tertentu
Private Function GetDaysInYear(d As Date) As Integer() Dim dt As Date, i As Integer, x(7) As Integer, c As Integer, g As Date g = CDate(Format$(d, "mm/yyyy")) c = IIf(Year(d) Mod 4 = 0, 366, 365) For dt = g To DateAdd("d", c - 1, g) ...
Memperoleh Jumlah Hari Dalam Selisih Tanggal Tertentu
Private Function GetDaysInRange(d As Date, f As Date) As Integer() Dim dt As Date, x(7) As Integer For dt = d To f x(Weekday(dt)) = x(Weekday(dt)) + 1 Next GetDaysInRange = xEnd FunctionPrivate Sub Command1_Click() Dim d() As Integer...
Menampilkan Tanggal Lengkap Disertai Hari
Private Function DateFull(d As Date) As String DateFull = Format$(d, "dddd, dd/mm/yyyy")End FunctionPrivate Sub Command1_Click() MsgBox DateFull(#12/12/2012#)End ...
Apakah Tahun Tertentu Merupakan Tahun Kabisat?
Private Function IsLeapYear(d As Date) As String IsLeapYear = (Year(d) Mod 4 = 0)End FunctionPrivate Sub Command1_Click() MsgBox IsLeapYear(#12/12/2012#)End ...
Menampilkan Dialog Regional Setting Menggunakan VB6
Private Sub Command1_Click() Call Shell("RunDLL32.exe Shell32.dll Control_RunDLL InetCpl.cpl", vbNormalFocus)End ...
Memperoleh Jumlah Hari Dalam Bulan Tertentu
Private Function GetDaysInMonth(d As Date) As Integer() Dim dt As Date, i As Integer, x(7) As Integer, c As Integer, g As Date g = CDate(Format$(d, "mm/yyyy")) c = Day(DateSerial(Year(d), Month(d) + 1, 0)) For dt = g To DateAdd("d", c - 1,...
Tuesday, June 12, 2012
Google SERP Application 1.0 - SEO Tools For You Freeware
SEO utility ini saya namakan dengan nama Google SERP Application 1.0. Semoga bermanfaat.Apakah Google SERP Application 1.0 itu?Google SERP Application 1.0 adalah sebuah aplikasi/software yang dibuat menggunakan bahasa pemrograman Visual Basic 6.0. Google...
Software Kamus Bahasa Inggris 1.0 Open Source
Project kamus bahasa inggris open source ini seperti biasa dibuat menggunakan bahasa pemrogrman Visual Basic 6.0. Untuk kekurangan dan fitur tambahan bisa Anda perbaiki dan tambahkan pada source code di bawah ini.
Mengenai cara pembuatannya, telah dijelaskan...
Alternate Color/Zebra Color Untuk Listview Codejock - VB6
Di bawahi ini merupakan module untuk memberi warna-warni (alternate color/zebra color) pada row listview codejock di bawah versi 15.x.x (versi yang belum mendukung property TextBackColor.Option Explicit '---------------------------------------------------------------------------------------------...
Software Kamus Bahasa Inggriis Freeware 1.0
Ini merupakan aplikasi kamus bahasa inggris versi pertama, kosakatanya belum begitu banyak hanya ada sekitar 23 ribuan. Merupakan pengembangan dari cara membuat kamus bahasa inggris yang telah dijelaskan secara panjang lebar. Kelebihan dan kekurangannya...
ComboBox Class - Mempermudah Pembuatan Aplikasi VB6
Option Explicit Private WithEvents cbo As ComboBox Public AutoDropDown As Boolean Private Type POINTAPI x As Long y As Long End Type Private Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type 'API Declarations...
ComboBox SubClassing - Private Collections
Option Explicit Public glPrevWndProc As Long Public glPrevWndProcC As Long Private Const GWL_WNDPROC = (-4) Private Const WM_RBUTTONUP = &H205 Private Const WM_RBUTTONDOWN = &H204 Private Const WM_PARENTNOTIFY = &H210 Private Const WM_MOUSEMOVE...
Memahami License Key Pada Pembuatan OCX - Bisnis OCX
Apabila kita membuat sebuah OCX maka, pada VB6 IDE yaitu pada project properties >> tab General, kita akan mendapati tulisan "Require License Key" (sebelah kiri bawah). Nah, pertanyaannya apa yang terjadi bila checkbox tersebut kita beri centang?...
Membuat GUI Tanpa Terpengaruh Resolusi Screen - Tips dan Trik VB
Setelah memahami perbedaan .Top, .Left, .Width, .Height dengan .ScaleTop, .ScaleLeft, .ScaleWidth, .ScaleHeight maka kita sekarang melangkah pada bagian selanjutnya mengenai tampilan yang tidak terpengaruh oleh resolusi layar. Sederhanya agar sebuah...
Memasukan Gambar ke Dalam OCX - Teka-Teki VB6
Setelah teka-teki ShellContextMenu (untuk mengintegrasikan aplikasi dengan Windows Explorer), sekarang saya memiliki teka-teki sederhana yang lain, yakni mengenai cara memasukan gambar ke dalam .OCX (default VB atau third party).
Seperti yang kita ketahui,...
Class TextBox - Untuk Mempermudah Pembuatan Aplikasi
<span style="color: #0000FF; text-decoration: underline; cursor: pointer;" onClick="toggleOverflowText('hiddenText2', this, 'Collapse Code...', 'Expand Code...', '300px');">Expand Code...</span> <pre class=codewhite id="hiddenText2" style="height:...
Subscribe to:
Posts
(
Atom
)
