[艺术]VB教案5-2.pptVIP

Visual Basic 教案 （5-2） 【教学主要内容】 图像控件 滚动条控件 【教学要求】 掌握图像控件和滚动条控件的使用 第二节 图像操作 1.图像控件 2.滚动条 3.图形方法 4.应用举例 1. 图像控件—Image (1)图象控件的常用属性 Picture: 图象控件中的图形； 可以用LoadPicture()函数在程序中载入。 (1)图象控件的常用属性 Stretch: 控件中的图形是否变化大小以适应控件的大小。 (2)图象控件的常见事件 Click(): 单击时运行； MouseMove(): 鼠标移动时运行。 …… (3)图象控件的常用方法 move : 移动； refresh : 刷新其中内容 2. 水平、垂直滚动条 (1)HScrollBar—水平滚动条属性 Min: 最小值（默认—0）； Max: 最大值（32768）； Value: 滚动条的当前值。 (1)HScrollBar—水平滚动条属性 smallChange: 最小变化单位 默认为1 LargeChange: 最大变化单位 默认为1 (2)水平滚动条常用方法与事件 Change(): 当滚动条的值改变时产生。 3.图形方法 move : 移动 .move [left, top ,width, Height] PaintPicture(只包含于Picturebox控件) dpic.PaintPicture spic, sx, sy, sw, sh, dx, dy, dw, dh, rop dpic:目标对象 spic :源对象 dx, dy:目标图形起始位置水平和垂直坐标 dw, dh:目标图形宽和高 sx, sy:源对象起始位置水平和垂直坐标 sw, sh:源对象要传图形宽和高 rop: vbDstInvert（逆转目标位图） vbNotSrcCopy（复制源位图逆） vbSrcCopy（复制） vbSrcInvert（异或源和目标位图） 3. 应用举例 看图软件（利用image预览图形文件） (1)界面设计 (2)代码实现 (1)界面设计 浏览图片窗体Form1 图像窗体Form2 控件属性 Form1控件 caption=浏览图片 FileListBox控件属性 名称= FileListBox1 pattern=*.bmp;*.gif;*.jpg Image控件属性 名称= Image1 Stretch=True 菜单 控件属性 Form2控件 caption=图像 picture控件属性 名称= picture1 picture控件属性 名称= picture2 Autosize=true HScrollBar控件 名称= HSrl VScrollBar控件 名称=VSrl （2）代码实现 浏览图片窗体Form1代码 图像窗体Form2代码 代码（浏览图片窗体） ‘驱动器与文件夹同步 Private Sub Drive1_Change() DirListBox1.Path = Drive1.Drive End Sub ‘文件夹与文件同步 Private Sub DirListBox1_Change() FileListBox1.Path = DirListBox1.Path End Sub ‘单击文件显示图像 Private Sub FileListBox1_Click() Image1.Picture = LoadPicture(FileListBox1.Path + \ + FileListBox1.FileName) End Sub ‘双击图像显示新窗体 Private Sub Image1_dblClick() form2.picture2.Picture=Image1.Picture form2.Show Unload Me End Sub 代码（图像窗体） Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) ‘返回新窗体 Form1.Show End Sub ‘还原 Private Sub mnuReturn_Click() picture2.Cls mnuVertical.Enabled = True mnuHorrizon.Enabled = True