《艺术VB教案》PPT课件.ppt

VisualBasic教案 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 最小变化单位默认为1LargeChange 最大变化单位默认为1 2 水平滚动条常用方法与事件 Change 当滚动条的值改变时产生 3 图形方法 move 移动 move left top width Height PaintPicture 只包含于Picturebox控件 dpic PaintPicturespic sx sy sw sh dx dy dw dh ropdpic 目标对象spic 源对象dx dy 目标图形起始位置水平和垂直坐标dw dh 目标图形宽和高sx sy 源对象起始位置水平和垂直坐标sw sh 源对象要传图形宽和高rop vbDstInvert 逆转目标位图 vbNotSrcCopy 复制源位图逆 vbSrcCopy 复制 vbSrcInvert 异或源和目标位图 水平翻转 Picture2 PaintPicturePicture1 0 0 sw sh dx 0 dx dy 0 0 sh sw dx 0 dy dx 0 3 应用举例 看图软件 利用image预览图形文件 1 界面设计 2 代码实现 1 界面设计 浏览图片窗体Form1图像窗体Form2 Image1 DirListBox1 Drive1 FileListBox1 Form1控件caption 浏览图片FileListBox控件属性名称 FileListBox1pattern bmp gif jpgImage控件属性名称 Image1Stretch True 控件属性 picture1 picture2 HSrl VSrl opendlg 菜单 控件属性 Form2控件caption 图像picture控件属性名称 picture1picture控件属性名称 picture2Autosize true HScrollBar控件名称 HSrlVScrollBar控件名称 VSrl 2 代码实现 浏览图片窗体Form1代码图像窗体Form2代码 代码 浏览图片窗体 驱动器与文件夹同步PrivateSubDrive1 Change DirListBox1 Path Drive1 DriveEndSub 文件夹与文件同步PrivateSubDirListBox1 Change FileListBox1 Path DirListBox1 PathEndSub 单击文件显示图像PrivateSubFileListBox1 Click Image1 Picture LoadPicture FileListBox1 Path FileListBox1 FileName EndSub 双击图像显示新窗体PrivateSubImage1 dblClick form2 picture2 Picture Image1 Pictureform2 ShowUnloadMeEndSub 代码 图像窗体 PrivateSubForm QueryUnload CancelAsInteger UnloadModeAsInteger 返回新窗体Form1 ShowEndSub 还原 PrivateSubmnuReturn Click picture2 ClsmnuVertical Enabled TruemnuHorrizon Enabled TrueEndSub PrivateSubmnuVertical Click 垂直翻转Dimsw sh sx sysw picture2 ScaleWidthsh picture2 ScaleHeightsx 0 sy shpicture2 PaintPicturepicture2 0 0 sw sh sx sy sw sh vbSrcCopymnuVertical Enabled FalsemnuHorrizon Enabled FalseEndSub PrivateSubmnuHorrizon Click 水平翻转Dimsw sh sx sysw picture2 ScaleWidthsh picture2 ScaleHeightsx sw sy 0picture2 PaintPicturepicture2 0 0 sw sh sx sy sw sh vbSrcCopymnuHorrizon Enabled FalsemnuVertical Enabled FalseEndSub PrivateSubForm Activate 窗体激活时设置滚动条Ifpicture2 Width picture1 WidthThenHSrl Visible FalseEndIfIfpicture2 Height picture1 HeightThenVSrl Visible FalseEndIfEndSub 水平滚动 PrivateSubHSrl Change DimhscaleAsSinglehscale HSrl Value HSrl Max HSrl Min picture2 Move hscale picture2 Width picture1 Width EndSub 垂直滚动 PrivateSubVSrl Change DimhscaleAsSingl