PLZ Help: Access Skript (für Profis)

amok

Senior Member

Mittwoch, 5. Oktober 2005, 23:15

1

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

2

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

3

cool,
thanx, werde es mal testen!

amok