《vba image控件解析》由会员分享，可在线阅读，更多相关《vba image控件解析（2页珍藏版）》请在金锄头文库上搜索。
1、VBA Image 控件解析 Image 控件即图像加载控件，仅用于在窗体中显示图像信息，不能作为其他控件的容器。 一、Image 属性解析： AutoSize 属性：用于设置是否自动调整 Image 控件大小，属性值为布尔类型，即值只能是 True 或 False。当值为 True 时 Image 控件将根据所加载图片的尺寸自行调整控件本身尺寸，即自动设 置 Height 与 Width 属性值为加载图片的对应值； 当值为 False 时 Image 控件不会自动调整控件自 身尺寸，即 Height 与 Width 属性值固定。 BackColor 属性：背景色，用于设置 Image 控件背
2、景颜色。 BackStyle 属性：背景样式，值为 0 时背景样式为透明，值为 1 时背景样式为不透明。 BorderColor 属性：边框颜色，用于设置控件边框颜色。 BorderStyle 属性：边框样式，值为 0 时为无边框，值为 1 时为有边框。 ControlTipText 属性：用于设置当鼠标停留在 Image 控件上时显示的文本提示信息。 Enabled 属性：用于设置 Image 控件是否为可用状态，当属性值为 False 时 Image 控件为不可用 状态，所有 Image 控件对应的事件无效，但图像可以加载，所以这里只是对其事件进行了屏蔽， 比如 Image 的单击事件。
3、Height 属性：用于设置 Image 控件的高度。 Width 属性：用于设置 Image 控件的宽度。 Left 属性：用于设置 Image 控件左侧与所在窗体左侧的相对距离。 Top 属性：用于设置 Image 控件顶部与所在窗体顶部的相对距离。 MouseIcon 属性：用于设置当鼠标移动到 Image 控件时鼠标的显示的图标.。 MousePointer 属性：用于设置当鼠标移动到 Image 控件时鼠标指针属性，取值如下： 0-fmMousePointerDefault 常规（预设值） 1-fmMousePointerArrow 标准箭头 2-fmMousePointerCros
4、s 十字符号 3-fmMousePointerIbeam 形 6-fmMousePointerSizeNESW 水平顺时针 135斜双箭头形态 7-fmMousePointerSizeNS 垂直双箭头形态（90） 8-fmMousePointerSizeNWSE 水平顺时针 45斜双箭头形态 9-fmMousePointerSizeWE 水平双箭头形态（0） 10-fmMousePointerUpArrow 向上单箭头形态 11-fmMousePointerHourglass 沙漏形态（等待状态，依系统设置） 12-fmMousePointerNoDrop 阻止状态（不允许放下） 13-fmM
5、ousePointerAppStarting 箭头与沙漏形态 14-fmMousePointerHelp 箭头与问号 15-fmMousePointerSizeAll 指向四个方向箭头 99-fmMousePointerCustom 显示 MouseIcon 属性设置的图标 Picture 属性：要加载的图片路径值。 PictureAlignment 属性：用于设置图片在 Image 控件中的位置，即对齐方式，取值如下： 0-fmPictureAlignmentTopLeft 左上角对齐 1-fmPictureAlignmentTopRight 右上角对齐 2-fmPictureAlignme
6、ntCenter 中心对齐 3-fmPictureAlignmentBottomLeft 左下角对齐 4-fmPictureAlignmentBottomRight 右下角对齐 PictureSizeMode 属性：用于设置图片缩放模式，取值如下： 0-fmPictureSizeModeClip 裁剪图片中超出 Image 控件部分 1-fmPictureSizeModeStretch 调整图片大小填充模式，图片会变形 2-fmPictureSizeModeZoom 调整图片大小为适应模式，高宽比例不变 PictureTiling 属性：设置图片是否为平铺模式，值为布尔类型。 SpecialE
7、ffect 属性：用于设置 Image 控件的三维特效，取值如下： 0-fmSpecialEffectFlat 无三维效果，平面显示 1-fmSpecialEffectRaised 浮雕形式，凸起显示 2-fmSpecialEffectSunken 凹进显示 3-fmSpecialEffectEtched 线框隔开，线框凹进 4-fmSpecialEffectBump 线框凸起 Tag 属性：标记属性，可理解为备注，实际并不显示，可用作辅助性赋值或标识。 Visible 属性：用于标识 Image 控件是否可见，当值为 True 时为可见，False 时为不可见，即运行 时隐藏 Image 控
8、件。 二、Image 常用操作举例 案例一：如何通过点击图片框选择相应的图片并加载至 Image 控件？ 可通过 Image 控件的单击事件并结合 FileDialog 文件对话框选择相应图片进行加载。 程序及注解如下： Private Sub Image1_Click() 单击图片框用于选择图片 使用文件对话框选择需要加载的图片文件 With Application.FileDialog(msoFileDialogOpen) .AllowMultiSelect = False .Filters.Clear 删除文件过滤器 限制文件格式为 JPG 或 BMP 格式，主要过滤掉 PNG 格式，i
9、mage 控件不支持 PNG .Filters.Add “图片“, “*.JPG;*.JPGE;*.BMP“ .Show If .SelectedItems.Count = 0 Then TPload = “ Else TPload = .SelectedItems(1) End If End With With Me.Image1 .Visible = False 使用 LoadPicture 函数加载图片，参数为图片路径 .Picture = LoadPicture(TPload) .Visible = True End With End Sub 这里有两个地方需要注意： Image 控件不支持 PNG 格式的图片，所以在 Filters.Add 的时候直接将其进行了过滤； 通过 LoadPicture 对图片进行加载的时候有时会出现 Image 不能更新的情况，所以这里在 LoadPicture 函数上下文增加了对 Visible 属性的设置，从而变通的修补了此 BUG，使 Image 顺利更新。 更多精彩内容请关注：http:/
