Ciao,
il "progetto" è proprio agli inizi.
E' costituito da un form iniziale chiamato "Intro.vb" per la scelta del tipo di puzzle e dal form
"PuzzleForm_12pz.vb".
Non essendo pratico nei file zip ti allego una jpg con i due form e sotto i rispettivi codici.
Saluti
__________
Public Class Intro
Dim scelta As Integer
Private Sub RadioButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.Click, RadioButton1.Click
If sender.text = "Facile (12 pz.)" Then scelta = 0
If sender Is RadioButton2 Then scelta = 1
'If sender Is RadioButton3 Then scelta = 2
End Sub
Private Sub btnConferma_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConferma.Click
If scelta = 0 Then
PuzzleForm_12pz.Show()
End If
'If scelta = 1 Then
'PuzzleForm_48pz.Show()
'End If
End Sub
Private Sub ListBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.Click
btnConferma.Enabled = True
End Sub
---------------
Public Class PuzzleForm_12pz
Private Sub PuzzleForm_12pz_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Intro.ListBox1.SelectedIndex = 0 Then nameImage = ("C:\MulinoAVento.jpg")
If Intro.ListBox1.SelectedIndex = 1 Then nameImage = ("C:\BuggerruSardegna.jpg")
If Intro.ListBox1.SelectedIndex = 2 Then nameImage = ("C:\Santorini.jpg")
If Intro.ListBox1.SelectedIndex = 3 Then nameImage = ("C:\Spiaggia_Grado.jpg")
PictureBox0.Image = System.Drawing.Bitmap.FromFile(nameImage) ' oppure
'Dim bmp As New Bitmap(nameImage)
'PictureBox1.Image = bmp
End Sub
Private Sub btnRicrea1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRicrea1.Click
'nuova immagine delle dimensioni della tua picturebox
Dim img1 As New Bitmap(PictureBox1.Width, PictureBox1.Height)
'classe graphic dell'immagine
Dim pb1_graphic As Graphics = Graphics.FromImage(img1)
'ne prende una parte
pb1_graphic.DrawImageUnscaled(PictureBox0.Image, 0, 0, 160, 160)
'assegna alla tua immagine l'immagine ridimensionata
PictureBox1.Image = img1
End Sub
Private Sub btnRicrea2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRicrea2.Click
Dim img2 As New Bitmap(PictureBox1.Width, PictureBox1.Height)
Dim pb2_graphic As Graphics = Graphics.FromImage(img2)
'ne prende una 2^ parte
pb2_graphic.DrawImageUnscaled(PictureBox0.Image, 160, 0, 160, 160)
'assegna alla tua immagine l'immagine ridimensionata
PictureBox2.Image = img2
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' per aprire un form in cui si vede la foto per intera in altra picturebox
If Button1.Text = "Image preview" Then
Button1.Text = "Close preview"
PuzzleFotoOriginale.Show()
PuzzleFotoOriginale.picFotoOriginale.Image = System.Drawing.Bitmap.FromFile(nameImage)
Else
Button1.Text = "Image preview"
PuzzleFotoOriginale.Close()
End If
End Sub
End Class
|