Oppure

Loading
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 20:29
gantonio
Bene ... allora comincia ad esaminare queste linee

  Dim pg As Graphics = PictureBox1.CreateGraphics
  Dim img1 As Image = Image.FromFile("c:\x.jpg")
  Dim img2 As Image = Image.FromFile("c:\y.jpg")

  pg.DrawImage(img1, 0, 0)
  pg.DrawImage(img2, 200, 200)


e sperimenta ...
aaa
23/04/08 21:14
Thejsuter
fatto funziona proprio alla grande

esattamente ciò che volevo fare

Tanks :k:

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