vb怎么设置图片

① VB中如何才能自动放大缩小图片填充到图片框中啊

实现代码：

VERSION 5．00

BeginVB．FormForm1

Caption＝＂使用PictureBox控件实现图像放大和缩小＂

ClientHeight＝5580

ClientLeft＝60

ClientTop＝345

ClientWidth＝7935

LinkTopic＝＂Form1＂

ScaleHeight＝5580

ScaleWidth＝7935

StartUpPosition＝3＇窗口缺省

BeginVB．PictureBoxPicture1

AutoRedraw＝－1＇True

AutoSize＝－1＇True

Height＝3960

Left＝－15

Picture＝＂Form1．frx＂：0000

ScaleHeight＝3900

ScaleWidth＝6240

TabIndex＝2

Top＝15

Width＝6300

End

BeginVB．CommandButtonCommand2

Caption＝＂放大＂

Height＝360

Left＝6540

TabIndex＝1

Top＝5070

Width＝1140

End

BeginVB．CommandButtonCommand1

Caption＝＂缩小＂

Height＝360

Left＝5160

TabIndex＝0

Top＝5070

Width＝1140

End

End

AttributeVB＿Name＝＂Form1＂

AttributeVB＿GlobalNameSpace＝False

AttributeVB＿Creatable＝False

AttributeVB＿PredeclaredId＝True

AttributeVB＿Exposed＝False

DimiAsInteger

DimjAsInteger

PrivateSubCommand1＿Click（）

Picture1．Cls

i＝i－100：j＝j－100

Picture1．PaintPicturePicture1．Picture，0，0，i，j

Picture1．Width＝i：Picture1．Height＝j

EndSub

PrivateSubCommand2＿Click（）

Picture1．Cls

Picture1．Width＝i：Picture1．Height＝j

i＝i＋100：j＝j＋100

Picture1．PaintPicturePicture1．Picture，0，0，i，j

EndSub

PrivateSubForm＿Load（）

i＝Picture1．Width：j＝Picture1．Height

Picture1．Cls

EndSub

VB6．0通过PictureBox控件实现图片放大和图片缩小功能

(1)vb怎么设置图片扩展阅读：

其它方法：

例子前请先下载Gdiplus．tlb，并将其放置到C：＼Windows＼System32中

Gdiplus．tlb下载

VisualBasiccode

使用Gdiplus．tlb，将其放到system32中，然后添加对其的引用

手动设置Form的AutoRedraw＝True，ScaleMode＝Pixels

OptionExplicit

DimlngGraphicsAsLong

DimlngImageHandleAsLong

DimlngTextureBrushAsLong

DimgpPAsGpStatus

DimlngPen1AsLong

DimlngTokenAsLong

PrivateSubCommand1＿Click（）

DimintPAsInteger

gpP＝GdipCreateFromHDC（Me．hDC，lngGraphics）＇创建绘图区域设备场景

gpP＝GdipLoadImageFromFile（App．Path＆＂＼启动．png＂，lngImageHandle）＇读取图片到内存

gpP＝GdipDrawImage（lngGraphics，lngImageHandle，0，0）＇等大小绘制

gpP＝GdipDrawImageRect（lngGraphics，lngImageHandle，200，0，300，300）＇在指定的区域内绘制（放大或缩小）

gpP＝GdipDrawImageRectRectI（lngGraphics，lngImageHandle，550，0，400，400，20，20，80，80，UnitPixel）＇在400＊400的区域内显示图片部分区域

gpP＝GdipCreateTexture（lngImageHandle，WrapModeTile，lngTextureBrush）＇设置一定排列方式的刷子平铺方式

gpP＝GdipFillRectangle（lngGraphics，lngTextureBrush，0，300，400，300）＇在指定区域内按指定的格式绘制图片

IflngGraphics＜＞

IflngImageHandle＜＞

IflngTextureBrush＜＞

Me．Refresh

EndSub

PrivateSubForm＿Load（）

DimbolPAsBoolean

WithMe

．Caption＝＂GDIPlus范例＂

．Width＝960＊15

．Height＝720＊15

．Left＝（Screen．Width－．Width）＊0．5

．Top＝（Screen．Height－．Height）＊0．5

EndWith

GpInput．GdiplusVersion＝1

IflngToken＝0ThenbolP＝（GdiplusStartup（lngToken，GpInput）＝Ok）

EndSub

② 在VB中，如何在Command按钮上出现图片

具体操作步骤如下：

