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

[linyd]

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

[kmzs]

是从显示上看图片被缩放还是存为文件后图片被缩放？

[linyd]

从显示上

[sxs69]

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 Long

Private 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

[cdknet]

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

[lihonggen0]

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

[aiguo25]

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

[aiguo25]

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

[lihonggen0]

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

[zyl910]

坐标计算的问题而已

[hxy2003]

UP