用VB怎样实现图片按比例放大缩小？

Question

用VB怎样实现图片按比例放大缩小？

Answer 1

Private Declare Function StretchBlt Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As LongPrivate Sub Command1_Click()
    Dim w As Integer, h As Integer
    Me.ScaleMode = vbPixels
    Me.AutoRedraw = False
    w = picture1.Width
    h = picture1.Height
    StretchBlt Me.hdc, 0, 0, w * 2, h * 2, picture1.hdc, 0, 0, w, h, vbSrcCopy
End Sub

Answer 2

用image控件 把stretch 属性为true 按比例放大缩小image 就行

Answer 3

图片放大与缩小
http://www.dapha.net/down/list.asp?id=1714

Answer 4

用image控件 把stretch 属性为true .但是图象的大小是由image的大小决定的,依然无法按照原来图片的比例显示

Answer 5

这样试一下,制作两个image控件,一个image1是自然的,另一个image2为我们需要的,前一个的visible属性为faulse.在formload函数里.image2.height=image1.width/image2.width*image1.height

Answer 6

http://expert.csdn.net/Expert/topic/1789/1789741.xml?temp=.765011