VB6 Code - Fungsi Untuk Mengganti Extension Sebuah File

Mengenai fungsi VB6 untuk mengganti extension sebuah file. adapun fungsi VB6 untuk mengganti extention sebuah file adalah sebagai berikut:

Public Function ChangeFileExt(ByVal FileName As String, ByVal Extention As String)
 Dim str() As String, NewFile As String
 If InStr(1, FileName, ".") Then
     str = Split(FileName, ".")
     NewFile = Replace(FileName, str(UBound(str)), Extention)
     Name FileName As NewFile
 Else
     Name FileName As FileName & "." & Extention
 End If
End Function

Cara penggunaan fungsi untuk mengganti extension sebuah file:

Private Sub Form_Load()
 Call ChangeFileExt("C:\bo.ot.tmp", "exe")
End Sub

READ MORE - VB6 Code - Fungsi Untuk Mengganti Extension Sebuah File

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