在VB6（Visual Basic 6）环境中，开发人员经常需要处理图像显示的需求，例如在应用程序中展示图片或者进行图像操作。本教程将详细介绍如何利用VB6实现一个显示图像的ActiveX控件，支持PNG格式，并且具备鼠标滚轮缩放、镜像、旋转以及鼠标移动图像的功能。 我们需要创建一个新的ActiveX控件项目。在VB6中选择"文件" -> "新建" -> "工程"，然后在"ActiveX控件"类别中选择"ActiveX DLL"。这将创建一个新的ActiveX控件工程。 接下来，我们在控件设计界面添加一个 Picture 控件，它是VB6内置的用于显示图片的控件。右键点击工具箱，选择"部件"，在弹出的对话框中找到"Microsoft Windows Common Controls"，勾选 Picture 控件并确定，这样Picture控件就会出现在工具箱中。将Picture控件拖放到设计面板上，作为显示图像的主要组件。 为了支持PNG格式，我们需要引入GDI+库，因为VB6默认不支持PNG。可以通过引入外部库或者使用第三方库如GDIPlusLib来实现。安装GDIPlusLib后，可以在控件的代码窗口中引用它： ```vb Private Declare Sub GdiplusStartup Lib "gdiplus.dll" (ByRef token As Long, ByRef init As GdiplusStartupInput, ByVal reserved As Long) Private Declare Sub GdiplusShutdown Lib "gdiplus.dll" (ByRef token As Long) Type GdiplusStartupInput DebugLevel As Long LicenseKey() As Byte End Type ``` 接着，我们需要编写代码来加载PNG图片。在控件的初始化事件中，可以使用以下代码： ```vb Dim bitmap As GDIPlusLib.Bitmap Set bitmap = New GDIPlusLib.Bitmap bitmap.LoadFromFile Me.Picture1.Picture.filename ' 加载图片 Me.Picture1.Picture = bitmap.ToOlePicture ' 将GDI+ Bitmap转换为VB6的Picture GdiplusShutdown token ' 关闭GDI+ Set bitmap = Nothing ``` 为了实现鼠标滚轮缩放功能，我们需要处理控件的MouseWheel事件。下面的代码展示了如何根据滚轮的上下滚动来改变图片的大小： ```vb Private Sub Picture1_MouseWheel(ByVal ScrollCode As Integer, ByVal KeyState As Integer, ByVal MousePos As MSForms.Point) Dim scaleFactor As Double If ScrollCode > 0 Then ' 上滚 scaleFactor = 1.1 ' 放大比例 Else ' 下滚 scaleFactor = 1 / 1.1 ' 缩小比例 End If Me.Picture1.ScaleMode = vbScalePixels ' 设置缩放模式 Me.Picture1.ScaleWidth = Me.Picture1.ScaleWidth * scaleFactor Me.Picture1.ScaleHeight = Me.Picture1.ScaleHeight * scaleFactor End Sub ``` 对于镜像和旋转操作，我们可以创建两个自定义方法，例如 `MirrorImage` 和 `RotateImage`，通过改变控件的ScaleX和ScaleY属性实现： ```vb Sub MirrorImage() Me.Picture1.ScaleX = -Me.Picture1.ScaleX End Sub Sub RotateImage(angle As Integer) Me.Picture1.ScaleMode = vbScalePixels Me.Picture1.ScaleWidth = Me.Picture1.ScaleWidth * Cos(angle * PI / 180) Me.Picture1.ScaleHeight = Me.Picture1.ScaleHeight * Sin(angle * PI / 180) End Sub ``` 处理鼠标移动图像的功能，需要在MouseMove事件中计算鼠标相对于控件左上角的位置，然后调整控件的Left和Top属性： ```vb Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = vbLeftButton Then Me.Left = Me.Left + (X - Me.Picture1.Width / 2) ' 计算移动距离 Me.Top = Me.Top + (Y - Me.Picture1.Height / 2) End If End Sub ``` 现在，我们已经创建了一个具备各种图像操作功能的ActiveX控件。用户可以通过在其他VB6工程中引用这个控件，轻松地在他们的应用程序中实现显示和操作PNG图片的能力。记住，为了使用这个控件，需要在目标工程中注册ActiveX DLL文件，并在需要使用的地方添加控件实例。

自定义的图像控件可以缩放、拖动、保存、ROI、实时显示鼠标所在位置的像素信息等操作；自定义的图表控件可以直观展示一位数组

【QT】基于QGraphicsView的显示控件，支持加载图片，卸载图片，支持鼠标放大、缩小、拖动，一件恢复出示状态。并且支持三种类型的图片，包含QPixmap、QImage、cv::Mat。 使用时只需要初始化该类，并将其添加到布局中即可。 当前开发的平台是基于Qt6.2.3+MSVC2019的，其他版本需要做相应的修改。 在使用上有相关疑问，请给我留言，或者进入到我的主页，查询相关博客，获取使用案例。 博客地址：https://blog.csdn.net/xiaohuihuihuige/article/details/128165275 喜欢就点个关注吧，更多qt自定义控件等你解锁。

MFC基于对话框，在对话框上插入图像控件，在图像控件上，画一个绿色的矩形，按键盘上下左右键，矩形在图像控件上移动移动。分别创建一个文本文件和一个二进制文件，对话框退出时，文档内写入保存退出前的矩形的位置的数据。退出对话框后，再次打开对话框通过读取文本文件或二进制文件的数据，矩形应该显示在上次退出之前的位置。

基于halcon的图像控件，支持ROI管理，图像缩放等操作。拥有画圆 矩形 画线，以及ROI数据存储，缩放 移动图像另存为等基础操作。

为了能在VFP中使用imgedit控件，搜了很长时间，终于成功了。将文件下载解压到C:\windows\system32下，运行：Regsvr32 Imgedit.ocx /S。打开VFP，工具——选项——ActiveX控件，添加：IMGedit.ocx。

FrescoImageView是一种Android平台的图像控件，可以异步加载网络图片、项目资源和本地图片，并且支持双指缩放、图片的基本处理以及Fresco的所有特性。

嵌入式Android项目设计与开发 第四章 基本控件编程 ——图像控件ImageView ImageView ImageView是用于在界面上展示图片的一种控件。 ImageView 应用： 把准备好的图片存放在drawable或mipmap的资源目录中。 在布局中插入一个ImageView 通过布局选择图片或者Java代码加载资源文件 实验 谢谢 请专家批评指正！

三维图形绘制控件 可实现等高线,三维曲面,地形图的绘制 多种渲染方式可选

DWGdirectX is an ActiveX control driven by DWGdirect. The download package includes samples for using DWGdirectX in both Visual Basic and Delphi. Windows (32-bit)