23/04/08 19:57
Thejsuter
Sotto consiglio di gantonio
Riformulo il topic per una precedente incompresione.
Cerco il modo di Incollare un immagine in delle specifice cordinate x e y
Incollare perche in una picturebox devo sovrapporre
+ o - 3 o 4 immagini in una precisa destinazione
aaa
23/04/08 21:14
Thejsuter
fatto funziona proprio alla grande
esattamente ciò che volevo fare
Tanks
Ah un problema nel salvataggio
Che sbaglio?
Dim savefileDialog As New SaveFileDialog
If SaveFileDialog.ShowDialog() = Windows.Forms.DialogResult.OK Then
Dim img As Bitmap
img = New Bitmap(chara.Image)
img.Save(SaveFileDialog.FileName, System.Drawing.Imaging.ImageFormat.Bmp)
End If
Oppure ho provato anche semplicemente questo
Chara.Image.Save(Save.Filename)
Mi da sempre errore ecco che errore mi dà
Riferimento a un oggetto non impostato su un'istanza di oggetto.
Ultima modifica effettuata da Thejsuter 23/04/08 23:15
aaa
24/04/08 6:54
gantonio
Cosa e'
chara
?
Stai usando il codice di cui abbiamo parlato prima?
aaa
24/04/08 8:02
Thejsuter
si Chara sarebbe Picturebox1 rimonimato
La cosa e abbastanza strana.
Fin quando applico sulla picturebox una sola
img. me la salva correttamente
ma quando ne metto + di una mi spunta l'errore...
Ultima modifica effettuata da Thejsuter 24/04/08 8:04
aaa
24/04/08 8:12
gantonio
Ma quale codice stai usando per inserire piu' immagini ? Quello che ti avevo mostrato ?
Un altro ?
Posta TUTTO il codice che usi ed evidenzia dove ti da' l'errore ...
aaa
24/04/08 11:27
Thejsuter
ok.
Imports System.Drawing
Imports System.Drawing.Graphics
Imports System.Drawing.Pens
Public Class Form1
Private Sub ColoreSfondo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ColoreSfondoToolStripMenuItem.Click
'Chara equivale a PictureBox1
Dim mcolor As New ColorDialog
If (mcolor.ShowDialog() = Windows.Forms.DialogResult.OK) Then
chara.BackColor = mcolor.Color
End If
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
'Funzione Per definire
'le varie porzioni di immagini
Dim head = testa.Text
Dim body = corpo.Text
Dim acc = accessorio.Text
Dim pg As Graphics = chara.CreateGraphics
Try
Dim img2 As Image = Image.FromFile(body)
pg.DrawImage(img2, 22, 22)
Catch ex As Exception
End Try
Try
Dim img1 As Image = Image.FromFile(head)
pg.DrawImage(img1, 30, 0)
Catch
End Try
Try
Dim img3 As Image = Image.FromFile(acc)
pg.DrawImage(img3, 30, 0)
Catch
End Try
End Sub
Private Sub Salvataggio()
Dim immagine As Bitmap = chara.Image
Errore qui ---> immagine.Save("c:\demo.bmp", Imaging.ImageFormat.Bmp)
End Sub
End Class
Uhm strano a dirlo ma si sà che ho beccato il problema
Prova a farlo anche tu Stampando un immagine da un file nella picturebox
Sai cosa succede?
Prova a ridurre a icona il Form e a ripristinarlo
Stranamente l'immagine diseganta prima nella picturebox Scompare.
Quindi scomparendo significa che nel Nella picuturebox non viene disegnato nulla,
Ma viene solo stampato a schermo
Di conseguenza la PictureBox ha un valore Null
E restituisce l'errore.
Come risolviamo?
Ultima modifica effettuata da Thejsuter 24/04/08 11:53
aaa
24/04/08 13:18
gantonio
Si risolve creando una bitmap e disegnando lì dentro ... quando ho un momento libero ti faccio vedere del codice ... abbi pazienza ...
aaa