Merger 2 File XML Menggunakan Visual Basic 6.0

Private Sub AddPostNew(XMLSource As String, XMLDestination As String) 
 
    Dim strText As String 
    Dim strPost As String 
 
    Dim domFree As FreeThreadedDOMDocument60 
    Dim domApt As DOMDocument60 
    Dim node As IXMLDOMNode 
    Dim clone As IXMLDOMNode 
    Dim msg As String 
 
    msg = "" 
    Set domFree = New FreeThreadedDOMDocument60 
    Set domApt = New DOMDocument60 
 
    domApt.async = False 
    If False = domApt.loadXML(XMLDestination) Then 
        MsgBox "can't load doc1.xml" 
        Exit Sub 
    End If 
 
    domFree.async = False 
    If False = domFree.loadXML(XMLSource) Then 
        MsgBox "can't load doc2.xml" 
        Exit Sub 
    End If 
 
    Dim nodeId As IXMLDOMAttribute 
    Set node = domFree.documentElement 
 
    Set clone = domApt.importNode(node, True) 
 
    domApt.documentElement.appendChild clone 
    domApt.documentElement.appendChild domApt.createTextNode(vbNewLine) 
 
    Set node = Nothing 
    Set clone = Nothing 
 
    domApt.save strPathXML 
 
End Sub 

READ MORE - Merger 2 File XML Menggunakan Visual Basic 6.0

Mengatasi Masalah OCX Pada Windows-7

Bagi temen-temen pecinta Visual Basic 6, kadang program yang kita tulis "bermasalah" pada saat dijalankan di target Sistem Operasi 64 Bit. Ini biasanya terjadi karena program tsb menggunakan komponen (DLL/OCX) dengan arsitektur 32Bit, seperti MSCOMM32.OCX, MSMASK32.OCX dll. Untuk mengatasi masalah tsb dapat dilakukan dengan cara : Copy kan komponen (DLL/OCX) 32Bit yang bermasalah ke folder \Windows\SysWow64 pada Sistem Operasi 64 Bit yang menjadi target, kemudian register dengan Regsvr32.....

Mungkin ini terjadi karena kebingungan karyawan om "BILL GATES" waktu bikin Windows dengan arsitektur 64Bit :

• Folder SysWOW64 Hanya untuk Komponen 32-bit
• Folder System32 Hanya untuk komponen 64-bit

Jadi jika kita membuat program Installer dan aplikasi ada yang khusus untuk 32Bit... harus dapat melakukan cek sistem operasi untuk menentukan target folder

Sumber: http://i-bego.com

READ MORE - Mengatasi Masalah OCX Pada Windows-7

Menghapus Section Pada INI File

Option Explicit

Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

Public Sub DeleteKey(Section As String, Key As String, PathIni As String)
    Dim sSection As String
    Dim sKey As String
    Dim sFileName As String
    sSection = Section
    sKey = Key
    sFileName = PathIni
    If Len(Trim(sKey)) <> 0 Then
        WritePrivateProfileString sSection, sKey, vbNullString, sFileName
    Else
        WritePrivateProfileString sSection, sKey, vbNullString, sFileName
    End If
End Sub

READ MORE - Menghapus Section Pada INI File

Effect Bayangan (Shadow) Pada Form Menggunakan VB6

Mengenai cara menambahkan effect bayangan (shadow effect) pada form - effect bayangan (shadow effect) ini akan terlihat bagus terutama pada form tanpa border (property BorderStyle = 0 - none). Bagaimana kode mengenai shadow effect ini?

Option Explicit 
 
Private Declare Function GetClassLong Lib "user32" Alias "GetClassLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long 
Private Declare Function SetClassLong Lib "user32" Alias "SetClassLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long 
Private Const CS_DROPSHADOW As Long = &H20000 
Private Const GCL_STYLE As Long = -26 
 
Private Sub DropShadow(ByVal hWnd As Long) 
    Call SetClassLong(hWnd, GCL_STYLE, GetClassLong(hWnd, GCL_STYLE) Or CS_DROPSHADOW) 
End Sub 
 
Private Sub Form_Load() 
   DropShadow Me.hWnd 
End Sub 

Catatan: Effect bayangan (shadow effect) akan bekerja pada saat Show shadow under menus dicheck (default). Show shadow under menus terdapat pada start >> Settings >> Control Panel >> System >> Advanced >> Settings >> Show shadow under menus.

READ MORE - Effect Bayangan (Shadow) Pada Form Menggunakan VB6