Contoh Print Preeview Pada Visual Basic 6.0

Option Explicit

Private Sub Form_Load()
    CommonDialog1.CancelError = True
    Command1.Caption = "Load Picture"
    Command2.Caption = "Print Preview"
    Command3.Caption = "Print"
End Sub

Private Sub Command1_Click()
    Dim sFileFilter As String

    On Error GoTo ErrHandler

    sFileFilter = "Bitmap Files (*.bmp)|*.bmp|"
    sFileFilter = sFileFilter & "GIF Files (*.gif)|*.gif|"
    sFileFilter = sFileFilter & "Icon Files (*.ico)|*.ico|"
    sFileFilter = sFileFilter & "JPEG Files (*.jpg)|*.jpg|"
    sFileFilter = sFileFilter & "Windows MetaFiles (*.wmf)|.wmf"
    With CommonDialog1
        .Filter = sFileFilter
        .ShowOpen
        If .FileName <> " " Then
            Picture2.Picture = LoadPicture(.FileName)
        End If
    End With

ErrHandler:
    Exit Sub
End Sub

Private Sub Command2_Click()
    Dim dRatio As Double
    dRatio = ScalePicPreviewToPrinterInches(Picture1)
    PrintRoutine Picture1, dRatio
End Sub

Private Sub Command3_Click()
    Printer.ScaleMode = vbInches
    PrintRoutine Printer
    Printer.EndDoc
End Sub

Private Function ScalePicPreviewToPrinterInches _
    (picPreview As PictureBox) As Double

    Dim Ratio As Double ' Ratio between Printer and Picture
    Dim LRGap As Double, TBGap As Double
    Dim HeightRatio As Double, WidthRatio As Double
    Dim PgWidth As Double, PgHeight As Double
    Dim smtemp As Long

    ' Get the physical page size in Inches:
    PgWidth = Printer.Width / 1440
    PgHeight = Printer.Height / 1440

    ' Find the size of the non-printable area on the printer to
    ' use to offset coordinates. These formulas assume the
    ' printable area is centered on the page:
    smtemp = Printer.ScaleMode
    Printer.ScaleMode = vbInches
    LRGap = (PgWidth - Printer.ScaleWidth) / 2
    TBGap = (PgHeight - Printer.ScaleHeight) / 2
    Printer.ScaleMode = smtemp

    ' Scale PictureBox to Printer's printable area in Inches:
    picPreview.ScaleMode = vbInches

    ' Compare the height and with ratios to determine the
    ' Ratio to use and how to size the picture box:
    HeightRatio = picPreview.ScaleHeight / PgHeight
    WidthRatio = picPreview.ScaleWidth / PgWidth

    If HeightRatio < WidthRatio Then
        Ratio = HeightRatio
        smtemp = picPreview.Container.ScaleMode
        picPreview.Container.ScaleMode = vbInches
        picPreview.Width = PgWidth * Ratio
        picPreview.Container.ScaleMode = smtemp
    Else
        Ratio = WidthRatio
        smtemp = picPreview.Container.ScaleMode
        picPreview.Container.ScaleMode = vbInches
        picPreview.Height = PgHeight * Ratio
        picPreview.Container.ScaleMode = smtemp
    End If

    ' Set default properties of picture box to match printer
    ' There are many that you could add here:
    picPreview.Scale (0, 0)-(PgWidth, PgHeight)
    picPreview.Font.Name = Printer.Font.Name
    picPreview.FontSize = Printer.FontSize * Ratio
    picPreview.ForeColor = Printer.ForeColor
    picPreview.Cls

    ScalePicPreviewToPrinterInches = Ratio
End Function

Private Sub PrintRoutine(objPrint As Object, _
    Optional Ratio As Double = 1)
    ' All dimensions in inches:

    ' Print some graphics to the control object
    objPrint.Line (1, 1)-(1 + 6.5, 1 + 9), , B
    objPrint.Line (1.1, 2)-(1.1, 2)
    objPrint.PaintPicture Picture2, 1.1, 1.1, 0.8, 0.8
    objPrint.Line (2.1, 1.2)-(2.1 + 5.2, 1.2 + 0.7), _
    RGB(200, 200, 200), BF

    ' Print a title
    With objPrint
        .Font.Name = "Arial"
        .CurrentX = 2.3
        .CurrentY = 1.3
        .FontSize = 35 * Ratio
        objPrint.Print "Visual Basic Printing"
    End With

    ' Print some circles
    Dim x As Single
    For x = 3 To 5.5 Step 0.2
        objPrint.Circle (x, 3.5), 0.75
    Next

    ' Print some text
    With objPrint
        .Font.Name = "Courier New"
        .FontSize = 30 * Ratio
        .CurrentX = 1.5
        .CurrentY = 5
        objPrint.Print "It is possible to do"

        .FontSize = 24 * Ratio
        .CurrentX = 1.5
        .CurrentY = 6.5
        objPrint.Print "It is possible to do print"

        .FontSize = 18 * Ratio
        .CurrentX = 1.5
        .CurrentY = 8
        objPrint.Print "It is possible to do print preview"
    End With
