VB6 Code - Compact And Repair Database MS Access

Di bawah ini merupakan fungsi untuk mengcompact dan merepair database Microsoft Access. Kegunaan Compact And Repair database untuk menghilangkan secara permanen data-data yang terhapus. Bagaimana Fungsi mengenai Compact And Repair Database MS Access.

Option Explicit 
 
Private Function CompactDB(Filename As String) As Boolean 
On Error GoTo ErrHandler 
 
    Dim DC As New DBEngine 
 
    Screen.MousePointer = vbHourglass 
    DC.CompactDatabase Filename, App.Path & "\~database.tmp" 
    Kill Filename 
    Name App.Path & "\~database.tmp" As Filename 
    Screen.MousePointer = vbDefault 
    CompactDB = True 
    Exit Function 
 
ErrHandler: 
 
    CompactDB = False 
 
End Function 

Contoh penggunaan Compact and Repair Database:

Private Sub Command1_Click() 
   MsgBox CompactDB(App.Path & "\database.mdb") 'true jika database sukses di compact dan repair 
End Sub

READ MORE - VB6 Code - Compact And Repair Database MS Access

Kode VB untuk Mencetak Sebuah Garis Ke Printer

Di bawah ini merupakan contoh sederhana untuk mencetak sebuah garis ke printer menggunakan Visual Basic 6, diharapkan Anda dapat mengembangkannya lebih lanjut, adapun kode untuk mencetak sebuah garis ke printer adalah sebagai berikut:

Private Sub PrintLine(LineWidth As Single) 
    Printer.Line (0, Printer.CurrentY)-(Printer.ScaleWidth, Printer.CurrentY + LineWidth), , BF 
    Printer.EndDoc 
End Sub 

Contoh penggunaan kode untuk mencetak garis ke printer:

Private Sub Command1_Click() 
    PrintLine (60) '60 adalah lebar garis 
End Sub 

READ MORE - Kode VB untuk Mencetak Sebuah Garis Ke Printer

Memeriksa Apakah Terdapat Printer Yang Terinstall - Visual B

Di bawah ini merupakan kode untuk memeriksa apakah komputer memiliki printer yang terinstall menggunakan Visual Basic 6, Adapun kode untuk memeriksa printer yang terinstall dalam komputer sebagai berikut:

Public Function IsPrinterInstalled() As Boolean 
    If VB.Printers.Count <= 0 Then
        IsPrinterInstalled = False
        Exit Sub
    Else
        IsPrinterInstalled = True
    End If
End Function 

Atau Anda pun dapat merubah juga kode di atas (agar lebih simple) seperti di bawah ini (hasilnya akan sama):

Public Function IsPrinterInstalled() As Boolean 
    IsPrinterInstalled = (VB.Printers.Count > 0)
End Function 

READ MORE - Memeriksa Apakah Terdapat Printer Yang Terinstall - Visual B

Menentukan Objek Font Yang Dikirimkan Ke Printer

Contoh sederhana untuk menentukan name, underline, bold, italic, size (properties objek font) yang dikirimkan ke sebuah printer. Adapun contohnya sebagai berikut:

Private Sub Command1_Click() 
    With Printer 
        .FontName = "Arial" 
        .FontUnderline = False 
        .FontBold = False
        .FontItalic = True
        .FontSize = "30"
        .Print "Ini contoh objek font dalam printer" 
        .EndDoc 
    End With 
End Sub 

READ MORE - Menentukan Objek Font Yang Dikirimkan Ke Printer