图像控件3Private ImagePath As String.docx
- 文档编号:18022723
- 上传时间:2023-08-05
- 格式:DOCX
- 页数:12
- 大小:16.36KB
图像控件3Private ImagePath As String.docx
《图像控件3Private ImagePath As String.docx》由会员分享,可在线阅读,更多相关《图像控件3Private ImagePath As String.docx(12页珍藏版)》请在冰点文库上搜索。
图像控件3PrivateImagePathAsString
PrivateImagePathAsString
PrivateSubBinSlice_Click()'图像二值化--4.Slice
EndSub
PrivateSubBrightness_Click()
FrmAdjust.Usage="HSB"'亮度调整
FrmAdjust.Show1
EndSub
PrivateSubColorize_Click()
FrmAdjust.Usage="RGB"'颜色变换
FrmAdjust.Show1
EndSub
PrivateSubCopy_Click()
'复制
EndSub
PrivateSubCurve_Click()
FrmCurve.Show1'曲线
EndSub
PrivateSubFcm_Click()
'Fcm分割Ctrl+F
EndSub
PrivateSubFilter_Click()
'模糊--自定义滤波
EndSub
PrivateSubHcm_Click()
'其它--Hcm分割Ctrl+H
EndSub
PrivateSubHistgram_Click()
'其它--直方图
EndSub
PrivateSubHue_Click()
FrmAdjust.Usage="HSB"'色相调整
FrmAdjust.Show1
EndSub
'*****************文件菜单********************
PrivateSubNewImage_Click()
SetPic.Picture=Nothing'新建文件
EndSub
PrivateSubOpen_Click()
OnErrorResumeNext'打开文件
CmdDlg.Filter="(*.jpg)|*.jpg|(*.bmp)|*.bmp|(*.gif)|*.gif|(*.png)|*.png"
CmdDlg.InitDir="F:
\"
CmdDlg.ShowOpen
IfCmdDlg.FileName<>""Then
ImagePath=CmdDlg.FileName
SetPic.Picture=LoadPicture(CmdDlg.FileName)
EndIf
EndSub
PrivateSubPageSetting_Click()
'页面设置
EndSub
PrivateSubPaste_Click()
'粘贴
EndSub
PrivateSubPrint_Click()
'打印文件
EndSub
PrivateSubredo_Click()
'重做
EndSub
PrivateSubResizeImage_Click()
fResize.Show1'图像大小
EndSub
PrivateSubRotate_Click()
'图像旋转
EndSub
PrivateSubSaturation_Click()
FrmAdjust.Usage="HSB"'饱和度调整
FrmAdjust.Show1
EndSub
PrivateSubSave_Click()
IfImagePath=""Then'保存文件
CallSaveAs_Click
Else
DimFormatAsString
Format=Right(ImagePath,4)
Pic.SaveImageImagePath,"format"
EndIf
EndSub
PrivateSubSaveAs_Click()
DimFormatAsString'另存文件为
CmdDlg.Filter="(*.jpg)|*.jpg|(*.bmp)|*.bmp|(*.gif)|*.gif|(*.tiff)|*tiff|(*.png)|*.png"
CmdDlg.ShowSave
IfCmdDlg.FileName<>""Then
IfCmdDlg.FilterIndex=1Then
Pic.SaveImageCmdDlg.FileName,".bmp"
ElseIfCmdDlg.FilterIndex=2Then
Pic.SaveImageCmdDlg.FileName,".jpg"
ElseIfCmdDlg.FilterIndex=3Then
Pic.SaveImageCmdDlg.FileName,".png"
ElseIfCmdDlg.FilterIndex=4Then
Pic.SaveImageCmdDlg.FileName,".tiff"
ElseIfCmdDlg.FilterIndex=5Then
Pic.SaveImageCmdDlg.FileName,".gif"
EndIf
EndIf
EndSub
PrivateSubQuit_Click()
UnloadMe'退出程序
SetFrmMain=Nothing
EndSub
'*********************编辑菜单*********************
PrivateSubFitmode_Click()
Pic.Fitmode=NotPic.Fitmode'自适应画布
Fitmode.Checked=NotFitmode.Checked
EndSub
'*******************增强菜单************************
PrivateSubHistgramEqualize_Click()
Pic.HistgramEqualize'直方图校正
EndSub
PrivateSubAverageFilter_Click()
Pic.AverageFilter'模糊--均值模糊
EndSub
PrivateSubMedianFilter_Click()
Pic.MedianFilter'模糊--中值模糊
EndSub
PrivateSubMaxFilter_Click()
Pic.MaxFilter'模糊--最大值滤波
EndSub
PrivateSubMinFilter_Click()
Pic.MinFilter'模糊--最小值滤波
EndSub
PrivateSubSelectAll_Click()
Pic.SetDealRegion1,1,Pic.ScaleWidth,Pic.ScaleHeight'全选
EndSub
PrivateSubSharpen_Click()
Pic.Sharpen
EndSub
PrivateSubExpCalc_Click()
Pic.ExpCalc'指数计算
EndSub
PrivateSubLogAdjust_Click()
Pic.LogCalc'对数计算
EndSub
PrivateSubGammaCorrection_Click()
Pic.GammaCorrection'珈码计算
EndSub
PrivateSubAddNoise_Click()
Pic.AddNoise'增加噪音
EndSub
PrivateSubSoften_Click()
Pic.Soften'柔化
EndSub
'***************颜色处理菜单*******************
PrivateSubInvert_Click()
Pic.Invert'颜色---反色
EndSub
PrivateSubAverageGray_Click()'灰度-均值算法
Pic.GrayScaleAverage
EndSub
PrivateSubBrightnessGray_Click()'灰度-亮度算法
Pic.GrayScaleDiffCoff
EndSub
PrivateSubRedSaturationCoding_Click()
Pic.GrayToRealColorRed'颜色--伪彩色--红色饱和度编码
EndSub
PrivateSubBlueSaturationCoding_Click()
Pic.GrayToRealColorBlue'颜色--伪彩色--蓝色饱和度编码
EndSub
PrivateSubGreenSaturationCoding_Click()
Pic.GrayToRealColorGreen'颜色--伪彩色绿色饱和度编码
EndSub
PrivateSubTransparentBlt_Click()
'特效--透明叠加Ctrl+T
EndSub
PrivateSubundo_Click()
'取消
EndSub
PrivateSubYellowSaturationCoding_Click()
Pic.GrayToRealColorYellow'颜色--伪彩色--黄色饱和度编码
EndSub
PrivateSubCyanSaturationCoding_Click()
Pic.GrayToRealColorCyan'颜色--伪彩色--青色饱和度编码
EndSub
PrivateSubPurpleSaturationCoding_Click()
Pic.GrayToRealColorPurple'颜色--伪彩色--紫色饱和度编码
EndSub
PrivateSubRainbowSaturationCoding_Click()
Pic.GrayToRealColorRainBow'颜色--伪彩色--彩虹编码
EndSub
'********************特效菜单************************
PrivateSubEmbossment_Click()
Pic.Emboss'特效--浮雕Ctrl+E
EndSub
PrivateSubRelief_Click()
Pic.Relief'特效--雕刻
EndSub
PrivateSubExposal_Click()
Pic.Exposal'特效--曝光
EndSub
PrivateSubDilate_Click()
Pic.Dilate'特效--膨胀Ctrl+D
EndSub
PrivateSubErode_Click()
Pic.Erode'特效--腐蚀
EndSub
PrivateSubDiffuse_Click()
Pic.Diffuse'特效--溶解效果
EndSub
PrivateSubScanLine_Click()
Pic.Scanlines'特效--扫描线
EndSub
PrivateSubMosaic_Click()
Pic.Mosaic'特效--马赛克
EndSub
PrivateSubFlipHori_Click()
Pic.Flip[FlipHorizontal]'特效-镜像--水平翻转
EndSub
PrivateSubFlipVert_Click()
Pic.Flip[FlipVertical]'特效-镜像--垂直翻转
EndSub
PrivateSubMirrorXLeft_Click()
Pic.Flip[MirrorXleftaxes]'特效-镜像--X轴左镜像
EndSub
PrivateSubMirrorXRight_Click()
Pic.Flip[MirrorXRightaxes]'特效-镜像--X轴右镜像
EndSub
PrivateSubMirrorYBottom_Click()
Pic.Flip[MirrorYBottomaxes]'特效-镜像--Y轴下镜像
EndSub
PrivateSubMirrorYTop_Click()
Pic.Flip[MirrorYTopaxes]'特效-镜像--Y轴上镜像
EndSub
'*********************边界检测***********************
PrivateSubEdgeRoberts_Click()
Pic.EdgeDetection[Roberts]'边缘检测--Roberts算子
EndSub
PrivateSubEdgeLaplace_Click()
Pic.EdgeDetectionLaplace'边缘检测--Laplace
EndSub
PrivateSubEdgeSobel_Click()
Pic.EdgeDetectionSobel'边缘检测--Sobel
EndSub
PrivateSubEdgePrewitt_Click()
Pic.EdgeDetectionPrewitt'边缘检测--Prewitt
EndSub
PrivateSubContour_Click()
Pic.Contour'边缘检测--轮廓
EndSub
'*******************二值图像处理************************
PrivateSubBinBestThreshold_Click()
Pic.BinarizationBestThreshold'图像二值化--5.最大阀值
EndSub
PrivateSubBinMaxEntropy_Click()
Pic.BinarizationMaxEntropy'图像二值化--6.最大熵值
EndSub
PrivateSubBinOstu_Click()
Pic.BinarizationOtsu'图像二值化--2.Otsu
EndSub
PrivateSubBinP_Tile_Click()
Pic.BinarizationP_Tile'图像二值化--1.P_Tile
EndSub
PrivateSubBinsWatanabe_Click()
Pic.Binarization[S.Watanabe]'图像二值化--3.S.Watanabe
EndSub
PrivateSubBinSpecifiedThreshold_Click()
Pic.BinarizationSpecifiedThreshold'图像二值化--7.指定阀值
EndSub
PrivateSubThin_Click()
Pic.Thin'二值图像处理--细化
EndSub
PrivateSubClearIsolatePoint_Click()
Pic.ClearIsolatePoint'二值图像处理--消除孤点
EndSub
PrivateSubBorderline4_Click()
Pic.GetBorderLine[FourRegion]'二值图像处理--边界线--四邻域
EndSub
PrivateSubBorderline8_Click()
Pic.GetBorderLine[EightRegion]'二值图像处理--边界线--八邻域
EndSub
PrivateSubBorderlineAllRegion_Click()
Pic.GetBorderLineAllPicture'二值图像处理--边界线--全图抽出
EndSub
PrivateSubPerimeter_Click()
MsgBoxPic.Perimeter'二值图像处理--周长计算
EndSub
'********************其他处理************************
PrivateSubSnapScreen_Click()
Pic.SnapScreen'拷屏
EndSub
PrivateSubZoomIn_Click()
'放大
EndSub
PrivateSubZoomOut_Click()
'缩小
EndSub
PrivateSub原始大小_Click()
'1:
1原始大小
EndSub
图像控件的使用
PrivateSubCommand1_Click()
SetExtendPictureBox1.Picture=LoadPicture("D:
\QQ.jpg")'基本图片装入方式
EndSub
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 图像控件3Private ImagePath As String 图像 控件 Private