End Sub

READ MORE - Contoh Print Preeview Pada Visual Basic 6.0

Aplikasi Untuk Melihat Warna Yang Ada Di bawah Pointer

'simpan kode di bawah pada module
Option Explicit

Private Declare Function CreateDC& Lib "gdi32" Alias "CreateDCA" (ByVal lpDriverName As String, ByVal lpDeviceName As String, ByVal lpOutput As String, lpInitData As Any)
Private Declare Function DeleteDC& Lib "gdi32" (ByVal hdc As Long)
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long

Private Type POINTAPI
    X As Long
    Y As Long
End Type

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
'simpan kode di bawah pada form
'Timer.Interval = 1
'Picture1.AutoRedraw = True

'Option Explicit

Dim pt As POINTAPI

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Timer1.Enabled = True
    Picture1.MousePointer = vbCrosshair
End Sub

Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Timer1.Enabled = False
    Picture1.MousePointer = vbDefault
End Sub

Private Sub Timer1_Timer()
    Dim screendc As Long
    GetCursorPos pt
    screendc = CreateDC("DISPLAY", "", "", 0&)
    Picture1.BackColor = GetPixel(screendc, pt.X, pt.Y)
    Text1.Text = "#" & Hex(GetPixel(screendc, pt.X, pt.Y))
    DeleteDC (screendc)
End Sub

READ MORE - Aplikasi Untuk Melihat Warna Yang Ada Di bawah Pointer

Cara Mem-Print Sebuah Gambar Yang Ada Dalam PictureBox

Mengenai cara mem-print gambar yang terdapat pada objek PictureBox menggunakan VB6 - Adapun cara mem-print gambar yang terdapat pada PictureBox menggunakan VB6 adalah sebagai berikut:

Private Sub Command1_Click()
    Printer.PaintPicture Picture1.Picture, 0, 0, Picture1.Width, Picture1.Height
    Printer.EndDoc
End Sub

Demikian sederhana cara mem-print sebuah gambar yang terdapat pada PictureBox menggunakan VB6.

READ MORE - Cara Mem-Print Sebuah Gambar Yang Ada Dalam PictureBox

Memutarkan huruf pada watermark, bagaimana caranya?

Mengenai cara memutarkan atau merotasi font pada watermark menggunakan VB6 (belajar Visual Basic 6 untuk pemula) - Posting ini merupakan kelanjutan dari posting yang telah ditulis terdahulu. Disini kita akan menambahkan beberapa kemampuan pada project watermark yang sedang kita buat. Perhatikan kode di bawah ini:

'--------------------------------------------------------------------------------------- 
' http://khoiriyyah.blogspot.com 
' coder: Administrator 
'--------------------------------------------------------------------------------------- 
Option Explicit 
 
Private Declare Sub InitCommonControls Lib "comctl32.dll" () 
 
Dim intCurrentX As Integer 'variabel untuk menyimpan koordinat X 
Dim intCurrentY As Integer 'variabel untuk menyimpan koordinat Y 
 
Private Sub Command1_Click() 
    'memanggil prosedur RotateFont 
    RotateFont Picture1, Val(txtSize), txtFontName, intCurrentX, intCurrentY, Val(txtDegree), txtWatermark 
    'menyimpan hasil gambar yang telah diberi teks 
    SavePicture Picture1.Image, App.Path & "\watermark_sample.bmp" 'and save  Exit Sub 
End Sub 
 
Private Sub Form_Initialize() 
    InitCommonControls 'XP style 
