图像缩放显示

[qqzm123]

就是图像太大了 要缩小显示在image控件中 急啊 求大哥们帮帮忙啊 ！！！！！！！！！1

[水猿兵团五哥]

Zoom：当改变PictureBox控件的大小时，图片的大小改跟着改变（图片是按比例进行缩放的）；

[bdmh]

如果只是想视觉上小一点的话，可以在Imge的Paint事件中，DrawImage画上去，画到某个区域

[qqzm123]

因为我图像显示出来后要做裁剪图像的 所以要按比例显示

[subMain]

在.Net中你可以使用PictureBox控件，
将这个控件SizeMode属性改为Zoom即可。

[subMain]

SizeMode属性的Zoom值可以保证图片的大小随控件的大小改变而按比例改变。

[subMain]

PictureBox控件SizeMode属性值的说明：

Normal：PictureBox控件可以改变大小，图片不能改变大小，图片的位置始终在控件的左上角；
StretchImage：当改变PictureBox控件的大小时，图片的大小改跟着改变（图片不是按比例进行缩放的）；
AutoSize：PictureBox控件和图片都不能改变大小，控件的大小和图片的大小一致；
CenterImage：PictureBox控件可以改变大小，图片不能改变大小，当改变控件大小时，图片的位置始终在控件中心；
Zoom：当改变PictureBox控件的大小时，图片的大小改跟着改变（图片是按比例进行缩放的）；

[日落飞雪]

[Quote=引用 1 楼 的回复:]

如果只是想视觉上小一点的话，可以在Imge的Paint事件中，DrawImage画上去，画到某个区域
[/Quote]+1

[subMain]

Dim pictrue As Bitmap
pictrue = New Bitmap("E:\NOKIA6300_00.jpg")
'10和30是图片的位置，50和50是图片大小
pic.CreateGraphics().DrawImage(pictrue, 10, 30, 50, 50)

[pjagz]

  Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll

        '缩放图示例参考 ,有待改进
         Dim g As Graphics
        Dim w As Integer = Me.Width * TrackBar1.Value * 0.0093
        Dim h As Integer = Me.Height * TrackBar1.Value * 0.0078
        Dim bm As New Bitmap(w, h)
        Dim grph As Graphics = Graphics.FromImage(bm)
        grph.Clear(Color.White)
        grph.TranslateTransform(0, 0)
        grph.ScaleTransform(TrackBar1.Value * 0.01, TrackBar1.Value * 0.01)
        grph.DrawImage(Image.FromFile("E:\temp\2.jpg"), 0, 0)

        g = Me.CreateGraphics
        g.DrawImage(bm, 0, 0)

        bm.Save("E:\bb.jpg", Imaging.ImageFormat.Bmp)

    End Sub