×

image控件显示图片 image 控件

image控件显示图片（delphi image控件如何根据图片的大小自动缩放并显示）

admin admin 发表于2023-01-12 17:59:38 浏览63 评论0

抢沙发发表评论

本文目录

delphi image控件如何根据图片的大小自动缩放并显示

在 delphi 语言中，让 image 控件根据图片的大小自动缩放并显示的步骤如下：

1、从 Tool Palette 面板上找到 TImage 控件，并拖放到窗口：

2、选中 Image 控件，调整到合适大小，并设置其属性：

Anchors 属性：

设置让 image 控件的大小随窗体改变而变化，并保持与左、右、上、下的边距不变。

Stretch 设置为 True:

此项属性是关键设置，当此项设置为 True 时，Image 的图像就可以自动随大小的改变而拉伸或压缩显示：

帮助手册中关于 Image 控件的 Stretch 属性描述如下：

3、完成上述设置之后，就可以编写相关代码了。

以下是编写的一个示例代码，使用了 TImage、TOpenPictureDialog、TButton 控件，供参考：

procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenPictureDialog1.Execute then
  begin
    Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
  end;
end;

代码运行截图：

点击 打开图片 按钮载入图片：

拉宽窗体，图片随之变宽：

C# Image控件显示图片的大小问题

在表单里加入一个IMAGE控件image1.image1.picture属性里填入图片的路径和图片文件名称.将image1.stretch
属性设置为2-变比填充.则图片的大小就可随着控件image1的大小而改变.
在VFP的表单里,重叠的控件可以改变相互之间的上下关系.同时选中两个重叠的控件,再点一下布局工具栏里的“置前“或“置后“工具按钮就可以了.
还有一种方法是将一幅图片作为一个表单的背景.即在表单的
picture属性中指定一幅图的全名.这样这幅图就作为背景显示在表单上.表单上的其他控件都不会被图片所覆盖.但这样做就要求图片的大小要合适.太大了,显示不下.太小了将重复显示.为了能得到合适大小的图片,就需要对图片进行处理.最简单的处理方法是在windows自带的画图软件中,利用图像菜单里的拉伸/扭曲选项将图片的长和宽都按比例进行缩放.得到合适的大小后再放到表单里去.
另外,虚机团上产品团购,超级便宜

默认情况下image控件加载图片后的尺寸

默认情况下image控件加载图片后的尺寸：4乘以3厘米。

还有一种方法是将一幅图片作为一个表单的背景，即在表单的 picture属性中指定一幅图的全名，这样这幅图就作为背景显示在表单上，表单上的其他控件都不会被图片所覆盖，但这样做就要求图片的大小要合适，太大了,显示不下。

太小了将重复显示.为了能得到合适大小的图片,就需要对图片进行处理，最简单的处理方法是在windows自带的画图软件中，利用图像菜单里的拉伸/扭曲选项将图片的长和宽都按比例进行缩放，得到合适的大小后再放到表单里去。

详细信息：

Image控件也可以识别Click事件，因此可在要用 CommandButton 的任何地方使用该控件。这种方法可以方便地建立有图片的按钮来取代标题。将几个 Image 控件组成一组，水平置于屏幕顶端（通常在一个 PictureBox 中），可以在应用程序中建立一个 ToolBar。

例如，对 Test Buttons一 例给出的 Image 控件 ，用户可以象选择 CommandButton 一样来选择它。窗体第一次被显示时，控件显示 Visual Basic 的图标库中三个交通图标中的一个。每单击 Image 控件一次，就显示一个不同的图标。

Image控件怎么动态显示图片，就是ImageUrl属性怎么在程序中指定

if (Session[“t“] == (object)1)
有这样写的么？？
if (Session[“t“].ToString() == “1“)
{
Image1.ImageUrl = “logo_k1.gif“;
}
else
{
Image1.ImageUrl = “logo_k2.gif“;
}

如何将数据库中的图片(二进制)，读出并显示在界面的Image控件[VB6.0]

