《《艺术vb教案》ppt课件》由会员分享，可在线阅读，更多相关《《艺术vb教案》ppt课件（35页珍藏版）》请在金锄头文库上搜索。
1、Visual Basic 教案,（5-2）,【教学主要内容】,图像控件 滚动条控件,【教学要求】,掌握图像控件和滚动条控件的使用,第二节 图像操作,1.图像控件 2.滚动条 3.图形方法 4.应用举例,1. 图像控件Image,(1)图象控件的常用属性 Picture: 图象控件中的图形； 可以用LoadPicture()函数在程序中载入。,(1)图象控件的常用属性,Stretch: 控件中的图形是否变化大小以适应控件的大小。,(2)图象控件的常见事件,Click(): 单击时运行； MouseMove(): 鼠标移动时运行。 ,(3)图象控件的常用方法,move : 移动； refresh
2、: 刷新其中内容,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 spi
3、c, sx, sy, sw, sh, dx, dy, dw, dh, rop dpic:目标对象 spic :源对象 dx, dy:目标图形起始位置水平和垂直坐标 dw, dh:目标图形宽和高 sx, sy:源对象起始位置水平和垂直坐标 sw, sh:源对象要传图形宽和高 rop: vbDstInvert（逆转目标位图） vbNotSrcCopy（复制源位图逆） vbSrcCopy（复制） vbSrcInvert（异或源和目标位图）,水平翻转： Picture2.PaintPicture Picture1, 0, 0, sw, sh, dx, 0, -dx, dy,0, 0,sh,sw,dx,
4、 0,dy,-dx, 0,3. 应用举例,看图软件（利用image预览图形文件） (1)界面设计 (2)代码实现,(1)界面设计,浏览图片窗体Form1 图像窗体Form2,Image1,DirListBox1,Drive1,FileListBox1,Form1控件 caption=浏览图片 FileListBox控件属性 名称= FileListBox1 pattern=*.bmp;*.gif;*.jpg Image控件属性 名称= Image1 Stretch=True,控件属性,picture1,picture2,HSrl,VSrl,opendlg,菜单,控件属性,Form2控件 cap
5、tion=图像 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 =
6、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(Canc
7、el As Integer, UnloadMode As Integer) 返回新窗体 Form1.Show End Sub,还原,Private Sub mnuReturn_Click() picture2.Cls mnuVertical.Enabled = True mnuHorrizon.Enabled = True End Sub,Private Sub mnuVertical_Click() 垂直翻转 Dim sw, sh, sx, sy sw = picture2.ScaleWidth sh = picture2.ScaleHeight sx = 0: sy = sh pictur
8、e2.PaintPicture picture2, 0, 0, sw, sh, sx, sy, sw, -sh, vbSrcCopy mnuVertical.Enabled = False mnuHorrizon.Enabled = False End Sub,Private Sub mnuHorrizon_Click() 水平翻转 Dim sw, sh, sx, sy sw = picture2. ScaleWidth sh = picture2. ScaleHeight sx = sw: sy = 0 picture2.PaintPicture picture2, 0, 0, sw, sh
9、, sx, sy, -sw, sh, vbSrcCopy mnuHorrizon.Enabled = False mnuVertical.Enabled = False End Sub,Private Sub Form_Activate() 窗体激活时设置滚动条 If picture2.Width picture1.Width Then HSrl.Visible = False End If If picture2.Height picture1.Height Then VSrl.Visible = False End If End Sub,水平滚动,Private Sub HSrl_Chan
10、ge() Dim hscale As Single hscale = HSrl.Value / (HSrl.Max - HSrl.Min) picture2.Move -hscale * (picture2.Width - picture1.Width) End Sub,垂直滚动,Private Sub VSrl_Change() Dim hscale As Single hscale = VSrl.Value / (VSrl.Max - VSrl.Min) picture2.Move picture2.Left, -hscale * (picture2.Height - picture1.Height) End Sub,【思考题】,VB如何使用图形控件实现图形绘制？,谢谢！,
