Split image avec TableLayoutPanel1

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 :
Pièce jointe 637101

voici le code enregistrement:

Code:

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

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