Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Brauche nochmal Hilfe
Autor: Asternix
Datum: 23.06.02 13:25
Danke für deine Antwort, aber es funktioniert bei mir nicht. Es kommt aber auch keine Fehlermeldung. Habe zwei PictureBox und zwei Buttons eingefügt. Mit Button 1 lade ich die Bilder (es funktioniert) Mit Button 2 starte ich den Vergleich --> es kommt keine MsgBox, auch wenn die Bilder identisch sind. hier der quellcode: Private Sub Command1_Click() Picture1 = LoadPicture("C:bild1.jpg") Picture2 = LoadPicture("C:bild2.jpg") End Sub Private Function PicCompare(Pic1 As Control, _ Pic2 As Control) As Boolean Dim myPropBag As PropertyBag Dim vContents1 As Variant Dim vContents2 As Variant ' 1. Bild speichern und Inhalt zwischenspeichern Set myPropBag = New PropertyBag With myPropBag .WriteProperty "Picture", Pic1.Image vContents1 = .Contents End With ' 2. Bild speichern und Inhalt zwischenspeichern Set myPropBag = New PropertyBag With myPropBag .WriteProperty "Picture", Pic2.Image vContents2 = .Contents End With ' Bilder vergleichen PicCompare = (CStr(vContents1) = CStr(vContents2)) End Function Private Sub Command2_Click() If PicCompare(Picture1, Picture2) Then MsgBox "Bilder sind identisch" End If End Sub Vieleicht kannst du mir nochmals helfen Danke Asternix

Prüfen ob Bilder identisch sind	62	Asternix	23.06.02 10:01
Re: Prüfen ob Bilder identisch sind	258	Dieter	23.06.02 10:10
Brauche nochmal Hilfe	38	Asternix	23.06.02 13:25
DANKE - Hab Fehler selbst gefunden	31	Asternix	23.06.02 14:42

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen