Question

在VB编程中如何插入图片

本人没有VB基础，想编写一个非常简单的程序，
望会者联系我

Answer 1

有三种方法：
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

Answer 2

新建工程，点菜单：工程\部件\——选：Microsoft Common Dialog Control 6.0
在窗体中加入：Command1、CommonDialog1,
将下列代码Copy到代码窗口中：
Private Sub Command1_Click() '文件打开
On Error Resume Next '设置错误处理
Dim openFilename As String
With CommonDialog1
.CancelError = True
.InitDir = "C:\"
.Filter = "位图文件(*.BMP)|*.BMP|JPEG(*.JPG;*.JPEG;*.JPE;*.JFIF)|*.JPG;*.JPEG;*.JPE;*.JFIF|GIF(*.GIF)|*.GIF|TIF(*.TIF;*.TIFF)|*.TIF;*.TIFF|所有文件|*.*"
.FilterIndex = 2
.Flags = &H200000 '允许长文件名
.ShowOpen
If Err.Number = 32755 Then Exit Sub '若按取消按钮，则退出过程
openFilename = .FileName '获得要打开的文件名
Form1.Picture = LoadPicture(openFilename)
End With
End Sub

Private Sub Form_Load()
Command1.Caption = "选择图片"
End Sub

Answer 3

用image控件

Answer 4

VB6 吗？
里面有个属性可以设置图片。
用程序实现的话：