Lagre vb-paintgreier ?

[Vain]

Private Sub form_Mousemove(Butten As Integer, Shift As Integer, X As Single, Y As Single)

If Butten = 1 Then '1 en venstreklikk

  Me.PSet (X, Y)
  
End If

End Sub

Private Sub form_load()

Me.AutoRedraw = True

Me.DrawWidth = 5

Me.ForeColor = &HFF&

End Sub

 

Så denne koden fra Jonas en gang. Hvis man "painter" i form1 f.eks. Finnes det en lett måte å lagre dette på?

[Jonas]

Private Sub Command1_Click()

SavePicture Me.Image, "C:\bilde.bmp"

End Sub

 

Edit: Når jeg ga deg den koden, så sa en at line var bedre å bruke, så jeg posta det også. Fikk du det med deg? Poster det her uansett:

Private Sub form_Mousemove(Butten As Integer, Shift As Integer, X As Single, Y As Single)

If Butten = 1 Then '1 en venstreklikk

 Me.Line -(X, Y)
 
End If

End Sub

Private Sub form_Mousedown(Butten As Integer, Shift As Integer, X As Single, Y As Single)

If Butten = 1 Then '1 en venstreklikk

 Me.PSet (X, Y)
 
End If

End Sub

Private Sub form_load()

Me.AutoRedraw = True

Me.DrawWidth = 5

Me.ForeColor = &HFF&

End Sub

Endret 29. august 2004 av Jonas

[aadnk]

Hvis du skulle ønske å lagre andre filer enn BMP, vil jeg anbefale deg å søke etter GDI+ vb typelib på google. Selv om dette langt ifra er lett å bruke, gir det deg lagringsmuligheter med de aller fleste kjente filformater. I tillegg er det også gratis.

Endret 29. august 2004 av aadnk

[Vain]

takk

 

Edit: Når jeg ga deg den koden, så sa en at line var bedre å bruke, så jeg posta det også. Fikk du det med deg? Poster det her uansett:

 

det fungerte bedre med line ja.

 

 

Tror ikke jeg gidder å prøve å lagre som noe annet format... bmp er bra nok, tar litt stor plass, men hvem gidder vel å lage bilder på denne måten når man allerede har paint?

 

Den lagringsfunksjoen lagrer en bmp på 1024x768 pixler... noen gode ideer for å lage den litt mindre?

Endret 29. august 2004 av 86Fredrik

[Jonas]

Tegn på en PictureBox.

[aadnk]

Lagringsfunksjonen lagrer etter PictureBoxens eller Formens størrelse, så for å lagre mindre bilder må disse forminskes. Hvis du ønsker at brukeren selv skal kunne spesifisere størrelsen bildene skal lagres med, kan du bruke PainPicture metoden og "tegne" bildet over til en mindre PictureBox. Her er et eksempel hvor Picture1 er hovedbildet mens Picture2 er det forminskete bildet:

 

Picture2.PaintPicture Picture1.Picture, 0, 0, Picture2.Width, Picture2.Height

Endret 29. august 2004 av aadnk