Posting ini diambil dari Microsoft KB mengenai cara membuat fungsi return DWord dengan menggabungkan HiWord dan LoWord. Adapun fungsi yang dimaksud adalah sebagai berikut:
Function MakeDWord(LoWord As Integer, HiWord As Integer) As Long
MakeDWord...
Showing posts with label API-VB6. Show all posts
Showing posts with label API-VB6. Show all posts
Friday, July 19, 2013
VB6 Code: Membuat DWord dari HiWord + LoWord
READ MORE - VB6 Code: Membuat DWord dari HiWord + LoWord
Wednesday, July 10, 2013
VB6 API - Menghilangkan Border TextBox, ListBox, etc.
Mengenai cara menghilangkan border object TextBox, ListBox, dan lain sebagainya. Option Explicit Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong...
Tuesday, July 9, 2013
VB6 ListBox - Mengetahui Item Height Object ListBox
Untuk tujuan tertentu, terkadang kita memerlukan sebuah fungsi untuk mengukur Item Heigh sebuah object ListBox dan di bawah ini merupakan salah satu contohnya dengan menggunakan fungsi API. Option Explicit Private Declare Function SendMessage Lib...
Monday, July 1, 2013
VB6 Code: Memperoleh Serial Hardisk dan Sebagainya
Mengenai cara memperoleh serial hardisk dan sebagainya. Adapun kodenya seperti terlihat di bawah ini:Option Explicit Private Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal pVolumeNameBuffer...
Wednesday, April 17, 2013
VB6 Code - Membuat Cue Banner atau Placeholder Text
Apa yang dimaksud dengan cue banner atau placeholder text atau sebagian menyebutnya dengan watermark text itu? untuk memahaminya perhatikan gambar di bawah ini:VB6 Cue Banner Placeholder Text Watermark TextTerlihat pada gambar di atas beberapa objek...
Sunday, June 17, 2012
Memperoleh Icon Asosiasi File Menggunakan SHFileInfo
Option ExplicitPrivate Const SHGFI_DISPLAYNAME = &H200Private Const SHGFI_EXETYPE = &H2000Private Const SHGFI_SYSICONINDEX = &H4000Private Const SHGFI_LARGEICON = &H0Private Const SHGFI_SMALLICON = &H1Private Const ILD_TRANSPARENT...
Contoh Penggunaan Fungsi API SetCapture and WindowFromPoint
Option ExplicitPrivate Type RECT Left As Long Top As Long Right As Long Bottom As LongEnd TypePrivate Type POINT X As Long Y As LongEnd TypePrivate Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As LongPrivate Declare...
PrintWindow - Capture Form Beserta Seluruh Objeknya
Option ExplicitPrivate Declare Function PrintWindow Lib "user32" (ByVal hwnd As Long, ByVal hdcBlt As Long, ByVal nFlags As Long) As LongPrivate Sub Command2_Click() Picture1.AutoRedraw = True Set Picture1.Picture = Nothing PrintWindow Me.hwnd,...
Membuat Aplikasi Console Sederhana Menggunakan VB6
Option Explicit''Reference to Microsoft Scripting Runtime.'Public SIn As Scripting.TextStreamPublic SOut As Scripting.TextStream'--- Only required for testing in IDE or Windows Subsystem ===Private Declare Function AllocConsole Lib "kernel32" () As LongPrivate...
Contoh Fungsi API GetTickCount Dalam VB6
Private Declare Function GetTickCount Lib "kernel32" () As LongPrivate Sub Command1_Click() Dim StartTime As Long Dim EndTime As Long Dim M As Long Dim K As Long Dim X As Double For M = 1 To 10 StartTime = GetTickCount ...
Tuesday, June 12, 2012
Memberi Batas Minimal - Maksimal Sebuah Aplikasi - VB6
Merancang sebuah interface yang baik, terkadang tidak semudah yang dibayangkan (download codejock dan selesai). Beberapa hal yang sering diutamakan diantaranya, tampilan yang menarik, kemudahan akses (dapat digunakan secara sempurna tanpa menggunakan...
Friday, June 8, 2012
Menonaktifkan/Disable Task Manager Menggunakan VB6
Posting yang menjelaskan mengenai cara menonaktifkan task manager melalui kode Visual Basic 6.0 - Mendisable atau menonaktifkan task manager terkadang diperlukan untuk pembuatan aplikasi-aplikasi tertentu sebut saja billing warnet. Umumnya kode yang...
VB Code - Membuat Sound Beep ala Anti Virus AVIRA
Mengenai cara membuat suara beep seperti yang terdapat pada antivirus Avira menggunakan VB6 Code - Pada saat mendeteksi sebuah virus/malware, biasanya anti virus Avira akan mengeluarkan suara yang khas melalui internal speaker. Nah, di bawah ini merupakan...
Tuesday, May 29, 2012
Mendapatkan Special Folder Menggunakan Visual Basic 6.0
Public Enum SpecialFolderIDs sfidDESKTOP = &H0 sfidPROGRAMS = &H2 sfidPERSONAL = &H5 sfidFAVORITES = &H6 sfidSTARTUP = &H7 sfidRECENT = &H8 sfidSENDTO = &H9 sfidSTARTMENU = &HB sfidDESKTOPDIRECTORY...
Monday, May 28, 2012
Fungsi Untuk Menjadikan Blank Layar Komputer
Di bawah ini merupakan fungsi untuk mematikan layar monitor.Option Explicit Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Const MONITOR_ON...
Memeriksa Keberadaan Sound Card Pada Komputer
Di bawah ini merupakan fungsi untuk mengetahui apakah komputer memiliki souncard atau tidak.Option Explicit Private Declare Function waveOutGetNumDevs Lib "winmm.dll" ) As Long Public Function IsExistSoundCard() As Boolean Dim...
Menampilkan Browse For Folder Menggunakan Fungsi API
Pada postingan terdahulu telah kami ketengahkan mengenai cara menampilkan browse for folder dengan mudah menggunakan kode yang pendek dengan memanfaatkan ActiveX. Sekarang, kita akan menampilkan browse for folder dengan memanfaatkan fungsi API, tentu...
Menampilkan Dialog Properties Sebuah File
Di bawah ini merupakan fungsi untuk menampilkan kotak dialog properties sebuah file.Option Explicit Type SHELLEXECUTEINFO cbSize As Long fMask As Long hwnd As Long lpVerb As String lpFile As String lpParameters As String ...
Menjalankan Screen Saver Melalui Pemrograman
Di bawah ini merupakan fungsi untuk menjalankan screen saver melalui pemrograman.Option Explicit Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long)...
Fungsi Untuk Memeriksa Apakah Screen Saver Enable
Di bawah ini merupakan fungsi untuk memeriksa apakah screen saver enable atau disable? enable return true dan jika disable, apalagi jika bukan return false.Option Explicit Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA"...
Subscribe to:
Posts
(
Atom
)
