/
Forside
/
Teknologi
/
Udvikling
/
VB/Basic
/
Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn
*
Kodeord
*
Husk mig
Brugerservice
Kom godt i gang
Bliv medlem
Seneste indlæg
Find en bruger
Stil et spørgsmål
Skriv et tip
Fortæl en ven
Pointsystemet
Kontakt Kandu.dk
Emnevisning
Kategorier
Alfabetisk
Karriere
Interesser
Teknologi
Reklame
Top 10 brugere
VB/Basic
#
Navn
Point
1
berpox
2425
2
pete
1435
3
CADmageren
1251
4
gibson
1230
5
Phylock
887
6
gandalf
836
7
AntonV
790
8
strarup
750
9
Benjamin...
700
10
tom.kise
610
Optimering af kode
Fra :
Tommy Westerdahl Chr~
Dato :
08-07-01 19:29
Hejsa
Jeg har lavet et billedvisningsprogram til JPG billeder hvor der skal
fremkomme tumbnails
af alle billeder som findes i en valgt mappe. Jeg har også fået det til at
virke ved at oprette
P.T. 210 Image(x) objekter. Derefter indlæses via filelistbox billede efter
billed ind som
picture objekt og derefter til et tumbnail image. Dette er dog en forbandet
tung arbejdsgang
og det må kunne gøres hurtigere.
Spørgsmål:
Kan det ikke gøres hurtigere og mere simpelt??
Er det muligt via Twain drivere at indlæse billeder direkte fra digital
kamera til mit program,
hvis ja hvordan gøres dette ??
MVH
Tommy Christensen
Her er min kode nu:
For l = 0 To File2.ListCount - 1
File2.ListIndex = l
Image5(l).Visible = True
If l <= 209 Then
Label3 = Dir1.Path + "\" + File2
Set Picture1.Picture = LoadPicture(Label3)
nyhøjde = Picture1.Height / 1095
nybredde = Picture1.Width / 1095
Image5(l).Picture = Picture1
Image5(l).top = top
Image5(l).Left = venstre
venstre = venstre + 1200
If venstre = 8400 Then venstre = 0: top = top + 1200
If nyhøjde >= nybredde Then
Image5(l).Width = Picture1.Width / nyhøjde
Image5(l).Height = Picture1.Height / nyhøjde
End If
If nyhøjde < nybredde Then
Image5(l).Width = Picture1.Width / nybredde
Image5(l).Height = Picture1.Height / nybredde
End If
End If
Next l
Rayman (
10-07-2001
)
Kommentar
Fra :
Rayman
Dato :
10-07-01 19:11
If den DLL' som JPEG gruppen har udgivet er der mulighed for at indlæse
billedet i en thumbnail størrelse direkte fra stream'en, hvilket du så kan
gøre til et Image objekt.... Filen hedder ijl11.dll
"Tommy Westerdahl Christensen" <twc@os.dk> wrote in message
news:3b48a66c$0$336$edfadb0f@dspool01.news.tele.dk...
> Hejsa
>
> Jeg har lavet et billedvisningsprogram til JPG billeder hvor der skal
> fremkomme tumbnails
> af alle billeder som findes i en valgt mappe. Jeg har også fået det til at
> virke ved at oprette
> P.T. 210 Image(x) objekter. Derefter indlæses via filelistbox billede
efter
> billed ind som
> picture objekt og derefter til et tumbnail image. Dette er dog en
forbandet
> tung arbejdsgang
> og det må kunne gøres hurtigere.
>
> Spørgsmål:
>
> Kan det ikke gøres hurtigere og mere simpelt??
>
> Er det muligt via Twain drivere at indlæse billeder direkte fra digital
> kamera til mit program,
> hvis ja hvordan gøres dette ??
>
> MVH
>
> Tommy Christensen
>
> Her er min kode nu:
>
> For l = 0 To File2.ListCount - 1
> File2.ListIndex = l
> Image5(l).Visible = True
> If l <= 209 Then
> Label3 = Dir1.Path + "\" + File2
> Set Picture1.Picture = LoadPicture(Label3)
> nyhøjde = Picture1.Height / 1095
> nybredde = Picture1.Width / 1095
> Image5(l).Picture = Picture1
> Image5(l).top = top
> Image5(l).Left = venstre
> venstre = venstre + 1200
> If venstre = 8400 Then venstre = 0: top = top + 1200
>
> If nyhøjde >= nybredde Then
> Image5(l).Width = Picture1.Width / nyhøjde
> Image5(l).Height = Picture1.Height / nyhøjde
> End If
>
> If nyhøjde < nybredde Then
> Image5(l).Width = Picture1.Width / nybredde
> Image5(l).Height = Picture1.Height / nybredde
> End If
>
> End If
>
> Next l
>
>
>
Søg
Alle emner
Teknologi
Udvikling
VB/Basic
Indstillinger
Spørgsmål
Tips
Usenet
Reklame
Statistik
Spørgsmål :
177552
Tips :
31968
Nyheder :
719565
Indlæg :
6408847
Brugere :
218887
Månedens bedste
Årets bedste
Sidste års bedste
Copyright © 2000-2024 kandu.dk. Alle rettigheder forbeholdes.