Billedudsnit til ny fil

Det var: http://tonny.hald.homepage.dk/udsnit.html

:-))

Hmm..


Det er prøvet før her på Eksperten, kan bare ikke huske hvad spørgsmålet hd :-)
Jeg prøvede at hjælpe, men fik det aldrig helt til at funke :-)
MÅske skulle jeg hive det op ad mølposen igen, hvis ikke der er andre der vil hjælpe :-)

- Mikker

Det lader åbenbart til at være lidt af et problem.
Er der måske nogen der så i stedet har kendskab til nogle andre gode steder med forum eller lignende. Det må selvfølgelig gerne være fra den anden side af dammen.
-Mitzy

www.planetsourcecode.com
www.experts-exchange.com

Mikker

Jeg flækkede lige dette sammen til dig:
ingredienser:
1 form
2 pictureboxes: picture1,picture2
1 pictureclip: pictureclip1
2 textboxes: text1,text2

Private Sub Form_Load()
Set Picture2.Container = Picture1
Picture2.AutoRedraw = True
Picture1.ScaleMode = vbPixels
Picture2.ScaleMode = vbPixels

End Sub

Private Sub Picture1_Click()
PictureClip1.Picture = Picture1.Picture
PictureClip1.ClipX = Val(Text1)
PictureClip1.ClipY = Val(Text2)
PictureClip1.ClipHeight = Picture2.ScaleHeight
PictureClip1.ClipWidth = Picture2.ScaleWidth
Picture2.Picture = PictureClip1.Clip
Picture2.Move Val(Text1), Val(Text2)
Picture2.Refresh
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1 = X
Text2 = Y
End Sub

MEN husk : KUN Bitmaps :-)

- Mikker

Nå ja hvad med at sætte

picture1.autosize = true

:-)

Hej Mikker.
Du har gjort alle mine dystre tanker til skamme. Ovenstående løsning fungerer perfekt.
Tak for indsatsen.
Mitzy

Jeg er blot glad for at kunne hjælpe :-)
Ved ikke hvorfor jeg ikke tænkte på det straks.


- Mikker