首页 > 语言 > 关键词 > 图片最新资讯 > 正文

将一个图片按比例缩放显示在一个Frame中

2008-03-26 09:36 · 稿源:网页教学网

 

代码如下:

以下为引用的内容:

  'Form1.frm
  VERSION 5.00
  Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
  Begin VB.Form Form1
  Caption = "Form1"
  ClientHeight = 5010
  ClientLeft = 60
  ClientTop = 345
  ClientWidth = 7800
  LinkTopic = "Form1"
  ScaleHeight = 334
  ScaleMode = 3 'Pixel
  ScaleWidth = 520
  StartUpPosition = 3 '窗口缺省
  Begin MSComDlg.CommonDialog CommonDialog1
  Left = 4635
  Top = 3120
  _ExtentX = 847
  _ExtentY = 847
  _Version = 393216
  End
  Begin VB.Frame Frame1
  Caption = "Frame1"
  Height = 3000
  Left = 4500
  TabIndex = 2
  Top = 30
  Width = 3180
  Begin VB.PictureBox Picture2
  Appearance = 0 'Flat
  ForeColor = &H80000008&
  Height = 2625
  Left = 120
  ScaleHeight = 173
  ScaleMode = 3 'Pixel
  ScaleWidth = 194
  TabIndex = 3
  Top = 255
  Width = 2940
  Begin VB.Image Image1
  Height = 1575
  Left = 465
  Top = 390
  Width = 1965
  End
  End
  End
  Begin VB.CommandButton Command1
  Caption = "&Load Picture"
  Height = 330
  Left = 5400
  TabIndex = 0
  Top = 3150
  Width = 1425
  End
  Begin VB.PictureBox Picture1
  Appearance = 0 'Flat
  AutoSize = -1 'True
  BorderStyle = 0 'None
  ForeColor = &H80000008&
  Height = 4425
  Left = 60
  ScaleHeight = 4425
  ScaleWidth = 4380
  TabIndex = 1
  Top = 105
  Width = 4380
  End
  End
  Attribute VB_Name = "Form1"
  Attribute VB_GlobalNameSpace = False
  Attribute VB_Creatable = False
  Attribute VB_PredeclaredId = True
  Attribute VB_Exposed = False
  Option Explicit
  
  Dim ReturnHeight As Long, ReturnWidth As Long
  
  Private Sub Command1_Click()
  Dim BigWidth As Long, BigHeight As Long
  Dim StretchWidth As Long, StretchHeight As Long
  CommonDialog1.Filter = "jpeg文件|*.jpg|gif文件|*.gif|所有文件|*.*"
  CommonDialog1.ShowOpen
  If CommonDialog1.FileName <> "" Then
  Picture1.Picture = LoadPicture(CommonDialog1.FileName)
  
  BigWidth = Picture1.Width
  BigHeight = Picture1.Height
  StretchWidth = Picture2.ScaleWidth
  StretchHeight = Picture2.ScaleHeight
  
  StretchImage BigWidth, BigHeight, StretchWidth, StretchHeight, True
  
  Image1.Stretch = True
  Image1.Width = ReturnWidth
  Image1.Height = ReturnHeight
  
  Image1.Left = (Picture2.ScaleWidth - Image1.Width) / 2
  Image1.Top = (Picture2.ScaleHeight - Image1.Height) / 2
  Image1.Picture = LoadPicture(CommonDialog1.FileName)
  End If
  End Sub
  
  Private Sub StretchImage(OriginalWidth As Long, OriginalHeight As Long, StretchWidth As Long, StretchHeight As Long, Optional Flag As Boolean = False)
  If (OriginalWidth >= StretchWidth Or OriginalHeight > StretchHeight) Or Flag = True Then '需要缩放
  If OriginalWidth / OriginalHeight >= StretchWidth / StretchHeight Then
  ReturnWidth = StretchWidth
  ReturnHeight = StretchWidth / OriginalWidth * OriginalHeight
  Else
  ReturnHeight = StretchHeight
  ReturnWidth = StretchHeight / OriginalHeight * OriginalWidth
  End If
  Else
  ReturnHeight = OriginalHeight
  ReturnWidth = OriginalWidth
  End If
  End Sub

  • 相关推荐
  • 大家在看
  • 北京互联网法院:个别图片公司或律师专门从事图片维权获利

    日前北京互联网法院发布关于涉网图片类著作权案件的调研报告。报告指出,个别图片公司或者律师甚至专门从事图片维权诉讼,利用专业软件检索到侵权行为后再向图片权利人寻求授权,以提起诉讼的方式获取不正当商业利益。

  • 法院:个别图片公司诉图牟利 图片版权市场功能未能有效发挥

    今日,北京互联网法院发布数据称,北京互联网法院自 2018 年 9 月 9 日成立以来至 2020 年 6 月 30 日,共受理案件 64473 件,其中著作权案件 49855 件,占比77%,涉图片类著作权案件在所有著作权案件中的占比超过一半以上。

  • Chrome现已支持延迟加载网页中的iframe元素

    一年前,谷歌为 Chrome 76 引入了延迟加载图片的功能。昨日,Chrome 工程主管 Addy Osmani 又宣布,他们将在新版浏览器中启用延迟加载 iframe 元素的标准功能。在启用 <iframe loading = lazy> 属性之后,Chrome 将推迟相关元素的加载,直到用户将网页滚动到附近为止。

  • 我搜索了一张图片,又双叒叕侵权了!

    虽然国内图片市场在不断的完善中,但直到目前还是有很多人吃了图片侵权的亏。其中新闻网站等媒体侵权多发,微博、微信、博客、贴吧等平台上的自媒体用户侵权现象同样十分普遍。

  • 饭圈App能向Cameo学习什么?

    Cameo 成立于 2017 年,是一个用户付费给名人录制个性化视频的平台。包括 Snoop Dogg (也是投资者)、 Tituss Burgess 和 Stormy Daniels 在内的名人都在平台上设定了自己的收费标准,每个视频从 25 美元到 2500 美元不等。用户只需要附上要求:他们希望名人说什么,或者这条信息是给谁的。在几天甚至几个小时内,一个视频就到手了。

  • 取代短信!5G消息开启商用:可发图片、视频、位置

    毫无疑问,国内的5G建设已经驶入了快车道,而相应的配套应用也应该加速前进。据最新消息显示,三大运营商都已经开始启动首批5G消息应用动,而随着这个新功能的加入,或将改变灾害预报系统,为

    5G
  • 女子发摸腿动漫图片微信账户被封!腾讯:遭他人投诉构成违规

    7月20日消息,据媒体报道,家住福州的曹女士称,自己的微信账号突然被临时限制登陆,提示“该微信帐号因涉嫌传播色情/暴力/非法营销等违法内容被限制登录”需要被查封三天。曹女士

  • 用户发摸腿动漫图片微信账户被封 腾讯:遭他人投诉构成违规

    家住福州的曹女士称,自己的微信账号突然被临时限制登陆,提示“该微信帐号因涉嫌传播色情/暴力/非法营销等违法内容被限制登录”需要被查封三天。

  • TME live:live的无限可能

    在疫情的影响下,从2020年3月份至今,十余场线下筹办的TME live,通过线上的方式与观众见面,不论是早先的杨丞琳、刘若英、袁娅维,还是火爆的五月天和陈奕迅,华语流行音乐人通过创新的场景,正在实时触达到了更大的人群。TME live的缘起,瞄准的是线下演出市场与线上音乐结合的空间。腾讯音乐娱乐集团副总裁潘才俊告诉「蓝洞商业」,“我们后面还有更多想法,现在只是比较早期的阶段,未来在互动效果、技术服务和用户体验上,还?

  • XMEX合约之王 何以引领合约投资新时代

    近日,"比特币牛市"荣登微博热搜第9位,数字货币市场迎来2020年的高光时刻。据Matthew Spoke观察,目前越来越多的基金,包括机构基金和非机构基金,开始将数字资产作为除股票、房地产、黄金、债券和其他金融工具以外的新一资产类别,纳入多元化投资组合。与此同时,广大用户对交易所的底层技术架构、产品业务逻辑、风险管理有着越来越高的要求。那么对于普通投资者来讲,数字货币交易中最大的风险是什么?又该如何选择一家真正可靠

  • Google Chrome浏览器市占率继续上升 达到71%

    Netmarketshare发布了 2020 年 7 月的操作系统与浏览器市场份额报告。在本月的报告中,Windows10 的份额从上个月的58.93%上升到59.59%。 Windows7 的份额从23.35%继续下降到23.11%。Windows整体份额从86.69%的份额小幅上升至87.59%的份额。

  • OPPO、一加、realme共同进驻 欧加商城现身

    7月24日消息,近日OPPO商城微信小程序正式升级为欧加商城,商城介绍称“汇聚 OPPO、OnePlus、realme三品牌,一站式提供手机、智能硬件、配件、日用百货等产品购买,以及保障服务、以旧换新、维修

  • Google Chrome即将允许用户编辑已保存的密码

    根据第三方调查数据显示,全球每 10 台设备中就有 7 台运行 Chrome 浏览器。很多人使用它来日常上网的同时,也有很多人依靠它来管理自己的密码。Chrome 内置的密码工具提供了很多实用的功能,但长期以来存在一个不足-- 对密码的编辑。

  • Realme亮相ChinaJoy 智慧闪充让5G畅玩不断电

    【TechWeb】2020年7月31日,realme回国一年后首次亮相ChinaJoy 2020,打造真我智慧闪充站,带来真我5G闪充手机“3分钟疾速回血”的“边玩边闪充”智慧闪充体验。这次realme带来的闪充黑科技吸睛无数,65W智慧闪充,闪充3分钟开黑1小时。众多玩家在潮玩竞技体验区纷纷用真我5G闪充手机玩起《王者荣耀》,搭配真我X50 Pro 5G性能旗舰,体验疾速回血、5G畅玩不断电的畅快,并争夺2020 QQ名人赛5G先锋赛场-骁龙电竞英雄会入围资格。冲?

  • Chrome浏览器将获得改进:减少CPU占用及功耗

    身为全球第一大PC浏览器,份额达到7成的Chrome,依然难称完美,用户主要吐槽的点包括CPU/内存占用高、功耗大等。其实早在2017年,谷歌工程师就提出一项建议性改进,即在全屏播放视频时降低垂直

  • realme发布125W智慧闪充技术

    今日,realme正式发布125W智慧闪充技术,通过该技术,4000mAh的5G智能手机在 3 分钟之内即可充入1/ 3 的电量,完整的充电时间仅需 20 分钟。

  • realme真我V5发布会直播在哪看?realme真我V5直播地址入口介绍

    今天下午这款手机将正式同大家见面,在发布会前,我们先来了解一下这款手机的部分参数吧。根据此前信息,realme 真我 V5 采用全新相机矩阵,搭配超级镀膜光学工艺和第二代 AG 效果,拥有深灰色、绿色和银色三种配色。

  • Windows 10上Chrome遭遇Bug:无法正常播放HDR视频

    全球第一大浏览器Chrome在Windows 10上遭遇了新的Bug,无法正常播放HDR视频。某位Reddit网友描述其使用的是 Windows 10 1909 系统和最新版的英伟达 RTX 2080 Ti 独显驱动,但却在播放在线视频

  • Chrome遭遇无法在Windows 10上正常播放HDR视频的bug

    Reddit 网友抱怨称,他们在使用 Chrome(v81+)和系统自带的 Edge 浏览器的时候,遇到了浏览器无法正常播放 HDR 内容的问题。有网友写道:在对“视频播放”设置项中的滑块进行调节之后,YouTube 上的 HDR 内容的亮度级别就出现了不准确的问题。

  • Chrome浏览器更强大了:全球份额已达71%

    日前,统计机构Netmarketshare分享了最新的PC平台操作系统和浏览器份额数据。7月份,Windows 10的份额为59.59%,较上月的58.93%继续增加。Windows 7的份额则进一步下滑,从23.35%降至23.11%。

  • 参与评论
文明上网理性发言,请遵守新闻评论服务协议
  • 热门标签