End Sub 
 
Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) 
    Label3 = "X: " & x 'menampilkan koordinat X ke dalam label 
    Label4 = "Y: " & y 'menampilkan koordinat Y ke dalam label 
    intCurrentX = x 'simpan koordinat x dalam variabel intCurrentX 
    intCurrentY = y 'simpan koordinat y dalam variabel intCurrentY 
    WaterMarkIt 'panggil prosedur WaterMarkIt 
End Sub 
 
Private Sub txtDegree_Change() 
    'apabila bukan angka, jadikan txtDegree.Text = 90 
  If Not IsNumeric(txtDegree.Text) Then txtDegree.Text = "90" 
End Sub 
 
Private Sub VScroll1_Scroll() 
    'panggil prosedur WaterMarkIt pada saat terjadi Scroll 
    WaterMarkIt 
End Sub 
 
Private Sub VScroll1_Change() 
    'panggil prosedur WaterMarkIt pada saat terjadi perubahan nilai 
    WaterMarkIt 
End Sub 
 
Private Sub VScroll2_Change() 
    WaterMarkIt 'panggil prosedur WaterMarkIt 
End Sub 
 
Private Sub VScroll2_Scroll() 
    WaterMarkIt 'panggil prosedur WaterMarkIt 
End Sub 
'-------------------------------------------------------------------- 
' Prosedur WaterMarkIt 
'-------------------------------------------------------------------- 
Private Sub WaterMarkIt() 
    Command1_Click 'panggil Command1_Click (Rotasi dan simpan image) 
    txtDegree.Text = VScroll1.Value 'txtDegree berdasarkan nilai VScroll1 
    txtSize.Text = VScroll2.Value 'txtSize berdasarkan nilai VScroll2 
End Sub 

Download Project

READ MORE - Memutarkan huruf pada watermark, bagaimana caranya?

Rotasi Font Menggunakan Visual Basic 6.0

Modul untuk memutarkan atau merotasi font berdasarkan derajat tertentu serta koordinat tertentu menggunakan VB6 - Bagaimana kode serta contoh penggunaannya, bisa Anda lihat di bawah ini:

Option Explicit 
 
Public Type LOGFONT 
  lfHeight As Long 
  lfWidth As Long
  lfEscapement As Long
  lfOrientation As Long
  lfWeight As Long
  lfItalic As Byte
  lfUnderline As Byte
  lfStrikeOut As Byte
  lfCharSet As Byte
  lfOutPrecision As Byte
  lfClipPrecision As Byte
  lfQuality As Byte
  lfPitchAndFamily As Byte
  lfFacename As String * 33
End Type 
 
Public Declare Function CreateFontIndirect Lib "gdi32" Alias "CreateFontIndirectA" (lpLogFont As LOGFONT) As Long 
Public Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long 
Public Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long 
 
Public Sub RotateFont(pic As PictureBox, fontsize As Integer, fontname As String, x As Integer, y As Integer, degree As Integer, txt As String) 
         
    On Error GoTo ErrHandler
     
    Dim F As LOGFONT
    Dim hPrevFont As Long 
    Dim hFont As Long
    pic.Cls
 
    F.lfEscapement = 10 * Val(degree)
    F.lfFacename = fontname 
    F.lfHeight = (fontsize * -20) / Screen.TwipsPerPixelY 
    pic.fontname = "Arial Black" + Chr$(0) 
    hFont = CreateFontIndirect(F) 
    hPrevFont = SelectObject(pic.hdc, hFont) 
 
    pic.CurrentX = x
    pic.CurrentY = y
    pic.Print txt
     
    hFont = SelectObject(pic.hdc, hPrevFont)
    DeleteObject hFont 
    Exit Sub 
    
ErrHandler: 
 
    MsgBox Err.Description
     
End Sub 

Modul di atas memiliki 7 parameter, Adapun contoh penggunaannya sebagai berikut:

Private Sub Command1_Click() 
    RotateFont Picture1, 12, "Arial", 90, 2500, _ 
    40, "khoiriyyah.blogspot.com" 
'Keterangan: 
'    1. Picture1 = PictureBox 
'    2. 12 = ukuran huruf 
'    3. Arial = nama huruf 
'    4. 90 = koordinat X 
'    5. 2500 = koordinat Y 
'    6. 40 = derajat putaran (0 derajat = normal, 90 derajat = tegak lurus) 
'    7. khoiriyyah.blogspot.com = text yang dimasukan ke dalam PictureBox 
End Sub 

READ MORE - Rotasi Font Menggunakan Visual Basic 6.0

