关键词：
1.可以利用picture.mousemove()事件实现放大效果.即当鼠标经过时,图像的长宽分别加上一个固定值.实现"放大"效果.不过要注意就是,要先设置一个判断标志----放大了一次后就不要再放大了.不然,当鼠标一直在上面时,不断触发这个事件,会不断变大,与设想效果不同.但,picutre控件本身没有鼠标离开事件,无法实现缩小.
2.幸好,窗体 form本身也有mousemove事件.并且,当鼠标经过窗体中控件表面时,
不会触发窗体本身的mousemove事件.那么.利用这点.以下程序演示实现LZ要求.
VB6中新建工程,一个窗体,窗体上放置一个picture控件.图像什么随便设置.大小也是自己设置
全部代码如下:
Dim ch As Boolean '图像改变大小标志
Private Sub Form_Load()
ch = False '程序运行时,鼠标肯定还没有经过图像,所以,假
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If ch Then '已经放大了,则缩小,当鼠标离开图像时.
Picture1.Width = Picture1.Width - 200 '这个值200和以下的300自己改吧
Picture1.Height = Picture1.Height - 300
ch = False
End If
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Not ch Then '鼠标经过,且,还没有放大过.放大一次.
Picture1.Width = Picture1.Width + 200 '这个值200和以下的300自己改吧
Picture1.Height = Picture1.Height + 300
ch = True
End If
End Sub 参考技术A 楼上的不好。改成下面的代码就好了。
Dim
ch
As
Boolean
'图像改变大小标志
Private
Sub
Form_Load()
ch
=
False
'程序运行时,鼠标肯定还没有经过图像,所以,假
End
Sub
Private
Sub
Form_MouseMove(Button
As
Integer,
Shift
As
Integer,
X
As
Single,
Y
As
Single)
If
ch
Then
'已经放大了,则缩小,当鼠标离开图像时.
Picture1.Width
=
Picture1.Width
-
Picture1.Width
/
6
'这个值200和以下的300自己改吧
Picture1.Height
=
Picture1.Height
-
Picture1.Height
/
6
Picture1.PaintPicture
Picture1.Picture,
0,
0,
Picture1.ScaleWidth,
Picture1.ScaleHeight
ch
=
False
End
If
End
Sub
Private
Sub
Picture1_MouseMove(Button
As
Integer,
Shift
As
Integer,
X
As
Single,
Y
As
Single)
If
Not
ch
Then
'鼠标经过,且,还没有放大过.放大一次.
Picture1.Width
=
Picture1.Width
+
Picture1.Width
/
5
'这个值200和以下的300自己改吧
Picture1.Height
=
Picture1.Height
+
Picture1.Height
/
5
Picture1.PaintPicture
Picture1.Picture,
0,
0,
Picture1.ScaleWidth,
Picture1.ScaleHeight
ch
=
True
End
If
End
Sub
Private
Sub
Picture1_Paint()
Picture1.AutoRedraw
=
True
Picture1.PaintPicture
Picture1.Picture,
0,
0,
Picture1.ScaleWidth,
Picture1.ScaleHeight
End
Sub
如何在 GKE 自动驾驶仪中基于自定义指标实现水平自动缩放
】如何在GKE自动驾驶仪中基于自定义指标实现水平自动缩放【英文标题】：HowtoimplementhorizontalautoscalinginGKEautopilotbasedonacustommetric【发布时间】：2021-10-3102:09:51【问题描述】：我在GKE自动驾驶仪上运行Kubernetes集群我的Pod执行以下... 查看详情
在滚动视图中使用自动布局缩放图像如何居中？
】在滚动视图中使用自动布局缩放图像如何居中？【英文标题】：ZoomimageusingautolayoutinscrollviewHowtocenter?【发布时间】：2015-09-3016:11:58【问题描述】：我几乎完全从情节提要使用自动布局完成了缩放，唯一的问题是我的图像在缩放... 查看详情
如何在每个带有 codedeploy 的代码中更改 AMI 以实现自动缩放？
】如何在每个带有codedeploy的代码中更改AMI以实现自动缩放？【英文标题】：HowtochangeAMIforautoscaleoneverycodeshipwithcodedeploy?【发布时间】：2017-06-2115:04:03【问题描述】：我刚刚设置了自动缩放、弹性负载均衡器和codedeploy。当我通过co... 查看详情
如何禁用windows系统对exe程序的自动缩放？(代码片段)
...缩放的），需要将系统的自动缩放给禁用掉。那如何禁用系统的自动缩放呢？ 原先我们知道一个系统API函数SetProcessDPIAware，调用该函数，就是告诉系统不要对当前程序进行缩放，程序自己感知缩放。... 查看详情
架构建议 - 如何实现自动缩放的异步任务
】架构建议-如何实现自动缩放的异步任务【英文标题】：Architecturesuggestions-Howtoimplementautoscaledasynctasks【发布时间】：2020-12-2706:01:10【问题描述】：我们有一个大型应用程序，它使用django作为ORM，使用celery作为任务运行基础架构... 查看详情
如何缩放并排放置的两个图像？
】如何缩放并排放置的两个图像？【英文标题】：HowtozoomtwoImagesplacedsidebyside,together?【发布时间】：2012-04-1005:45:27【问题描述】：我有两个并排放置的滚动视图，它们可以单独缩放。我通过将视图放在滚动视图中并设置滚动视图... 查看详情
如何在 vb.net 中使用滚轮放大图片框
】如何在vb.net中使用滚轮放大图片框【英文标题】：HowtozoominaPictureboxwithscrollwheelinvb.net【发布时间】：2012-11-0921:46:48【问题描述】：我正在使用一组图形叠加层来使用图形对象在图片框控件内绘制图像。我已将Picturebox放置在Panel... 查看详情
html网页背景图片根据屏幕大小css自动缩放
...根据访客的屏幕大小自动缩放的，但是好像是用JQuery代码实现的。先不说要调用jq库拖慢了网页的打开时间，而且对于兼用性不好。前几天用CSS研究出相同效果的样式代码。无论图片多大都能根据屏幕变化（当然图片尺寸越大越... 查看详情
picturebox中的图片实现鼠标滑轮控制缩放和平移(代码片段)
昨天刚学会了如何实现PictureBox控件中的图像自动缩放和平移，下面我把过程给大家说一下：参考了：https://www.cnblogs.com/jinqier/p/3497201.html1、首先要拖一个控件，Panel控件作为容器2、然后父容器里面拖一个PictureBox控件，设置属性... 查看详情
在wpf里面实现以鼠标位置为中心缩放移动图片
...等技术实现鼠标控制图片缩放和移动的效果里面，介绍了如何在WPF里面移动和放大缩小图片，程序也支持使用滚轮的方式缩放图片。然而前面文章里介绍的缩放功能只能以图片中心为原点来实现，但是这种功能往往并不是客户想... 查看详情
s实现控制图片显示大小的方法图片等比例缩放功能
S实现控制图片显示大小的方法【图片等比例缩放功能】【需求】：读取磁盘中的图片，展示在弹出框中，等比例缩放图片，使图片显示完全。（读取磁盘中的图片展示在前台，请参照我的另一篇文章：）【开发】：调用说明：... 查看详情
如何在自动缩放的弹性 beantalk 实例中更新文件
】如何在自动缩放的弹性beantalk实例中更新文件【英文标题】：Howtoupdatefilesinautoscaledelasticbeanstalkinstances【发布时间】：2016-07-1919:27:20【问题描述】：我在AWS中使用默认示例php应用程序启动了一个Elasticbeanstalk实例。我在/var/www/html... 查看详情
用js实现页面图片，以鼠标位置为中心，滚轮缩放图片
用js实现页面图片，以鼠标位置为中心，滚轮缩放图片。谢谢。参考技术A图片以img节点形式放在一个置顶的DIV中，img高度设置为auto，在滚轮事件onmousewheel中改变img节点的宽高即可。 查看详情
androidcheckbox背景图片缩放问题
...搜索到的自动缩放图片的相关内容几乎都是imgview请问要如何实现checkbox的图片资源的自动缩放（图片有多张通过selector设置不同状态的图片）itmapicon=null;//原始图片intwidth=icon.getWidth(),height=icon.getHeight();floatscaleRate=0.8f;//缩小的比例... 查看详情
使用集群自动缩放器时如何在不停机的情况下实现节点的优雅终止？
】使用集群自动缩放器时如何在不停机的情况下实现节点的优雅终止？【英文标题】：Howtoimplementgracefulterminationofnodeswithoutservicedowntimewhenusingclusterauto-scaler?【发布时间】：2019-10-0610:55:27【问题描述】：我已经使用EKS设置了K8S集群... 查看详情
appcompattextview自动缩放字体在recyclerview中卡顿，自定义高效自动缩放textview
...性能问题出现卡顿现象。分析AppCompatTextView源码可以看出实现逻辑是通过二分查找找到合适的字体大小，其中多次创建StaticLayout.Builder进行测量。所以在列表中会出现卡顿显现。非常简单的实现，就是(控件宽度➗预设字体测... 查看详情
如何让多个图像自动调整大小并在 div 中保持居中
】如何让多个图像自动调整大小并在div中保持居中【英文标题】：Howtogetmultipleimagestoautoresizeandstaycenteredwithinadiv【发布时间】：2013-11-2216:20:00【问题描述】：我试图让多个大学徽标图像连续缩小，因为浏览器宽度变小而不溢出其... 查看详情
关于unity中ugui图片image实现仿视频播放窗口的四角缩放功能
应用方法：将下面脚本挂载在需要实现四角缩放功能的UI图片上即可.自定义拖拽精度（与边界距离多少内触发）m_validityWidth. 1/*************************************************2*项目名称：UGUI通用3*脚本创建人：魔卡4*脚本创建时间：2017... 查看详情