摘 要 本文以VB6与Access97作为开发工具，介绍了图像在数据库中的存储与显示技术。
关键词 数据库，数据控件，二进制，图像存储，图像显示，ADODB，Recordset
数据库是数据管理的最新技术，是计算机科学的重要分支，是现代计算机信息系统和计算机应用的基础和核心。在科学技术高速发展的今天，在信息资源无处不在、无处不用，已成为各部门的重要财富的时候，对于从事程序开发的人员来说显得尤为重要。
如今，对数据库的操作不仅仅满足于对字符和数字的单一操作，图像的存储与显示已显得尤为重要。下面作者将以VB6.0与Access97作为开发工具，分别介绍两种图像显示与存储的方法。
利用数据控件和数据绑定控件
利用这种方法，不写或写少量代码就可以构造简单的数据库应用程序，这种方法易于被初学者接受。在举例之前，先把数据绑定功能简要的说明一下，凡是具有DataSource属性的控件都是对数据敏感的，它们都能通过数据控件直接使用数据库里的数据。比如CheckBox Control , ComboBox Comtrol , TextBox Comtrol , PictureBox Control ,Image Comtrol … 因为这种方式涉及到的知识点比较少，也比较容易理解，不多作说明，现直接介绍编程步骤。
1、从数据库中显示所需要的图片
首先，添加一个Data数据控件,设置它的DatabaseName和RecordSource属性，
strPath = App.Path
If Right(strPath, 1) 《》 “\“ Then
strPath = strPath & “\“
MyData.DatabaseName = strPath & “ExampleDB.mdb“ ’数据库存地址
MyData.RecordSource = “Info“ ’表名
第二步，添加Image控件用来显示图片，设置它的DataSource和DataField属性。例如本例中: Image1.DataSource=“MyData“和Image1.DataField=“ MyPhoto“ 。然后设置其它具有数据绑定功能的控件用来显示所要的其它内容，经过这两步的操作，运行程序就可以显示你要的数据了。
2、向数据库中添加需要存储的图片
首先，利用数据控件所具有的AddNew属性，添加一个按钮，双击后添加如下代码MyData.Recordset.AddNew
第二步，为Image控件图片指定图片路径Image1.Picture = LoadPicture(“图片路径“)，经过这两步的操作，就可以向数据库中添加图片了。
这种方法最简单快捷，要写的代码量很少。但是这种方法在运行速度和灵活性方面有一定的限制，适合于初学者和一些简单的应用，要想灵活多变的显示图像，下面介绍的方法或许更适应您的要求。
利用编写代码实现图片的存储与显示
这种方法相对于方法一来说，代码量大，但是它操作灵活，能够满足多样形式下的操作，受到更多编程者的青睐。但是涉及到的知识面相对要多一些，不仅要掌握数据库的操作方法，还要二进制文件的读写作进一步的了解。关于数据库及二进制文件的基本操作很多参考书上都介绍的比较详细，需要时请查阅即可。在编程之前把本部分用到的变量说明如下：
Dim RS As New ADODB.Recordset
Dim Chunk() As Byte
Const ChunkSize As Integer = 2384
Dim DataFile As Integer, Chunks, Fragment As Integer
Dim MediaTemp As String
Dim lngOffset, lngTotalSize As Long
Dim i As Integer
1、从数据库中显示所需要的图片
第一步首先打开数据库，看有没有要查找的内容，有则继续执行，没有就退出
RS.Source = “select * from Info Where Name=’“ & sparaName &“’;“
RS.ActiveConnection = “UID=;PWD=;DSN=TestDB;“
RS.Open
If RS.EOF Then RS.cCose : Exit Sub
第二步，读出长二进制数据即图片数据，把它转换成图片文件，操作过程如下
MediaTemp = strPath & “picturetemp.tmp“
DataFile = 1
Open MediaTemp For Binary Access Write As DataFile
lngTotalSize = RS!MyPhoto.ActualSize
Chunks = lngTotalSize \ ChunkSize
Fragment = lngTotalSize Mod ChunkSize
ReDim Chunk(Fragment)
Chunk() = RS!MyPhoto.GetChunk(Fragment)
Put DataFile, , Chunk()
For i = 1 To Chunks
ReDim Chunk(ChunkSize)
Chunk() = RS!MyPhoto.GetChunk(ChunkSize)
Put DataFile, , Chunk()
Next i
Close DataFile
第三步，关闭数据库，这样就可以显示所要的图片了。
RS.Close
If MediaTemp = ““ Then Exit Sub
Picture1.Picture = LoadPicture(MediaTemp)
If Picture1.Picture = 0 Then Exit Subj
2、向数据库中添加需要存储的图片
向数据库添加存储的图片是显示图片逆过程，只要掌握了显示图片的操作，存储图片的操作也就迎刃而解了，下面将操作步骤介绍如下
第一步首先打开数据库，过程如下：
RS.Source = “select * from Info ;“
RS.CursorType = adOpenKeyset
RS.LockType = adLockOptimistic
RS.ActiveConnection = “UID=;PWD=;DSN=TestDB;“
RS.Open
第二步，把要存储的图片转换成二进制长文件存入数据库中，操作过程如下
RS.AddNew
DataFile = 1
Open strPathPicture For Binary Access Read As DataFile
FileLen = LOF(DataFile) ’ 文件中数据长度
If FileLen = 0 Then : Close DataFile : RS.Close : Exit Sub
Chunks = FileLen \ ChunkSize
Fragment = FileLen Mod ChunkSize
ReDim Chunk(Fragment)
Get DataFile, , Chunk()
RS!MyPhoto.AppendChunk Chunk()
ReDim Chunk(ChunkSize)
For i = 1 To Chunks
Get DataFile, , Chunk()
RS!MyPhoto.AppendChunk Chunk()
Next i
Close DataFile
第三步，更新纪录后，关闭数据库，就完成了数据图片到数据库的存储。
RS.Update
RS.Close
Set RS = Nothing
两种方法在使用方面各有所长，读者可以针对自己的情况做出合理的选择。
方法很容易实现的．和楼上的不太一样．

