内容正文:
美图浏览——滚动条和列表框
1.编写奥运场馆浏览程序
任务分析
通过滚动条的移动选择“奥运场馆”的图片,并在图像框中浏览图片。
素材准备
在“\VB学习系统集成\第3单元\10美图浏览”文件夹中建立“场馆图片”文件夹,并将搜集到的2008奥运场馆图片整理后存入该文件夹,如将图片文件名改为1.jpg、2.jpg等。
(1)设计用户界面
“奥运场馆浏览”程序的设计界面如图所示。其中图像框用于显示奥运场馆图片,图像框下方的标签框用于显示场馆名称,标签框下方设置的滚动条控件用于选择图片。
(2)设置对象属性
对象属性设置表
(3)编写事件过程代码
Rem显示第一张图片
Private Sub Form_Load()
Imagel.Picture=LoadPicture(App.Path&“\..\场馆图片\1.jpg) 装载第一张图片
Labell.Caption=“奥运场馆”&“1” 显示第一张图片编号
End sub
Rem用滚动条的移动浏览图片
Private Sub HScroll l_Change ()
v= App. Path&〝\..\场馆图片\〝&CStr(HScroll.Value)&〝.jpg〝 图片储存路径
Imagel Picture LoadPicture(v) 装载图片
Labell Caption=”奥运场馆“&CStr(HScroll l.Value) 显示图片编号
End Sub
字符串连接符
通过“&”或“+”可以将两个字符串连接在一起。
例如:表达式〝He〝&〝llo〝=Hello〝。
程序执行后,每单一击次滚动条, HScroll_Change()事件就被触发,每次触发都会执行该事件过程中的代码,以上代码的执行会改变图像框Imagel中的图片,并在标签框 Labell中显示相应的图片名称。
(4)保存、运行并调试程序
以“奥运场馆”为文件名保存程序到“VB学习系统集成\第3单元10美图浏览\奥运场馆”文件夹中。
2.浏览图片显示图片名称
任务分析
为了在浏览图片的过程中,在标签框Labell中显示图片名称,不妨