dynamisk bild i formulär

clownMedlem sedan juni 2000126 inlägg

Trådstart6 feb. 2003 14:43#1

Hej,

om jag har typ aspimage (3:e parts komponent till att manipulera bilder med) installerat på min dator och vill skapa ett formulär i access och visa en bild som jag har manipulerat mha aspimage. Hur gör jag då?

Är det någon som har skapat dynamisk grafik inuti ett access GUI förut? Hur gjorde du isf?

/Mvh Jonas

clownMedlem sedan juni 2000126 inlägg

8 feb. 2003 13:07#2

Hej Igen,

jag har nu själv försökt med att ändra en bild vid Form_Load() och sedan visa den i ett access formulär.
(Jag använde mig av gratis komponenten GflSDK från http://www.xnview.com)

Private Sub Form_Load()

Set ctrl = Nothing
Set ctrl = CreateObject("GflAx190.GflAx")

File = "C:\Folder\image.jpg"
File2 = "C:\Folder\image2.jpg"

Const AX_JPEG = 1
Const AX_BMP = 4

With ctrl
    .enablelzw = True
    .LoadBitmap File
    .FontName = "arial"
    .FontSize = 13
    .TextOut "Jonas Testar en andra gång", 5, 5, RGB(255, 255, 255)
    '.DrawRectangle 10, 10, 5, 5
    .Saveformat = AX_JPEG
    .SaveJPEGProgressive = True
    .SaveJPEGQuality = 70
    .SaveBitmap File2

End With
Set ctrl = Nothing

'MsgBox Bild1.Picture
Bild1.Picture = File2
'MsgBox Bild1.Picture

End Sub

Men tyvärr kunde jag inte stream ut den manipulerade bilden till bild objektet i formuläret utan fick spara den manipulerade bilden på hårddisken och sedan peka om bildobjektet till den nya bilden.
Men jag skulle vilja streama bilden binärt till bildobjektet i formuläret.
Hur gör jag då?

Vilket format måste bilden ha för att jag skall kuna sätta

Bild1.PictureData = ctrl..SendBinary

Är det någon som har gjort något liknande förut?

/Jonas

Engine^Medlem sedan dec. 20003 887 inlägg

10 feb. 2003 07:33#3

Inget jag provat mig på, men för .SendBinary ska nog formatet vara .raw... bara att testa dig fram.