Gå til innhold

Anbefalte innlegg

Er det murlig å lage et program som kan lagre utsnitt av bildefiler på dette viset;

Når man åpner et bilde vises det i vinduet, musepekeren er et kvadrat på 32x32(icon), når man klikker på bildet så skal altsa det som var inni kvadratet eksporteres til ei jpg fil.

Lenke til kommentar
Videoannonse
Annonse

Ja, det er mulig! Hvis du skikker litt på hvordan du bruker BitBlt-koden (søk i forumet), og ser litt på koden under vil du nok klare det selv.

Private Sub form_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
MsgBox x & vbNewLine & y
End Sub

 

Edit: Her lærte jeg BitBlt.

Endret av Jonas
Lenke til kommentar

Et av de store problemene med VB er mangelen på støtte av JPG-lagring av bildedata. Muligens kunne du greid å skrevet argoritmen for å lagre JPG filer i VB, men ettersom denne er svært kompleks og innebærer mangen teknikker som er vanskelig å etterligne i VB, er du nok dessverre nødt til å bruke en ekstern DLL skrevet i C.

 

Gruppen Independent JPEG Group har jobbet mye med et slikt bibliotek slik at utviklere enkelt kan legge inn JPG-støtte i programmene sine. På

denne siden kan du laste ned et prosjekt som bruker denne DLL-filen, og som jeg vil tro du ganske enkelt kan legge over til ditt prosjekt.

 

Som Jonas allerede har påpekt er det ikke noe problem å klippe ut en del av et bilde. Til dette kan du bruke mangen teknikker, blant annet BitBlt og PaintPicture som du lett kan finne eksemper til. Hvis du ikke tror det er nødvendig å lagre til JPG filer, kan du bruke kommandoen SavePicture for å lagre bildet til BMP formatet:

 

SavePicture picImage.Picture, strFilePath

 

Her er variabelen strFilePath filnavnet og stien som filen vil legges på, mens picImage er en PictureBox hvor du ved å bruke BitBlt eller PaintPicture kan legge bildet over.

 

Lykke til!

Endret av aadnk
Lenke til kommentar

Jonas: Kan du si meg nyaktig hva den koden gjør?

Private Sub form_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
MsgBox x & vbNewLine & y
End Sub

 

By the way, jeg fikk kjøpt en visual basic eBook på 1113 sider =) Når jeg kjøpte den fikk jeg også tilgang til en haug til med eBooks om programering og en til bok om VB (how to database, over 700 sider). Så om noen skal lage database så kan di få den :>

Lenke til kommentar

Opprett en konto eller logg inn for å kommentere

Du må være et medlem for å kunne skrive en kommentar

Opprett konto

Det er enkelt å melde seg inn for å starte en ny konto!

Start en konto

Logg inn

Har du allerede en konto? Logg inn her.

Logg inn nå
  • Hvem er aktive   0 medlemmer

    • Ingen innloggede medlemmer aktive
×
×
  • Opprett ny...