Notifikationer

Markér alle som læst Log ud

galthen Nybegynder

12. november 2003 - 07:51 Der er 5 kommentarer og
1 løsning

Get Image Size

I ASP VB vil jeg gerne lave en funktion der tjecker om et billede er mere end 400px i breden. Og hvis billedet er det så resize det til 400px.

Nogle der har nogle forslag?

Synes godt om

adam_christensen Nybegynder

12. november 2003 - 10:13 #1

Ja, men du skal bruge et COM-objekt der giver adgang til billede-funktioner. Jeg kan anbefale GFLAx (bruger den selv), der er gratis:

http://www.xnview.com/download/GflAxSetup.exe

Synes godt om

adam_christensen Nybegynder

12. november 2003 - 10:26 #2

Når du så har installeret komponenten kan du bruge dette kode til at resize:

Set oImage = WScript.CreateObject("GflAx193.GflAx")
oImage.LoadBitmap "filnavn-på-billede"

'1 for JPEG
'2 for GIF
'3 for PNG
'4 for BMP
'5 for TIFF - flere formater i hjælpefilen under 'reference'
oImage.SaveFormat = 1

If oImage.Width > 400 Then
iProportion = oImage.Height / oImage.Width
oImage.Resize 400, 400 * iProportion
End If

oImage.SaveBitmap "filnavn-på-billede"

Set oImage = Nothing

Synes godt om

adam_christensen Nybegynder

12. november 2003 - 10:27 #3

Burde lige nævnte at GFLAx-komponenten kun er gratis til ikke-kommercielt brug...

Synes godt om

galthen Nybegynder

12. november 2003 - 10:37 #4

Jeg har ikke mulighed for at installere nogle komponenter.

Synes godt om

adam_christensen Nybegynder

12. november 2003 - 14:01 #5

Så kan det ikke lade sig gøre...

Synes godt om

galthen Nybegynder

20. november 2003 - 14:28 #6

lukker tråden

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra VBscript kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
VBS Af bsn i VBscript	5	16/07/202614:01	18/07/202610:46
Ændre navn på folder Af bsn i VBscript	12	07/07/202312:45	09/07/202307:04
Outlook makro Af Webnoob i VBscript	6	09/02/202313:32	16/02/202315:51
Sti / Filname med mellemrum ??? Af ksor i VBscript	10	07/10/202200:43	07/10/202215:40
GetLastRow - Google spreadsheet Af rickiegrayholm i VBscript	2	22/04/202213:23	22/04/202214:55

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS