Question

VB的两道题，求助，题目如下

1在窗体中放置一个包含某一图片的图片框和下边放置一个水平滚动条，当单击水平滚动箭头或单击水平滚动箭头与滚动块之间的区域或拖动水平滚动块时，能使图片左右往返移动。
2编程序完成：在窗体中间放置一个包含某一图片的图片框。当单击“放大”按钮时，图片每隔半秒放大100缇。

Answer 1

第一道题代码如下：
Private Sub Form_Load()
Me.ScaleMode = 6

横滚动条.Move Me.ScaleLeft, Me.ScaleHeight - 横滚动条.Height, Me.ScaleWidth, 横滚动条.Height

图片框.AutoSize = True

With 横滚动条
.Min = Me.ScaleWidth
.Max = 图片框.Width
.Visible = IIf(.Max > .Min, True, False)
End With

End Sub

Private Sub 横滚动条_Change()
图片框.Left = 横滚动条.Min - 横滚动条.Value

End Sub

第二道题要用到图像框，可以在图片框内加入图像框，图片加载到图像框，代码如下：
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Form_Load()

Me.ScaleMode = 1

图像框.Stretch = True

图像框.Move 图片框.ScaleLeft, 图片框.ScaleTop, 图片框.ScaleWidth, 图片框.ScaleHeight

Timer1.Interval = 500

End Sub

Private Sub 横滚动条_Change()
图片框.Left = 横滚动条.Min - 横滚动条.Value

End Sub

Private Sub Timer1_Timer()

图片框.Height = 图片框.Height + 100
图片框.Width = 图片框.Width + 100

图像框.Move 图片框.ScaleLeft, 图片框.ScaleTop, 图片框.ScaleWidth, 图片框.ScaleHeight

End Sub

Answer 2

应该有本专业的VB编程书籍的，编程要多靠自己动脑筋，别人做好的对你来说 没有什么大的帮助。你要的问题可不能说是难题，其实就是控件的基本操作，如果你熟悉控件的属性，这些是很简单的。