이미지 사이즈 가져오기

VNote 2018.04.25 17:39:16 *: Dim bmp As New Bitmap("c:\aa.gif")
Dim newBMPx As Integer
Dim newBMPy As Integer
If bmp.Width > 550 Then
newBMPx = 550
Else
newBMPx = bmp.Width
End If

If bmp.Height > 100 Then
newBMPy = 100
Else
newBMPy = bmp.Height
End If

PictureBox_LOGO.Size = New Size(newBMPx, newBMPy)
Try
PictureBox_LOGO.BackgroundImage = Image.FromFile("c:\aa.gif")
Catch ex As Exception

End Try

이미지 사이즈 가져오기

최대 550 * 100 넘지 않게