For iW As Integer = 0 To SizeW - 1
For iH As Integer = 0 To SizeH - 1 '以高为基本
'MsgBox(SizeW - 1) '''''''''''
okColor = imgok.GetPixel(iW, iH)
newBitmp.SetPixel(iW, iH, okColor)
Next
Next
Catch ex As Exception
MsgBox(ex.ToString)
End Try
Me.PictureBox1.Image = imgok
Me.PictureBox1.Refresh()
' imgok.Save(Me.TextBox2.Text & "\PIC_" & i & ".jpg")
Try
newBitmp.Save(Me.TextBox2.Text & "\PIC_" & i & ".jpg")
Catch ex As Exception
MsgBox(ex.ToString)
End Try
Else
Dim imgok As New Bitmap(img, SizeW, (h / w) * SizeW) '以宽为基本
Dim okW, okH, a, g, b As Integer
Dim okColor As Color
okW = imgok.Width - 1
okH = imgok.Height - 1
Dim newBitmp As New Bitmap(SizeW, SizeH)
Try
