Bueno saludos pa todos..!!!
despues de tanta ladilla he encontrado un
modulo clase Cjpeg.cls que si realiza el trabajo de compresion al guardar en fomato *.jpeg y
cargar la imagen valida al contenedor picture..!!!!aca esta el Code
'**************************************************************
'* 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
aca el proyecto completo
code+modulo
http://www.savefile.com/files/970741a todos gracias por responder...!!!!
ahora solo me faltaria crear una funcion para enviar la imagen capturada por el servidor al cliente (esto que me sirva en forma general todo tipo de archivo)