Memahami Drag and Drop Dalam Visual Basic 6

Posting mengenai contoh operasi Drag and Drop menggunakan OLE pada VB6, Sebelum Anda mencoba kode drag and drop di bawah ini, settinglah property objek Picture1 OLEDropMode = 1 - Manual dan Property AutoSize = True.

Private Sub Picture1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)  
On Error GoTo ErrHandler  
    Picture1.Picture = LoadPicture(Data.Files(1)) 
   Exit Sub  
ErrHandler:  
    MsgBox "Error gambar tidak bisa diload" 
End Sub 

Untuk melihat cara kerjanya, bukalah Windows Explorer draglah satu file gambar yang terdapat pada Windows Explorer tersebut, selanjutnya drop tepat di atas object PictureBox.

READ MORE - Memahami Drag and Drop Dalam Visual Basic 6

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