[HELP]PictureBox`y i zapis do png 5022 6

O temacie

Autor RafalBudzis

Zaczęty 24.04.2011 roku

Wyświetleń 5022

Odpowiedzi 6

RafalBudzis

RafalBudzis

Użytkownicy
posty1967
Propsy808
ProfesjaSkrypter
  • Użytkownicy
próbowałem już na różne dziwne sposoby

       picImage = New Bitmap(420, 420)
        Dim NewSize As New Size(42, 42)

            PictureBox3.CreateGraphics.FillEllipse(Brushes.Blue, e.X, e.Y, NumericUpDown1.Value, NumericUpDown1.Value)
            Dim rennsize_2 = New Bitmap(PictureBox3.Image, NewSize)
           rennsize_2.Image.Save(SaveFileDialog1.FileName, Imaging.ImageFormat.Png)

skleiłem takie coś przy ewencie MouseMove i gdy tylko najadę na PictureBox3 wywala mi te linijke
           Dim rennsize_2 = New Bitmap(PictureBox3.Image, NewSize)i pisze ze wartość image nie może być zerowa jakim cudem PictureBox3.Image jest wartością zerową jeżeli wcześniejsza funkcja
           PictureBox3.CreateGraphics.FillEllipse(Brushes.Blue, e.X, e.Y, NumericUpDown1.Value, NumericUpDown1.Value)musiała narysować na nim kropkę ?
nie ogarniam tego xD

hugo111

hugo111

Użytkownicy
Łukasz Pietuchowski
posty88
Propsy47
ProfesjaProgramista
  • Użytkownicy
  • Łukasz Pietuchowski
Nie działa ponieważ pole image jest puste.
Gdy miałem:
Dim open2 As New SaveFileDialog
        Dim img As Bitmap = PictureBox3.Image
        Dim format As Imaging.ImageFormat
        format = Imaging.ImageFormat.Bmp
        open2.Filter = "Bitmap (*.bmp)|*.bmp|JPEG (*.jpg)|*.jpg|GIF (*.gif)|*.gif"
        open2.ShowDialog()
        img.Save(open2.FileName, format)
To mi nie działało. Ale gdy zrobiłem:
PictureBox3.Image = Image.FromFile("Adres Obrazka")
        Dim open2 As New SaveFileDialog
        Dim img As Bitmap = PictureBox3.Image
        Dim format As Imaging.ImageFormat
        format = Imaging.ImageFormat.Bmp
        open2.Filter = "Bitmap (*.bmp)|*.bmp|JPEG (*.jpg)|*.jpg|GIF (*.gif)|*.gif"
        open2.ShowDialog()
        img.Save(open2.FileName, format)
To mi działało.
Nie wiem jak z narysowanej kreski zrobić obrazek.
 

RafalBudzis

RafalBudzis

Użytkownicy
posty1967
Propsy808
ProfesjaSkrypter
  • Użytkownicy
to dzięki czyli zapisać bym już umiał z pliku do pliku xD

a wie ktoś jak z
PictureBox3
zapisać obrazek ???
zrobiłem nowy kod na przycisk żebym nie musiał rysować i znalazłem coś na necie i tak oto powstało to :D

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim rennsizeee As New Bitmap(Me.PictureBox3.Width, Me.PictureBox3.Height)
        PictureBox3.CreateGraphics.FillEllipse(Brushes.Blue, 30, 30, 20, 10)
        Me.PictureBox3.DrawToBitmap(rennsizeee, New Rectangle(0, 0, Me.PictureBox3.Width, Me.PictureBox3.Height))
        rennsizeee.Save("C:\Documents and Settings\Właściciel\Pulpit\Nowy folder\krowa.PNG", Imaging.ImageFormat.Png)

    End Sub

kod zapisuje już plik png ale ... zapisuje go jako czysty plik jest tam tylko tło PictureBox3 nie ma tam śladu po tym ze było coś rysowane :/

muttley

muttley

Użytkownicy
posty567
Propsy381
  • Użytkownicy
Szarp
PictureBox pb;
pb.Image.Save("File.jpg");

Spróbuj tak
 

hugo111

hugo111

Użytkownicy
Łukasz Pietuchowski
posty88
Propsy47
ProfesjaProgramista
  • Użytkownicy
  • Łukasz Pietuchowski
Szarp
PictureBox pb;
pb.Image.Save("File.jpg");

Spróbuj tak
W VB.NET Będzie (przynajmniej powinno być):
Dim pb As PictureBox
pb.Image.Save("File.jpg")
 

hugo111

hugo111

Użytkownicy
Łukasz Pietuchowski
posty88
Propsy47
ProfesjaProgramista
  • Użytkownicy
  • Łukasz Pietuchowski
 

RafalBudzis

RafalBudzis

Użytkownicy
posty1967
Propsy808
ProfesjaSkrypter
  • Użytkownicy
ok do zamkniecia

jak by coś to tu macie jak zrobić
https://www.youtube.com/watch?v=5hmyth8-tKk


0 użytkowników i 1 Gość przegląda ten wątek.
0 użytkowników
Do góry