Menentukan Titik Koordinat Text Pada Watermark | VB6

Artikel yang menjelaskan cara menempatkan text (watermark) berdasarkan titik koordinat, posting ini merupakan kelanjutan dari posting sebelumnya mengenai dasar-dasar membuat software watermark (Belajar Visual Basic 6 untuk pemula melalui praktik). Selanjutnya agar text watermark dapat ditempatkan sesuai keinginan, maka kita harus menentukan titik koordinatnya terlebih dahulu. Adapun kode lengkap untuk menentukan titik koordinat text watermark adalah sebagai berikut:

'--------------------------------------------------------------------------------------- 
' http://khoiriyyah.blogspot.com 
' coder: Administrator 
'--------------------------------------------------------------------------------------- 
Option Explicit 

Dim intCurrentX As Integer 'variabel untuk menyimpan koordinat X 
Dim intCurrentY As Integer 'variabel untuk menyimpan koordinat Y 
 
Private Sub Command1_Click() 
    Picture1.Cls 'bersihkan Picture1 dari seluruh text 
    Picture1.CurrentX = intCurrentX 'ambil nilai X dari variabel di atas 
    Picture1.CurrentY = intCurrentY 'ambil nilai Y dari variabel di atas 
    Picture1.Print "http://khoiriyyah.blogspot.com" 'beri watermark! 
    SavePicture Picture1.Image, App.Path & "\watermark_sample.bmp" 'jadikan file dan simpan. 
End Sub 

Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) 
    intCurrentX = X 'masukan nilai X pada variabel berdasarkan koordinat klik mouse 
    intCurrentY = Y 'masukan nilai Y pada variabel berdasarkan koordinat klik mouse 
End Sub 

Dengan menggunakan kode di atas, maka kita dapat menentukan titik koordinat text watermark seperti pada gambar berikut:

Download Project

READ MORE - Menentukan Titik Koordinat Text Pada Watermark | VB6

VB6 Code - 2 Baris Kode Inti Membuat Software Watermark

Apakah gambar yang diberi watermark itu? mengapa gambar diberi watermark? mengenai hal ini, saya percaya Anda (blogger) lebih tahu jawabannya. Posting kali ini kita akan membahas tentang project VB6 step by step tentang pembuatan software watermark. Dalam membuat software, tentu kita harus dapat membedakan mana yang menjadi kode inti (primer) mana yang menjadi kode tambahan (sekunder). Dengan demikian, maka kita akan dengan mudah mengatur, memelihara, menambah, mengurangi, menghilangkan, mengupdate, software tersebut. Kode inti merupakan kode utama pembentuk software. Sedangkan kode tambahan (sekunder) kode-kode yang melengkapi kode primer tadi, sehingga bisa disebut: plug-ins, add-ons, add-ins, fasilitas, tambahan, pelengkap, penyempurna, dan seluruh kata yang setara dengan itu. Umumnya dengan kode-kode sekunder tadi maka sebuah software akan memiliki versi-versi, versi 1.0, versi 1.0.1, versi 1.0.2 dan seterusnya, lengkap dengan history, bug fixed, kekurangan, serta kelebihannya. Disini saya memiliki contoh yang baik mengenai hal yang telah dijelaskan di atas, yaitu mengenai pembuatan software watermark. Kode intinya hanya 2 baris saja. Berikut kode inti dari software watermark tersebut:

'--------------------------------------------------------------------------------------- 
' http://khoiriyyah.blogspot.com 
' coder: Administrator 
'--------------------------------------------------------------------------------------- 
Option Explicit 
 
Private Sub Command1_Click() 
    Picture1.Print "http://khoiriyyah.blogspot.com" 'watermark! 
    SavePicture Picture1.Image, App.Path & "\watermark_sample.bmp" 'and save 
End Sub 

dan hasilnya (walaupun harus menggunakan yang lain untuk mengkonversi dari bmp ke jpg):

contoh gambar yang sudah diberi watermark

Untuk selanjutnya (To Do):

1. Mencari/membuat class, module, ocx, dll untuk merubah ke format lain (gif, jpg, jpeg, png, dsb)
2. Rotasi huruf
3. Memindahkan huruf berdasarkan koordinat
4. dsb saja (terlalu banyak untuk dituliskan).

[Download Project]

READ MORE - VB6 Code - 2 Baris Kode Inti Membuat Software Watermark

