CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg
Cookie ikon
Avatar billede 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?
Avatar billede 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
Avatar billede 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
Avatar billede adam_christensen Nybegynder
12. november 2003 - 10:27 #3
Burde lige nævnte at GFLAx-komponenten kun er gratis til ikke-kommercielt brug...
Avatar billede galthen Nybegynder
12. november 2003 - 10:37 #4
Jeg har ikke mulighed for at installere nogle komponenter.
Avatar billede adam_christensen Nybegynder
12. november 2003 - 14:01 #5
Så kan det ikke lade sig gøre...
Avatar billede galthen Nybegynder
20. november 2003 - 14:28 #6
lukker tråden
Avatar billede 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.

Loading billede Opret Preview
Kategori
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
Æ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
Batch fil Af BDV i VBscript 1 12/01/202210:00 12/01/202210:05
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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester



Alle kategorier på Eksperten
IT-JOB
Seneste spørgsmål Seneste aktivitet
I går 15:02 Computer død efter opdatering Af Marie i PC
I går 02:51 Asus TUF VG34VQL3A viser sort i begge sider ved afspilning af Prime, HBO? Af klavil i Skærme
04/0321:59 Formler med Sum.hvis kommer med forkerte resultater Af Peder Lund Nielsen i Excel
04/0318:17 iPad: Sort slukke firkant Af goglov i iOS, iPhone & iPad
04/0317:31 Hvilke sange sang The Beatles til koncerten i K.B Hallen 1964 ? Af Ikke-ekspert i Diverse
White papers
Flere white papers »


Premium
Teaser billede
USA siger nej - men ifølge CFCS er Rusland stadig den allerstørste statslige trussel mod Danmark
Læs mere »
Efter hackerangreb: CISO Roel Schouten besluttede sig for at rydde op i sikkerheds-budgettet - og fyre konsulenterne
Morten og Frederik har efter tre års krig stadig 100 it-medarbejdere i Ukraine: Holder nu nøje øje med udviklingen
Balladen mellem EU og USA kan komme til at ramme de amerikanske tech-giganter hårdt
Se alle »
Computerworld
Teaser billede
Kan man overhovedet droppe amerikansk tech som iPhone, Gmail og Facebook? Her er de europæiske alternativer
Læs mere »
Vi prøvekører den nye Tesla Model Y: Man kan sige hvad man vil om Elon Musk, men han kan saftsuseme godt bygge biler
Flere millioner Chrome-brugere ramt af ondsindede udvidelser: Du skal selv afinstallere dem manuelt for at være beskyttet
Fem amerikanske techgiganter styrer Danmark: Det kan få store konsekvenser
Se alle »
CIO
Teaser billede
Microsoft fuldender sit løfte om europæisk data-opbevaring – men der er en række undtagelser
Læs mere »
Offentlige virksomheder hjemtager ejerskab af deres it: Her er årsagerne
Carsten advarede som it-sikkerhedschef om problemer og blev fyret: "Det endte med voksen-mobning af værste skuffe"
Europæisk hovedstad dropper Copilot: Bekymret over Microsofts datasikkerhed og prisstigninger
Se alle »
Job & Karriere
Teaser billede
40 år gammelt dansk it-selskab fusionerer med hollandsk firma og skifter navn
Læs mere »
Her er deres månedsløn: Så meget tjener CIO'erne i de danske regioner - den bedst lønnede får mere end digitaliseringsministeren
Microsoft fyrer de dårligst performende ansatte: Disse jobtitler bliver ramt
Carsten advarede som it-sikkerhedschef om problemer og blev fyret: "Det endte med voksen-mobning af værste skuffe"
Se alle »
White paper
Teaser billede
TIDSBEGRÆNSET KAMPAGNE: Overvejer du at udskifte eller tilføje printere i din forretning? Vi kan tilbyde én eller flere maskiner GRATIS.
Læs mere »
Sikkerhed gjort enkelt: Beskyt din virksomhed direkte i browseren
Se alle »

Events
Flere events »
White papers
Flere white papers »
IT-Kurser
Se alle vores it-kurser »