资源描述：
《《艺术vb教案》ppt课件》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、VisualBasic教案（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:最小变化单位默认为1LargeChange:最大变化单位默认为1(2)水平滚动条常用方法与事件Change():当滚动条的值改变时产生。3.图形方法move:移动.move[left,top,width,Height]PaintPicture(只包含于Picturebox控件)dpic.PaintPicturespic,sx,sy,sw,sh,dx,dy,dw,dh,ropd
3、pic:目标对象spic:源对象dx,dy:目标图形起始位置水平和垂直坐标dw,dh:目标图形宽和高sx,sy:源对象起始位置水平和垂直坐标sw,sh:源对象要传图形宽和高rop:vbDstInvert（逆转目标位图）vbNotSrcCopy（复制源位图逆）vbSrcCopy（复制）vbSrcInvert（异或源和目标位图）水平翻转：Picture2.PaintPicturePicture1,0,0,sw,sh,dx,0,-dx,dy0,0shswdx,0dy-dx,03.应用举例看图软件（利用image预览图形文件）(1)界面设计(2)代码实现(1)界面设计浏览图
4、片窗体Form1图像窗体Form2Image1DirListBox1Drive1FileListBox1Form1控件caption=浏览图片FileListBox控件属性名称=FileListBox1pattern=*.bmp;*.gif;*.jpgImage控件属性名称=Image1Stretch=True控件属性picture1picture2HSrlVSrlopendlg菜单标题名称主菜单图像(&I)mnuImage子菜单还原mnuReturn子菜单—mnuBar1子菜单垂直翻转mnuVertical子菜单水平翻转mnuHorrizon控件属性Form2控件
5、caption=图像picture控件属性名称=picture1picture控件属性名称=picture2Autosize=trueHScrollBar控件名称=HSrlVScrollBar控件名称=VSrl（2）代码实现浏览图片窗体Form1代码图像窗体Form2代码代码（浏览图片窗体）‘驱动器与文件夹同步PrivateSubDrive1_Change()DirListBox1.Path=Drive1.DriveEndSub‘文件夹与文件同步PrivateSubDirListBox1_Change()FileListBox1.Path=DirListBox1.P
6、athEndSub‘单击文件显示图像PrivateSubFileListBox1_Click()Image1.Picture=LoadPicture(FileListBox1.Path+""+FileListBox1.FileName)EndSub‘双击图像显示新窗体PrivateSubImage1_dblClick()form2.picture2.Picture=Image1.Pictureform2.ShowUnloadMeEndSub代码（图像窗体）PrivateSubForm_QueryUnload(CancelAsInteger,UnloadModeAs
7、Integer)‘返回新窗体Form1.ShowEndSub‘还原PrivateSubmnuReturn_Click()picture2.ClsmnuVertical.Enabled=TruemnuHorrizon.Enabled=TrueEndSubPrivateSubmnuVertical_Click()‘垂直翻转Dimsw,sh,sx,sysw=picture2.ScaleWidthsh=picture2.ScaleHeightsx=0:sy=shpicture2.PaintPicturepicture2,0,0,sw,sh,sx,sy,sw,-sh,vb
