Asensin tuon ilmaisen VB.Net 2005 Expressin ja kokeilin saada ensimmäisen ohjelman toimimaan, mutta ongelmia riittää.
Ohjelmalla olisi siis tarkoitus pystyä avaamaan kuvatiedosto, kääntämään se tarvittaessa oikeaan asentoon ja tallentamaan muokattu kuva. Tähän tarkoitukseen on toki tuhat ja yksi ohjelmaa, mutta jotain piti aloittaa ;)
Ongelmia/kysymyksiä:
-tallennus ei toimi ollenkaan, vaikka ikkuna aukeaakin, mikä lienee vikana?
-jos kuva on isompi kuin ikkuna, sitä ei näy ikkunan suurennuksenkaan jälkeen yhtään enempää
-miten saisin isot kuvat skaalattua automaattisesti ruutuun sopiviksi?
Vinkeistä iso kiitos, edellinen ohjelmanpätkä kun tuli kirjoitettua Amigalla aika monta vuotta sitten..
Kaitsu
Ja tässä vielä koodia, toivottavasti ei liikaa:
Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Lataus.Click
Try
avaaKuva.ShowDialog()
kuvatiedosto = avaaKuva.FileName
Kuva.Image = Image.FromFile(kuvatiedosto) 'load image
Kuva.Height = Form.ActiveForm.Height
Kuva.Width = Form.ActiveForm.Width
Tilarivi.Panels(0).Text = kuvatiedosto
Catch ex As Exception
'MessageBox.Show("VIRHE: " & ex.Message)
End Try
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Kuva.Size = Form.ActiveForm.Size
End Sub
Private Sub MenuItem6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Käännä.Click
Kuva.Image.RotateFlip(RotateFlipType.Rotate90FlipNone)
Kuva.Refresh()
End Sub
Private Sub MenuItem8_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Peilikuva.Click
Kuva.Image.RotateFlip(RotateFlipType.RotateNoneFlipX)
Kuva.Refresh()
End Sub
Private Sub Tallennus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tallennus.Click
Try
tallennaKuva.ShowDialog()
Kuva.Image.Save(kuvatiedosto)
Catch ex As Exception
MessageBox.Show("Virhe: " & ex.Message)
End Try
End Sub
End ClassAihe on jo aika vanha, joten et voi enää vastata siihen.