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

原创 2004年06月23日 14:43:00

运行效果图:

运行效果图


代码如下:

'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

ios图片缩放,根据UIImageView Frame的尺寸,自动调整UIImage缩放,保证图片显示不变形

我们再开发的过程中经常会碰到显示图片的情况,但是如果我们从网络上取到图片后不进行任何处理直接把得到的UIImage赋值给UIImageView显示的时候就会出现变形的情况,如果服务器端已经把图片的宽高...
  • fwjzm
  • fwjzm
  • 2015年12月21日 15:11
  • 1773

ImageView让图片像素延伸填满frame

有些时候,在一些空间使用UIImageView的时候,b
  • zhbitxhd
  • zhbitxhd
  • 2014年05月09日 16:47
  • 2701

ios图片缩放,根据UIImageView Frame的尺寸,自动调整UIImage缩放,保证图片显示不变形

我们再开发的过程中经常会碰到显示图片的情况,但是如果我们从网络上取到图片后不进行任何处理直接把得到的UIImage赋值给UIImageView显示的时候就会出现变形的情况,如果服务器端已经把图片的宽高...
  • fwjzm
  • fwjzm
  • 2015年12月21日 15:11
  • 1773

PYQT5 实现 无frame窗口的拖动和放缩

-- coding:utf-8 --”’ Created on 2016年12月14日@author: DXLCopyright (C) 2004-2019 Shandong Zhaoyuan So...
  • hidxl
  • hidxl
  • 2016年12月14日 09:05
  • 1123

js 最完美解决 图片在图片框内按宽高比例自动缩放

/******最完美解决 图片在图片框内按宽高比例自动缩放!!!***/ //Img:要放图片的img元素,onload时传参可用this //maxHeight ...
  • u011261785
  • u011261785
  • 2014年08月14日 15:59
  • 12760

PB按比例缩放图片的一个OB

  • 2010年12月10日 14:48
  • 3KB
  • 下载

php图片缩放代码-按比例缩放或截取指定大小的缩略图 非常好用的一个方法

/********************************************************** * function resize: * * = creates a r...
  • aa705123123
  • aa705123123
  • 2011年12月14日 16:12
  • 1339

ImageView 加载图片 , 原始比例 缩放 显示

这两天 遇到了点问题,,解决了 ,就总结一下 ,给自己点积累。第一次 写,描述的不够清楚, 望理解,希望对您有帮助。 关于 缩放 就不多说了,请参考 ImageView 的 scaleType 属性...
  • sinat_32961877
  • sinat_32961877
  • 2017年05月25日 12:57
  • 231

Web---Cookie技术(显示用户上次登录的时间、显示用户最近浏览的若干个图片(按比例缩放))

本章博客讲解: 1、Cookie基本用法演示 2、演示Cookie的访问权限 3、演示Cookie的删除 4、利用Cookie显示用户上次登录的时间 5、利用Cookie技术显示用户最近浏览...
  • qq_26525215
  • qq_26525215
  • 2016年07月26日 12:59
  • 14766

myBatis + SpringMVC上传、下载文件、显示byte图片文件、等比例缩放图片

来源URL:http://www.cnblogs.com/wuyifu/p/3627516.html 环境:maven+SpringMVC + Spring + MyBatis + MySql ...
  • u013160024
  • u013160024
  • 2016年07月07日 11:19
  • 2654
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:将一个图片按比例缩放显示在一个Frame中。
举报原因:
原因补充:

(最多只允许输入30个字)