VB6 Code - Mengkonversi Tag HTML Dalam Postingan

Di bawah ini merupakan fungsi VB6 untuk mengkonversi tag HTML dalam postingan. Seperti yang kita ketahui kode-kode HTML yang diperuntukan untuk postingan tidak bisa langsung kita tulis, akan tetapi harus dikonversi terlebih dahulu, jika tidak maka kode-kode HTML tersebut akan ditampilkan tidak sesuai dengan apa yang diharapkan. Ada banyak cara mengkonversi kode HTML yang diperuntukan untuk postingan, diantaranya:

1. Mengunjungi situs yang menyediakan untuk keperluan ini.
2. Mengganti secara manual dengan menggunakan editor (notepad, notepad++, dll) dengan menggunakan Find and Replace.
3. Membuat fungsi sendiri (ini yang sedang kita bahas).
4. dan lain-lain.
   

Fungsi Untuk Mengkonversi tag HTML dalam Postingan
Public Function ConvertTag4Posting(ByVal sText As String)
   sText = Replace(sText, "&", "&")
   sText = Replace(sText, "<", "&lt;")
   sText = Replace(sText, ">", "&gt;")
   sText = Replace(sText, Chr(34), "&quot;")
   sText = Replace(sText, "±", "&plusmn;")
   '    sText = Replace(sText, " ", "&nbsp;")
   ConvertTag4Posting = sText
End Function

Contoh penggunaan fungsi untuk mengkonversi tag HTML dalam postingan

Private Sub Command1_Click()
   Dim sText As String
   sText = Text1.Text
   sText = ConvertTag4Posting(sText)
   Text1.Text = sText
End Sub

Tentu saja fungsi di atas dapat kita modifikasi disesuaikan dengan kebutuhan.

Posted by Mesin Posting 1.0 Created by http://khoiriyyah.blogspot.com

READ MORE - VB6 Code - Mengkonversi Tag HTML Dalam Postingan

VB6 Code - Mengganti Label Volume Sebuah Drive

Di bawah ini merupakan kode VB6 untuk mengganti label volume sebuah drive . Bagaimanakah implementasinya dalam pengkodean:

Option Explicit

Private Declare Function SetVolumeLabel Lib "kernel32" Alias "SetVolumeLabelA" (ByVal lpRootPathName As String, ByVal lpVolumeName As String) As Long

Private Function SetLabel(RootName As String, NewLabel As String)
 If RootName = "" Then
     Exit Function
 End If
 Call SetVolumeLabel(RootName, NewLabel)
End Function

Contoh menggunakan fungsi mengganti label volume sebuah drive:

Private Sub Command1_Click()
 Call SetLabel("D:\", "Drive D")
End Sub

READ MORE - VB6 Code - Mengganti Label Volume Sebuah Drive

VB6 Code - Menampilkan Dialog Open With

Di bawah ini merupakan kode VB6 untuk menampilkan Dialog Open With. Bagaimanakah caranya:

Option Explicit

Private Sub ShowOpenWith(Filename As String)
     Dim x As Long
     x = Shell("rundll32.exe shell32.dll,OpenAs_RunDLL " & Filename)
End Sub

Contoh penggunaan menampilkan dialog open with:

Private Sub Command1_Click()
     ShowOpenWith "C:\boot.ini"
End Sub

READ MORE - VB6 Code - Menampilkan Dialog Open With

VB6 Code - Cara Membuat Form Pada Saat Design Time

Artikel di bawah ini menjelaskan bagaimana cara membuat form pada saat design time melalui pengkodean Visual Basic 6.0. Langkah-langkah pembuatan: Buat project Add-Ins yang berasal dari template Secara default maka akan terdapat frmAddIn, di dalamnya terdapat kode:

Public VBInstance As VBIDE.VBE
Public Connect As Connect

Option Explicit

Private Sub CancelButton_Click()
 Connect.Hide
End Sub

Private Sub OKButton_Click()
 MsgBox "AddIn operation on: " & VBInstance.FullName
End Sub

Public VBInstance As VBIDE.VBE
Public Connect As Connect

Gantilah seluruh kodenya dengan kode di bawah ini:

Option Explicit

Private Sub CancelButton_Click()
 Connect.Hide
End Sub

Private Sub OKButton_Click()
 Dim frm As VBIDE.VBComponent
 Set frm = VBInstance.ActiveVBProject.VBComponents.Add(vbext_ct_VBForm)
 With frm
     .Properties("Name") = "frmMain"
     .Properties("Width") = 7155
     .Properties("Caption") = "Main Form"
     .Properties("Height") = 5000
 End With
End Sub

Langkah selanjutnya adalah meng-compile kodenya sehingga terbentuk file dengan nama "MyAddIn.dll".

Langkah-langkah menjalankan:

1. Buka project baru
2. Klik menu Add-Ins
3. Klik Sub Menu My AddIn

READ MORE - VB6 Code - Cara Membuat Form Pada Saat Design Time