Discussion :

[Miska59]

Bonjour,

je suis entrain de créer un Split image avec TableLayoutPanel1 mais j'arrive obtenir le méme format des cases dans TableLayoutPanel1 en couleur bleu (voir image).
voir en image :


voici le code enregistrement:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim img As New Bitmap(FilePath) 
            For i As Integer = 0 To NumericUpDown1.Value - 1
                For y As Integer = 0 To NumericUpDown2.Value - 1
                    Dim r As New Rectangle(i * (img.Width / CInt(NumericUpDown1.Value)), y * (img.Height / CInt(NumericUpDown2.Value)), img.Width / CInt(NumericUpDown1.Value), img.Height / CInt(NumericUpDown2.Value))
                    cropImage(img, r).Save(Path.Combine(folder.SelectedPath, "SplitImage-" & CInt(i) & "-" & CInt(y) & ".png"), ImageFormat.Png)
                Next
            Next
 
Private Shared Function cropImage(ByVal img As Image, ByVal cropArea As Rectangle) As Image
        Dim bmpImage As New Bitmap(img)
        Dim bmpCrop As Bitmap = bmpImage.Clone(cropArea, System.Drawing.Imaging.PixelFormat.DontCare)
        Return CType(bmpCrop, Image)
    End Function

j'aimerai avoir les mèmes formats des images dans les des cases en bleu dans TableLayoutPanel1 (voir photo)? merci d'avance

[Miska59]

Bonjour,

j'ai trouver la solution à mon problème mais je voudrais savoir si vous avez plus simple pour enregistrer les cases en bleu dans TableLayoutPanel1.

mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim img As New Bitmap(FilePath)
            Dim one_img_h As Integer = img.Height / NumericUpDown1.Value
            Dim one_img_w As Integer = img.Width / NumericUpDown2.Value
            For i As Integer = 0 To NumericUpDown1.Value - 1
                For j As Integer = 0 To NumericUpDown2.Value - 1
                    imgarray(i, j) = New Bitmap(one_img_w, one_img_h)
                    Dim graphics As Graphics = graphics.FromImage(imgarray(i, j))
                    graphics.DrawImage(img, New Rectangle(0, 0, one_img_w, one_img_h), New Rectangle(j * one_img_w, i * one_img_h, one_img_w, one_img_h), GraphicsUnit.Pixel)
                    graphics.Dispose()
                Next
            Next
            For i As Integer = 0 To CInt(NumericUpDown1.Value) - 1
                For j As Integer = 0 To CInt(NumericUpDown2.Value) - 1
                    imgarray(i, j).Save(Path.Combine(folder.SelectedPath, "SplitImage-" & CInt(i) & "-" & CInt(j) & ".png"), ImageFormat.Png)
                Next
            Next