VB6 Code - Konversi Warna dari RGB Ke Long

Di bawah ini merupakan fungsi untuk meng-konversi warna dari rgb (red, green, blue) ke Long. Bagaimana implementasinya dalam Visual Basic 6.0? simak kodenya di bawah ini:

Public Function RGBToLong(Red As Integer, Green As Integer, Blue As Integer) 
    RGBToLong = RGB(Red, Green, Blue) 
End Function 

Contoh penggunaan fungsi konversi warna dari RGB ke Long

Private Sub Command1_Click() 
    MsgBox RGB(8, 12, 254) 
End Sub 

READ MORE - VB6 Code - Konversi Warna dari RGB Ke Long

VB6 Code - Konversi Warna dari QBColor ke RGB

Di bawah ini merupakan fungsi untuk meng-konversi warna dari QBColor ke RGB. Bagaimana implementasinya dalam Visual Basic 6.0? simak kodenya di bawah ini:

Public Sub QBColorToRGB(QBColorValue As Integer)      
     QBColorToRGB = LongToRGB(QBColor(QBColorValue))  
End Sub 

READ MORE - VB6 Code - Konversi Warna dari QBColor ke RGB

VB6 Code - Konversi Warna dari RGB ke HEX

Di bawah ini merupakan fungsi untuk meng-konversi warna dari rgb (red, green, blue) ke Hex. Bagaimana implementasinya dalam Visual Basic 6.0? simak kodenya di bawah ini:

Public Function RGBToHex(Red As Integer, Green As Integer, Blue As Integer) 
    RGBToHex = Right(0 & Hex(Red), 2) & Right(0 & Hex(Green), 2) & Right(0 & Hex(Blue), 2) 
End Function 

Contoh penggunaan fungsi konversi warna dari RGB ke HEX

Private Sub Command1_Click() 
    MsgBox RGBToHex(0, 0, 12) 
End Sub 

READ MORE - VB6 Code - Konversi Warna dari RGB ke HEX

VB6 Code - Konversi Warna Long Ke RGB

Di bawah ini merupakan fungsi untuk meng-konversi warna dari long ke rgb (red, green, blue). Bagaimana implementasinya dalam Visual Basic 6.0? simak kodenya di bawah ini:

Public Sub LongToRGB(Color As Long, Red, Green, Blue)  
    Blue = Color \ 65536  
    Green = (Color - Blue * 65536) \ 256  
    Red = Color - (Blue * 65536) - (Green * 256)  
End Sub  

Contoh penggunaan fungsi di atas:

Private Sub Command1_Click()   
    Dim red 
    Dim green 
    Dim blue 
    Call LongToRGB(CLng("23489"), red, green, blue) 
    MsgBox red & "," & green & "," & blue 
End Sub 

READ MORE - VB6 Code - Konversi Warna Long Ke RGB

Web Color Spy - Mendeteksi Warna Standar Web

Di bawah ini merupakan project VB6 sederhana untuk mendeteksi warna standar web. Bagaimana kode project web color spy untuk mendeteksi warna standar web, bisa lihat di bawah ini:

'simpan kode di bawah pada module 
Option Explicit 
 
Public Declare Function CreateDC& Lib "gdi32" Alias "CreateDCA" (ByVal lpDriverName As String, ByVal lpDeviceName As String, ByVal lpOutput As String, lpInitData As Any) 
Public Declare Function DeleteDC& Lib "gdi32" (ByVal hdc As Long) 
Public Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long 
 
Type POINTAPI 
    X As Long 
    Y As Long
End Type 
 
Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long 

'simpan kode di bawah pada form 
'Timer.Interval = 1 
'Picture1.AutoRedraw = True 
 
Option Explicit 
 
Dim pt As POINTAPI

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) 
    Timer1.Enabled = True 
    Picture1.MousePointer = vbCrosshair
End Sub 
 
Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) 
    Timer1.Enabled = False 
    Picture1.MousePointer = vbDefault
End Sub 
 
Private Sub Timer1_Timer() 
    Dim screendc As Long 
    GetCursorPos pt
    screendc = CreateDC("DISPLAY", "", "", 0&)
    Picture1.BackColor = GetPixel(screendc, pt.X, pt.Y) 
    Text1.Text = "#" & Hex(GetPixel(screendc, pt.X, pt.Y)) 
    DeleteDC (screendc) 
End Sub 

READ MORE - Web Color Spy - Mendeteksi Warna Standar Web