在excel中如何让照片显示在image控件中

第一步：你的这个动态的查询表比如在sheet2，原始资料在sheet1（包括照片，身份证），那么你就要将表1中带照片的单元格定义名称，比如照片在表1b列，身份证在a列，打开定义名称对话框，定义名称名字比如为zp，引用位置写入公式=indirect(“sheet1!b“&match(sheet2!$f$6,sheet1!$a:$a,0)),确定。
第二步：然后激活你插入的image，在编辑栏写=zp，这时当你f6单元格的信息发生变化时，图片自动会随着发生相应的变化。

C# Image控件显示图片的大小的方法是什么

在表单里加入一个IMAGE控件image1.image1.picture属性里填入图片的路径和图片文件名称.将image1.stretch 属性设置为2-变比填充.则图片的大小就可随着控件image1的大小而改变.
在VFP的表单里,重叠的控件可以改变相互之间的上下关系.同时选中两个重叠的控件,再点一下布局工具栏里的“置前“或“置后“工具按钮就可以了.
还有一种方法是将一幅图片作为一个表单的背景.即在表单的 picture属性中指定一幅图的全名.这样这幅图就作为背景显示在表单上.表单上的其他控件都不会被图片所覆盖.但这样做就要求图片的大小要合适.太大了,显示不下.太小了将重复显示.为了能得到合适大小的图片,就需要对图片进行处理.最简单的处理方法是在windows自带的画图软件中,利用图像菜单里的拉伸/扭曲选项将图片的长和宽都按比例进行缩放.得到合适的大小后再放到表单里去.
另外,虚机团上产品团购,超级便宜

VB程序，如何按照条件显示image控件中的图片

首先在窗体上添加一个image控件，然后选中这个image控件，右键单击，出现快捷菜单，选[复制]，然后在窗体任意位置，右键单击，出现快捷菜单，选[粘贴]，回答
[是]，重复进行一一粘贴。根据自己需要的最多数量，进行粘贴。
初始时，将它们的
Visible属性都设置为
False。
根据计算结果的值，比如：6
for
i=0
to
5
image1(i).
Visible
=
True
next
i

怎么在vb中的image控件中加载图片呀！

我的是VS2010的，首先先在Image内添加了对应图片，然后Resource内 会显示有对应图片信息

之后在需要添加的对象与程序位置添加如下程序：

对象名.Image=Image.FromFile(“图片地址\图片名称“)

Label1.Image = Image.FromFile(“C:\Users\admin\Documents\Visual Studio 2010\Projects\时钟指令熟悉程序\时钟指令熟悉程序\Resources\0.jpg“)

以上！

VB中IMAGE控件中怎样使图片完整显示

用PS修改图片
或是
用VB缩放图片
’在窗体上增加下面控件：
’ picture1
’image1(在picture1内,stretch=true,同时要装入图片,以便看到效果)
’option1(caption=“放大“,value=true)
’option2(caption=“缩小“,value=false)
’option3(caption=“还原“,value=false)
’在窗体代码区复制下面代码，运行后先选择相应按钮，然后再点击图片，就会看到效果。
’====窗体代码====
Option Explicit
Dim OldTop As Long, OldLeft As Long, OldWidth As Long, OldHeight As Long
Private Sub Form_Load()
With Image1
OldTop = .Top
OldLeft = .Left
OldWidth = .Width
OldHeight = .Height
End With
End Sub
Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim mWidth As Long, mHeight As Long
If Option1.Value = True Then ’放大
With Image1
Image1.Move .Left - X * 0.1, .Top - Y * 0.1, .Width * 1.1, .Height * 1.1
End With
End If
If Option2.Value = True Then ’缩小
With Image1
Image1.Move .Left + X * 0.1, .Top + Y * 0.1, .Width * 0.9, .Height * 0.9
End With
End If
End Sub
Private Sub Option3_Click() ’还原
With Image1
.Left = OldLeft
.Top = OldTop
.Width = OldWidth
.Height = OldHeight
End With
Option1.Value = True
End Sub