1/3

1/3

Public Class frmPrzegladarkaGrafiki

Private Sub mnuKoniec_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuKoniec.Click

End End Sub

Private Sub mnuRozciagnij_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuRozciagnij.Click

picObraz.SizeMode = PictureBoxSizeMode.StretchImage End Sub

Private Sub mnuZoom_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuZoom.Click

picObraz.SizeMode = PictureBoxSizeMode.Zoom End Sub

Private Sub mnuNormalny_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuNormalny.Click

picObraz.SizeMode = PictureBoxSizeMode.Normal End Sub

Private Sub mnuWysrodkowanie_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuWysrodkowanie.Click

picObraz.SizeMode = PictureBoxSizeMode.CenterImage End Sub

Private Sub ukryj()

If lblSiezka.Visible Then lblSiezka.Visible = False txtSiezka.Visible = False btnSzukaj.Visible = False End If

End Sub

Private Sub mnuDB5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuDB5.Click

Call ukryj()

picObraz.Image = My.Resources.Aston_Martin_DB5_coupe End Sub

2/3

Private Sub mnuDB7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuDB7.Click

Call ukryj()

picObraz.Image = My.Resources.Aston_Martin_DB7_Vantage End Sub

Private Sub mnuDB9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuDB9.Click

Call ukryj()

picObraz.Image = My.Resources.Aston_Martin_DB9 End Sub

Private Sub mnuSpeedModel2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuSpeedModel2.Click

Call ukryj()

picObraz.Image = My.Resources.Aston_Martin_speed_model_2 End Sub

Private Sub mnu328_1938_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnu328_1938.Click

Call ukryj()

picObraz.Image = My.Resources.BMW_328_1938 End Sub

Private Sub mnu645i_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnu645i.Click

Call ukryj()

picObraz.Image = My.Resources.BMW_645i End Sub

Private Sub mnu745iL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnu745iL.Click

Call ukryj()

picObraz.Image = My.Resources.BMW_745iL_E66 End Sub

Private Sub mnuSeries5silver_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuSeries5silver.Click

Call ukryj()

picObraz.Image = My.Resources.BMW_Series5_silver_vl End Sub

Private Sub mnu57SCAtlantic342RL1938_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnu57SCAtlantic342RL1938.Click

Call ukryj()

picObraz.Image = My.Resources.Bugatti_57SC_Atlantic_34_2RL_1938_

End Sub

Private Sub mnu1933Type59_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnu1933Type59.Click

Call ukryj()

picObraz.Image = My.Resources.Bugatti_1933_Type_59_Grand_Prix_rear_34 End Sub

Private Sub mnuVeyron_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuVeyron.Click

Call ukryj()

picObraz.Image = My.Resources.Bugatti_Veyron End Sub

Private Sub mnuSciezka_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuSciezka.Click

If lblSiezka.Visible = False Then txtSiezka.Text = ""

lblSiezka.Visible = True txtSiezka.Visible = True

3/3

btnSzukaj.Visible = True txtSiezka.Select()

End If End Sub

Private Sub wyswietlObraz(ByVal strSciezka As String) Dim strKom As String

Try

picObraz.Image = System.Drawing.Image.FromFile(strSciezka) Catch ex As Exception

If Err.Number = 53 Then

strKom = "Nie znaleziono pliku o nazwie:" & vbCrLf & strSciezka Else

strKom = "Wystąpił błąd o kodzie: " & Err.Number.ToString & _ vbCrLf & vbCrLf & Err.Description

End If

MsgBox(strKom, MsgBoxStyle.Critical, "Błąd wyśietlania obrazu z pliku") End Try

End Sub

Private Sub mnuPokaz_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuPokaz.Click

If lblSiezka.Visible Then

Call wyswietlObraz(txtSiezka.Text) End If

End Sub

Private Sub btnSzukaj_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSzukaj.Click

opfPlik.ShowDialog() End Sub

Private Sub opfPlik_FileOk(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles opfPlik.FileOk txtSiezka.Text = opfPlik.FileName

Call wyswietlObraz(opfPlik.FileName) End Sub

Private Sub frmPrzegladarkaGrafiki_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize

If Me.Width < 667 Then Me.Width = 667 Me.Height = 594 End If

picObraz.Width = Me.Width - 27 picObraz.Height = Me.Height - 114 End Sub

End Class