VB6 Code Konversi Warna Dari Qbcolor Ke RGB

Di bawah ini merupakan fungsi VB6 untuk meng-konversi warna dari QBColor ke RGB. Bagaimana implementasinya dalam Visual Basic 6.0? simak kodenya di bawah ini:

Public Sub QBColorToRGB(QBColorValue As Integer)
    QBColorToRGB = LongToRGB(QBColor(QBColorValue))
End Sub

READ MORE - VB6 Code Konversi Warna Dari Qbcolor Ke RGB

VB6 Code - Konversi Warna Dari Rgb Ke Long

Di bawah ini merupakan fungsi VB6 untuk meng-konversi warna dari RGB(red, green, blue) ke Long. Bagaimana implementasinya dalam Visual Basic 6.0? simak kodenya di bawah ini:

Public Function RGBToLong(Red As Integer, Green As Integer, Blue As Integer)
    RGBToLong = RGB(Red, Green, Blue)
End Function

Contoh penggunaan fungsi konversi warna dari RGB ke Long

Private Sub Command1_Click()
    MsgBox RGB(8, 12, 254)
End Sub

READ MORE - VB6 Code - Konversi Warna Dari Rgb Ke Long

VB6 Code - Konversi Warna Long Ke RGB

Di bawah ini merupakan fungsi VB6 untuk meng-konversi warna dari long ke rgb (red, green, blue). Bagaimana implementasinya dalam Visual Basic 6.0? simak kodenya di bawah ini:

Public Sub LongToRGB(Color As Long, Red, Green, Blue)
    Blue = Color \ 65536
    Green = (Color - Blue * 65536) \ 256
    Red = Color - (Blue * 65536) - (Green * 256)
End Sub

Contoh penggunaan fungsi VB6 di atas:

Private Sub Command1_Click()
    Dim red
    Dim green
    Dim blue
    Call LongToRGB(CLng("23489"), red, green, blue)
    MsgBox red & "," & green & "," & blue
End Sub

READ MORE - VB6 Code - Konversi Warna Long Ke RGB

VB6 Code - Konversi Warna Dari RGB Ke Hex

Di bawah ini merupakan fungsi VB6 untuk meng-konversi warna dari rgb (red, green, blue) ke Hex. Bagaimana implementasinya dalam Visual Basic 6.0? simak kodenya di bawah ini:

Public Function RGBToHex(Red As Integer, Green As Integer, Blue As Integer)
    RGBToHex = Right(0 & Hex(Red), 2) & Right(0 & Hex(Green), 2) & Right(0 & Hex(Blue), 2)
End Function

Contoh penggunaan fungsi konversi warna dari RGB ke HEX

Private Sub Command1_Click()
    MsgBox RGBToHex(0, 0, 12)
End Sub

READ MORE - VB6 Code - Konversi Warna Dari RGB Ke Hex

VB Code - Meng-capture Screen .bmp Atau .jpg (Ezcapture.dll)

Di bawah ini merupakan fungsi VB6 untuk meng-capture (mengambil) gambar screen dalam format .bmp atau format .jpg dengan menggunakan ActiveX ezCapture.dll. Untuk keperluan ini tentu saja Anda harus memiliki dll ezCapture.dll kemudian mereferensikan project Anda terhadapnya. Mengenai ezCapture.dll bisa Anda download di sini.

Fungsi VB6 untuk meng-Capture screen dalam format .bmp

Option Explicit

Sub CaptureScreenBMP()
   Dim ezCapture As New CaptureScreen
   On Error Resume Next
   With ezCapture
        .CaptureFullScreen "C:\screen.bmp"
   End With
End Sub

Fungsi VB6 untuk meng-Capture screen dalam format .jpg

Sub CaptureScreenJPG()
   Dim ezCapture As New CaptureScreen
   With ezCapture
        .CaptureFullScreen "C:\screen.jpg"
   End With
End Sub

Contoh penggunaan fungsi capture screen .bmp

Private Sub Command1_Click()
    CaptureScreenBMP
End Sub

Contoh penggunaan fungsi capture screen .jpg.
Untuk keperluan ini Anda membutuhkan satu file lagi yakni "ijl11.dll"

Private Sub Command2_Click()
    CaptureScreenJPG
End Sub

READ MORE - VB Code - Meng-capture Screen .bmp Atau .jpg (Ezcapture.dll)