Visual Basic Forum

funky-destroy · Newbie Anmeldedatum: 08.04.2009 Beiträge: 4

Hi ich habe wieder ein problem!
ich möchte einen screenshot machen und den abspeichern, das klappt alles auch, aber die datei ist fast 4mb groß!!
deshalb wollte ich fragen, welche möglichkeiten es gibt sie zu verkleinern??? Vieleicht die Qualität verschlechtern aber wie?!

mfg funky
_________________

ZiuX · « Moderator » Anmeldedatum: 02.05.2008 Beiträge: 160

Du hast mehre Mögkichkeiten, du kannst zum einen natürlich die Größe des Bildes verändern.
Aber zu raten wäre dir acuh, das Bild von .bmp in .jpg zu konvertieren Wink

Für das Konvertieren gibt es genügens Source-Codes im Internet Wink

z.B. hier.

Und für das Verkleinern wird sich sicher auch was finden.

Ich denke am besten ist es, wenn du die bilder erst verkleinerst und dann konvertierst, allerdings ist das auch immer abhängig davon, wofür du das Bild hinterher benötigst.

lg ZiuX Wink

_________________
ziux[ät]jabber.ccc.de
Z1uX.cn

funky-destroy · Newbie Anmeldedatum: 08.04.2009 Beiträge: 4

Hi!
Danke für die Antwort aber es funktioniert nicht richtig... Ich habe das jetzt so geschrieben:

Private Sub Command1_Click()
keybd_event &H2C, 0, 0, 0
DoEvents
DoEvents
SavePicture Clipboard.GetData, "C:\screeen.bmp"
DoEvents
DoEvents
Dim sFile1 As String
Dim sFile2 As String

sFile1 = "C:\screeen.bmp"
sFile2 = "C:\screeen.jpg"

sMsg = janConvDLL.ConvertEx(sFile1, sFile2, 0, 0, False, 70)

End Sub

Private Sub Form_Load()
' DLL initialisieren
Dim janConvDLL As Object
Set janConvDLL = CreateObject("janGraphics.Compendium")
End Sub

Aber wenn ich das jetzt starte, kommt diese Meldung : activexcomponent can´t create object...
weiß jemand warum??

mfg funky
_________________

ZiuX · « Moderator » Anmeldedatum: 02.05.2008 Beiträge: 160

Hast du die DLL eingebunden usw., wie es dort steht?
_________________
ziux[ät]jabber.ccc.de
Z1uX.cn