Cara Menampilkan Dialog Credits Visual Basic 6.0

Pernahkah Anda melihat dialog credits Visual Basic 6.0? Siapakah sebenarnya orang-orang yang bekerja (tim [termasuk programmernya]) dibalik pembuatan bahasa pemrograman Visual Basic 6.0? pertanyaan dan seterusnya? Jika belum pernah dan penasaran, lakukan hal berikut ini:

Gantilah Sub Menu About Microsoft Visual Basic... dengan Show VB Credits (sub menu tersebut berada pada menu Help).

Cara mengganti Sub Menu About Microsoft Visual Basic:

1. Klik kanan menu Help selanjutnya klik kiri menu customize
2. Klik kiri menu Help
3. Arahkan pointer mouse pada Sub Menu About Microsoft Visual Basic...
4. Klik kanan Sub Menu About Microsoft Visual Basic...
5. Gantilah dengan Sub Menu tersebut dengan Show VB Credits
6. Close Kotak Dialog Customize
7. Klik sub menu Show VB Credits

Nah, jika prosedurnya benar maka akan muncul kotak dialog credits Visual Basic 6.0 disertai dengan scrolling Text dan Music MIDI.

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

READ MORE - Cara Menampilkan Dialog Credits Visual Basic 6.0

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