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

VB6 Code - Tunggu Hingga Aplikasi Selesai Dijalankan

Artikel di bawah ini kami beri judul Tunggu hingga Aplikasi selesai dijalankan, maksudnya menjalankan sebuah aplikasi kemudian kode yang berada sesudahnya menunggu (tidak dieksekusi [dijalankan]) sebelum aplikasi tersebut ditutup terlebih dahulu. Bagaimana implementasinya dalam pengkodean Visual Basic 6.0, copy dan pastekan kode di bawah ini kemudian buatlah 1 objek CommandButton.

Fungsi tunggu hingga aplikasi selesai dijalankan

Function WaitUntilFinish(sCommand, WindowsStyle, Wait As Boolean)
   Dim wsh As New IWshRuntimeLibrary.WshShell
   wsh.Run "notepad.exe", 1, True
   'code di bawah akan dijalankan apabila notepad telah ditutup.
   Set wsh = Nothing
End Function

Cara penggunaan fungsi tunggu hingga aplikasi selesai dijalankan

Private Sub Command1_Click()
   Call WaitUntilFinish("notepad.exe", 1, True)
   MsgBox "Kode ini dijalankan apabila notepad di tutup"
End Sub

READ MORE - VB6 Code - Tunggu Hingga Aplikasi Selesai Dijalankan