Foro de elhacker.net

Private Sub Command1_Click()
Dim Captura As New cJpeg
Dim imagen As Image
        
        Captura.SetSamplingFrequencies 2, 2, 2, 2, 2, 2
        Captura.Quality = 70 ' aqui se ajusta la calidad, entre 1 y 100
        Captura.SampleScreen   
        Captura.SaveFile ("c:\" & "\mu" & ".jpg")



Picture1.Picture = LoadPicture("c:\mu.jpg")

End Sub

Captura.SaveFile "c:\" & "\mu" & ".jpg"

Captura.SaveFile "C:\mu.jpg"

'**************************************************************
'*  Codigo Ejemplo de utilizacion del modulo clase cJpeg.cls  *
'       Class Name:   cJpeg.Cls "JPEG Encoder Class"          *
'       Author:       John Korejwa  <korejwa@tiac.net>        *
'       Version:      0.9 beta  [26 / November / 2003]        *
'*  Despues de tanta ladilla la solucion lenta pero solucion  *
'*                      Por Tunovato                          *
'**************************************************************

Private Sub Capturar_Click()
Dim Captura As New cJpeg

    Captura.SetSamplingFrequencies 2, 2, 2, 2, 2, 2
    Captura.Quality = 10 ' Este numero es variable de 1 a 100, la calidad de la imagen.
    Captura.SampleScreen
    Captura.SaveFile ("C:\" & "Captura" & ".jpg")

End Sub

Private Sub Cargar_Click()
Picture1.Picture = LoadPicture("c:\Captura.jpg")
End Sub

Private Sub Form_Resize()
On Error Resume Next

    If Me.WindowState = vbNormal Or Me.WindowState = vbMaximized Then
        Picture1.Move 1700, 50, Me.ScaleWidth - 1800, Me.ScaleHeight - 100
    End If
End Sub