1、首先，打开VB并添加Command控件，如下图所示，然后进入下一步。

③ VB中怎样单击按钮出现一个图片

用vb编写一个点击按钮随机出现一张图片的软件，例如：窗体上一个picture1和command1的控件。

1、有四张图片，他们的后缀名不相同，用户可以问这样写：

Dim a$(3)

Private Sub Form_Load()

Randomize

a(0) = "D:xuexi.gif"

a(1) = "D:02.jpg"

a(2) = "D:房子.png"

a(3) = "D:4.jpg"

End Sub

Private Sub Command1_Click()

Picture1.Picture = LoadPicture(a(Int(Rnd * 3)))

End Sub

2、如果后缀名相同，且图片名称按顺序编号内并在程序目录下，用户可以容这样写：

Private Sub Command1_Click()

Picture1.Picture = LoadPicture(App.Path & "" & Int(Rnd * 3) & ".jpg")

End Sub

(3)vb怎么设置图片扩展阅读：

CommandButton命令按钮最常用的事件是鼠标点击（Click）事件，当点击按钮时，犹如发出了一道命令，而这也正是“命令按钮”这个说法的由来。

CommandButton 的主要属性列举：

1、Cancel（取消）属性：

当一个按钮的 Cancel 属性设置为 True 时，按 ESC 键与单击此命令按钮的作用相同，因此，这个命令按钮被称为取消按钮。在一个窗体中，只允许一个命令按钮的 Cancel 属性为 True 。

2、Default（默认）属性：

当一个按钮的 Default 属性设置为 True 时，按回车键与单击此命令按钮的作用相同，因此，这个命令按钮被称为默认按钮。 与 Cancel 的设置一样，在一个窗体中，只允许一个命令按钮的 Default 属性设置为 True 。

3、Caption（标题）属性：

跟其他控件的 Caption 属性一样，都用来显示控件标题的属性。这里要强调的是，作为按钮控件，用户可以给按钮控件的 Caption 指定快捷方式。

④ VB中怎么添加背景图片，且在各个窗体之间都适用

1、vb6中窗体或部分控件有picture属性和BackColor属性

2、注意并没有BackgroundImage属性。

3、如果设置窗体背景颜色，BackColor属性。

比如：

Private Sub Command1_Click()

Me.BackColor = &H8080FF

End Sub

3、如果要设置窗体背景图片，只需在窗体的picture属性中选择一张图片就可以。

如下图

⑤ VB中如何添加背景图片

打开VB，建立标准EXE。
建立一个图像框，名字改为p1,建立一个命令按钮。
双击命令按钮，进入代码编辑器。
写入代码：p1.Picture
=
LoadPicture("你的图片位置")
点击运行，点击命令按钮，即可出来，效果如下图：

⑥ 怎么在VB的command控件上添加图片

1）在按钮控件的属性页设置它的属性Style为1-Graphcal

2）给按钮控件的Picture属性设置图片

就可在VB的command控件上添加图片。

见下图红色方框部分：

⑦ 怎样在vb中添加图片

有三种方法：
1、添加一个picturebox或imagebox，在属性窗口中选择picture属性，然后就可以添加图片了，这是最简单的一种；
2、第二种是代码加入:
Option Explicit
Private Sub Form_Load()
Me.Picture = LoadPicture("c:\text.bmp") 'c:\text.bmp为图片路径
End Sub
3、第三种是通过剪贴板加入，这种比较复杂,如：
Option Explicit
Private Sub Form_Load()
Clipboard.SetData Picture1.Image
End Sub

⑧ VB中如何添加背景图片

1、打开Microsoft Visual Basic,新建一个标准Exe工程。

⑨ vb的窗体背景如何设成图片

1）在窗体添加一个Image图像框控件。在它得属性页设置Stretch属性为True。

Stretch 属性，返回或设置一个值，该值用来指定一个图形是否要调整大小，以适应与 Image 控件的大小。如果 Stretch 被设置为 True，那么，控件大小的调整使得它所包含的图形的大小也要调整。

PrivateSubForm_Resize()
Image1.Height=Me.Height
Image1.Width=Me.Width
EndSub

Resize事件，当一个对象第一次显示或当一个对象的窗口状态改变时该事件发生。（例如，一个窗体被最大化、最小化或被还原。）

3）在Image控件的Picture属性连接需要图片或在程序代码中使用LoadPicture 函数将图形载入到Image控件的 Picture 属性。