如何在vb程序设计中用图片

㈠ 如何在VB中加载PNG格式的图片

用GDI函数，给你一个示例吧，显示PNG到FORM上，用GDI的：

'GDI+API函数
"gdiplus"(tokenAsLong,inputbufAsGdiplusStartupInput,OptionalByValoutputbufAsLong=0)AsGpStatus
"gdiplus"(ByValtokenAsLong)
"gdiplus"(ByValhwndAsLong,graphicsAsLong)AsGpStatus
"gdiplus"(ByValgraphicsAsLong)AsGpStatus
"gdiplus"(ByValgraphicsAsLong,ByValimageAsLong,ByValxAsSingle,ByValyAsSingle,ByValWidthAsSingle,ByValHeightAsSingle)AsGpStatus
"gdiplus"(ByValfilenameAsString,imageAsLong)AsGpStatus
"gdiplus"(ByValimageAsLong,WidthAsLong)AsGpStatus
"gdiplus"(ByValimageAsLong,HeightAsLong)AsGpStatus
"gdiplus"(ByValimageAsLong)AsGpStatus
'变量结构定义

GdiplusVersionAsLong
DebugEventCallbackAsLong

SuppressExternalCodecsAsLong
EndType
PrivateEnumGpStatus
Ok=0
GenericError=1
InvalidParameter=2
OutOfMemory=3
ObjectBusy=4
InsufficientBuffer=5
NotImplemented=6
Win32Error=7
WrongState=8
Aborted=9
FileNotFound=10
ValueOverflow=11
AccessDenied=12
UnknownImageFormat=13
FontFamilyNotFound=14
FontStyleNotFound=15
NotTrueTypeFont=16
UnsupportedGdiplusVersion=17
GdiplusNotInitialized=18
PropertyNotFound=19
PropertyNotSupported=20
EndEnum

'主要代码就下面这几句而已.
PrivateConstc_pngPathAsString="C:1.png"'要显示的图片名称和路径。
Dimm_tokenAsLong
PrivateSubForm_paint()'在Form上显示
DimpImgAsLong'定义变量
DimpGraphicsAsLong
DimwAsLong,hAsLong
'先找指定控件ID，然后通过GDI将PNG内容画上...
CallGdipCreateFromHDC(Me.hDC,pGraphics)
CallGdipLoadImageFromFile(StrConv(c_pngPath,vbUnicode),pImg)
CallGdipGetImageWidth(pImg,w)
CallGdipGetImageHeight(pImg,h)
CallGdipDrawImageRect(pGraphics,pImg,0,0,w,h)
CallGdipDisposeImage(pImg)
CallGdipDeleteGraphics(pGraphics)
EndSub
PrivateSubForm_Load()

StartupInput.GdiplusVersion=1
IfGdiplusStartup(m_token,StartupInput,ByVal0)Then
MsgBox"ErrorinitializingGDI+"
ExitSub
EndIf
EndSub
PrivateSubForm_Unload(CancelAsInteger)
CallGdiplusShutdown(m_token)
EndSub

运行结果：

本机XP+VB6测试通过！

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

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

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

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

Label1.Image = Image.FromFile("C:UsersadminDocumentsVisual Studio 2010Projects时钟指令熟悉程序时钟指令熟悉程序Resources.jpg")

以上！

㈢ 如何在VB里给程序加图标

1. 首先，制作或者下载一个Ico格式的图片，作为程序的图标

2. 在窗体属性总，点击Icon后面的按钮，选择步骤1中准备好的图片

   

㈣ VB中如何添加背景图片

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

㈤ 在vb程序设计中,单击图片框时在图片框中显视"单击图片框"如何编写代码实现这一过程

1、打开VB6.0开发软件，新建一个标准exe工程；
2、在设计界面上添加一个Picturebox控件；

㈥ VB程序红绿灯设计

1、 在桌面上，鼠标左键双击，打开VB编程软件，在左边工具栏上单击Image按钮，在Form1窗口上，绘制出图框，然后在Image属性面板的Picture属性上，单击【加载图片】按钮。

㈦ 怎样在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 如何插入图片

材料/工具：visual basic6

1、首先启动visual basic6，新建一个标准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 属性。

㈩ vb程序设计中怎样插入图片

比如想把图片插入Image1控件中：
x=图片的路径
image1.picture=loadpicture(x)