Cara Yang Cerdik Untuk Mentrap On Error Resume Next - VB6

Mengenai cara men-trap (menjebak) objek error yang berada di bawah bari On Error Resume Next - Bagaimana kita dapat melakukan sebuah pengecualian dalam baris yang berada di bawah On Error Resume Next, di bawah adalah contoh kode VB6 beserta penjelasannya:

Option Explicit

Private Sub Command1_Click()
    'Baris pertama kita memasang On Error Resume Next, maksudnya
    'kita memberitahukan pada compiler VB6 untuk melangkahi baris error
    'dan mengeksekusi baris berikutnya tanpa harus menampilkan pesan error
    On Error Resume Next
    
    'Selanjutnya kita mamasang satu variable i (catatan: variable satu huruf
    'seperti i, b, j dan selanjutnya, hanya bisa digunakan pada sebuah jangkah (scope)
    'yang sempit, dan jangan pernah menggunakannya pada scope yang luas seperti
    'Public i as Integer dan variable i berada pada module, Global l as long, dst
    Dim i As Integer
    
    'Dengan adanya On Error Resume Next di atas, maka kode di bawah ini akan
    'diabaikan/dilangkahi oleh compiler VB6. Selanjutnya pesan error tidak akan
    'ditampilkan
    i = "Hai, ini pasti error"
    
    'Walaupun kita telah memasang baris On Error Resume Next, bukan berarti
    'Bukan berarti Error Object tidak, Error Object tetap bekerja sebagaimana
    'biasanya
    If Err Then 'Apabila Error = True a.k.a Err.Number > 0 maka ...
        'Kode trap ...
        MsgBox Err.Description
        'Kode trap ...
    End If
    
    'Baris di bawah akan meng-Clear error
    On Error GoTo 0
    
    'Sekarang lihat hasilnya
    MsgBox Err.Description
End Sub

Kode utuh tanpa keterangan (comment) adalah sebagai berikut:

Option Explicit

Private Sub Command1_Click()
    On Error Resume Next
    Dim i As Integer
    i = "Hai, ini pasti error"
    If Err Then
        MsgBox Err.Description
    End If
    On Error GoTo 0
    MsgBox Err.Description
End Sub

READ MORE - Cara Yang Cerdik Untuk Mentrap On Error Resume Next - VB6

Contoh Menambahkan Attribut Pada Tag HTML - VB Code

Private Function AddPreWithClassName()
     Dim d As New MSHTML.HTMLDocument
     Dim l As HTMLMetaElement
     Dim x As HTMLHtmlElement
     
     d.body.innerHTML = txtPost.Text
    
     For Each l In d.All
         If l.tagName = "PRE" Then
             l.className = "code" '
         End If
     Next
     txtPost.Text = d.body.innerHTML
End Function

READ MORE - Contoh Menambahkan Attribut Pada Tag HTML - VB Code

URL Encode - Decode UTF8 Menggunakan Script Control

Mungkin bisa disebut sebagai cara termudah untuk melakukan Encoding dan Decoding URL UTF8 dalam VB6, dengan memanfaatkan OCX Microsoft Script Control. Adapun kode untuk Encode dan Decode URL UTF8 menggunakan Visual Basic 6.0 adalah sebagai berikut:

'=================================================================
'UrlEncodeUtf8 menggunakan Script Control
'=================================================================
Public Function UrlEncodeUtf8(ByRef strSource As String) As String
    Dim sc As Object
    Set sc = CreateObject("ScriptControl")
    sc.Language = "Jscript"
    UrlEncodeUtf8 = sc.CodeObject.encodeURIComponent(strSource)
    Set sc = Nothing
End Function

'=================================================================
'UrlDecodeUtf8 menggunakan Script Control
'=================================================================
Public Function URLDecodeUTF8(strSource As String) As String
    Dim sc As Object
    Set sc = CreateObject("ScriptControl")
    sc.Language = "Jscript"
    URLDecodeUTF8 = sc.CodeObject.decodeURIComponent(strSource)
    Set sc = Nothing
End Function

READ MORE - URL Encode - Decode UTF8 Menggunakan Script Control

VB6 Code - Mencari seluruh Printer Port

Lebih tepatnya mencari port printer tertentu dari seluruh printer port yang ada menggunakan kode VB6. Adapun kode VB6 untuk mencari port tertentu dari seluruh printer port yang ada adalah sebagai berikut:

Public Function FindPrinterPort(Port As String) As Boolean

    Dim P As Printer, Found As Boolean
    For Each P In Printers
        If Printer.Port = Port & ":" Then
            Found = True
            Exit For
        End If
    Next

    FindPrinterPort = Found

End Function

Demikian VB6 kode untuk mencari port tertentu dari seluruh printer port yang ada.

READ MORE - VB6 Code - Mencari seluruh Printer Port