Membaca File Text Baris Per Baris - Visual Basic 6

Dibawah ini merupakan contoh kode untuk membaca file text baris per baris menggunakan VB6 - Adapun kode untuk membaca file text line by line adalah sebagai berikut:

Option Explicit 
 
Private Function OpenTextFile() As String 
    Dim nFileNum As Integer, sText As String 
    Dim sNextLine As String, lLineCount As Long 
    nFileNum = FreeFile 
    Open "C:\daftar_driver.txt" For Input As nFileNum 
        lLineCount = 1 
        Do While Not EOF(nFileNum) 
            Line Input #nFileNum, sNextLine 
            MsgBox sNextLine 'ini akan membaca file text baris per baris 
            sNextLine = sNextLine & vbCrLf 
            sText = sText & sNextLine 
        Loop 
        OpenTextFile = sText 
    Close nFileNum 
End Function 

READ MORE - Membaca File Text Baris Per Baris - Visual Basic 6

Contoh Iterasi VBControl dan VBComponent - VB6 Add-ins

Menjelaskan iterasi untuk VBControl dan VBComponent menggunakan For ... Each - Apabila kita membuat sebuah TextBox pada Form, maka secara default property Text dari TextBox tersebut akan memiliki isi berupa tulisan Text1, Text2, dan seterusnya. Kita dapat menghilangkan isi dari dari TextBox tersebut secara manual (satu persatu dihilangkan teksnya) atau menggunakan kode yang telah ditulis terdahulu. Maka pada saat design time kita dapat menggunakan kode yang ... 'just one click' dan semuanya selesai, tidak masalah berapapun jumlah TextBox atau Form yang kita miliki/buat.

Public VBInstance As VBIDE.VBE 
Public Connect As Connect 
 
Option Explicit 
 
Private Sub CancelButton_Click() 
    Connect.Hide 
End Sub 
 
Private Sub OKButton_Click() 
    ClearAllTextBoxes 
    'hilangkan 1 baris kode di atas, dan gunakan kode di bawah 
    'jika hanya ingin menghilangkan isi dari TextBox dalam satu form saja. 
    'ClearTextBoxes 'menghilangkan Text yang terdapat pada TextBox 
End Sub 
 
'gunakan kode di bawah, jika ingin menghilangkan isi dari TextBox 
'dalam sebuah project VB6 
Private Function ClearAllTextBoxes() 
    Dim ctl As VBComponent 
    Dim p As Properties 
    Dim i As Integer 
    For Each ctl In VBInstance.ActiveVBProject.VBComponents 
        If ctl.Type = vbext_ct_VBForm Or ctl.Type = vbext_ct_VBMDIForm Then 
             ctl.DesignerWindow.SetFocus 
             ClearTextBoxes 
        End If 
    Next 
    Dim c As VBForm 
End Function 
 
'gunakan kode di bawah jika hanya satu form selected saja. 
Private Function ClearTextBoxes() 
    On Error Resume Next 
    Dim ctr As VBIDE.VBControl 
    For Each ctr In VBInstance.SelectedVBComponent.Designer.VBControls 
         If ctr.ProgId = "VB.TextBox" Then 
              ctr.Properties("Text") = "" 
         End If 
    Next 
End Function 

Contoh di atas hanyalah contoh sederhana dan tentu saja bisa dikembangkan untuk mempermudah pembuatan aplikasi, contoh lain: MZ-Tools yang menggunakan kode iterasi di atas untuk mengetahui apakah sebuah control memiliki Access Keys (mnemonic/ShortCut Underline).

READ MORE - Contoh Iterasi VBControl dan VBComponent - VB6 Add-ins

Menutup Seluruh Windows Yang Tidak Digunakan - VB6 Add-Ins

Contoh kode untuk menutup Windows yang tidak digunakan menggunakan Add-Ins:

Public VBInstance As VBIDE.VBE 
Public Connect As Connect 
 
Option Explicit 
 
Private Sub CancelButton_Click() 
    Connect.Hide 
End Sub 
 
Private Sub OKButton_Click() 
    CloseUnusedWindows 
End Sub 
 
'kode di bawah akan menutup seluruh windows kecuali windows yang sedang aktif 
Private Sub CloseUnusedWindows() 
    Dim v As VBComponent 
    For Each v In VBInstance.ActiveVBProject.VBComponents 
        If Not (v Is VBInstance.SelectedVBComponent) Then 
            v.DesignerWindow.Close 
        End If 
    Next 
End Sub 

READ MORE - Menutup Seluruh Windows Yang Tidak Digunakan - VB6 Add-Ins

Project Add-Ins Visual Basic 6 - Compile And Run

Pernahkah Anda mencoba kode yang mengharuskan dicompile terlebih dahulu dengan memanggil prosedur ini? tentu sering, bagaimana? sangat merepotkan sekali bukan? Nah, kode di bawah ini bisa mengatasinya:

Public VBInstance As VBIDE.VBE 
Public Connect As Connect 
 
Option Explicit 
 
Private Sub CancelButton_Click() 
    Connect.Hide 
End Sub 
 
Private Sub OKButton_Click() 
    CompileAndRun 
End Sub 
 
Private Sub CompileAndRun() 
    VBInstance.VBProjects.StartProject.MakeCompiledFile 
    Shell VBInstance.ActiveVBProject.BuildFileName, vbNormalFocus 
End Sub 

Jika Anda gabungkan dengan manifest injector, maka hasilnya akan lebih baik lagi.

READ MORE - Project Add-Ins Visual Basic 6 - Compile And Run