VB怎样用滚动条控件控制图片大小？

[lshy2009]

请问用滚动条控件如何控制图片的大小？
滚动条最大值1000，最小值1，点右端箭头图片尺寸增大，点左端箭头图片减小
或许问题很简单……但，我只是初学者，等请教一下高手们，还望热心高手回复一下啊！！！

[lshy2009]

1楼的方法是可以，只是还不能满足我的要求，我想，如果要使图片由中心位置按比例缩放，且拖滚动条与按滚动条箭头到最大值时，图片刚好满屏，有解决方法吗？

[supergreenbean]

偶就不来抢分了，其实楼主修改下1楼的代码，把下面这句中的.left和.top部分略作修改即可

With Image1
.Move .Left, .Top, m_OriginalWidth * dScale, m_OriginalHeight * dScale
End With

[Tiger_Zhao]

用 Image 控件显示图片可以直接进行缩放

Option Explicit

Private m_OriginalWidth     As Long
Private m_OriginalHeight    As Long

Private Sub Form_Load()
    With HScroll1
        .Min = 1
        .Max = 1000
        .SmallChange = 10
        .LargeChange = 100
        .Value = 100
    End With
    
    Set Image1.Picture = LoadPicture("C:\1.bmp")
    '先记录原始图片大小'
    m_OriginalWidth = Image1.Width
    m_OriginalHeight = Image1.Height
    '再设置为自动按高宽进行缩放'
    Image1.Stretch = True 
End Sub

Private Sub HScroll1_Change()
    Dim dScale      As Double

    '跳过初始化时的消息'    
    If m_OriginalWidth = 0 Then Exit Sub
    '计算缩放比率'
    dScale = HScroll1.Value / 100
    '按比率调整控件大小'
    With Image1
        .Move .Left, .Top, m_OriginalWidth * dScale, m_OriginalHeight * dScale
    End With
End Sub

[东方之珠]

用StretchBlt

[lili830209]

不懂，帮顶

[dlschan]

不懂，帮顶

[lshy2009]

6楼说的不错，我有修改过，问题确实可以解决，问题是，要保证满屏，我就没办法了……还请各位看客能指点一下……

[fzx4936]

满屏的尺寸是screen.width ,screen.height吧?
那样你还能看见Scroll吗?

[lshy2009]

算了，结贴吧，1楼接分，其他的呢，本人太穷，不好意思罗，下机会下次补上！谢谢