PLZ Help: Access Skript (für Profis)

Lieber Besucher, herzlich willkommen bei: Aqua Computer Forum. Falls dies Ihr erster Besuch auf dieser Seite ist, lesen Sie sich bitte die Hilfe durch. Dort wird Ihnen die Bedienung dieser Seite näher erläutert. Darüber hinaus sollten Sie sich registrieren, um alle Funktionen dieser Seite nutzen zu können. Benutzen Sie das Registrierungsformular, um sich zu registrieren oder informieren Sie sich ausführlich über den Registrierungsvorgang. Falls Sie sich bereits zu einem früheren Zeitpunkt registriert haben, können Sie sich hier anmelden.

amok

Senior Member

PLZ Help: Access Skript (für Profis)

Mittwoch, 5. Oktober 2005, 23:15

Hi Leute!

Also ich brauche echt mal eure Hilfe, brauche einen echten Access King. Ich habe folgendes Problem auf der Arbeit, muss eine Access DAtenbank (ich weiß ist eigentlich keine, aber egal) ändern. Und zwar folgendes: Ich will eine ACDSee jpg Datei in ein Formular einbinden können und dann im Formular auf die Datei zoomen können. Kennt da jemand ein Makro, ein paar Tipps?

Also bis zu dem einbinden bin ich ja noch gekommen aber das zoomen kriege ich nicht hin. Wäre echt für jede Hilfe dankbar, ist echt wichtig. Gerne auch per PM, ICQ oder Skype die Datei.

Bis denne... weiß nicht mehr weiter.

Amok

DAP

God

Re: PLZ Help: Access Skript (für Profis)

Donnerstag, 6. Oktober 2005, 13:19

probiers mal damit...
picSource enthält das bild und kann ruhig invisible sein...

Quellcode

Private Sub ZoomSub(ByVal Prozent)
  Dim dx1&, dy1&, dx2&, dy2&
    
    dx1 = picSource.Width
    dy1 = picSource.Height
    
    dx2 = dx1 * Prozent / 100
    dy2 = dy1 * Prozent / 100
    
    picZoom.PaintPicture picSource, 0, 0, dx2, dy2
End Sub

hab aber keine ahnung ob die verkrüppelte vba-picturebox die paintpicture-methode noch kennt...

amok

Senior Member

Re: PLZ Help: Access Skript (für Profis)

Freitag, 7. Oktober 2005, 17:23

cool,
thanx, werde es mal testen!

amok