vb中控件图形框如何加载图片

1、首先启动visual basic6，新建一个标准exe文件，进入窗体对话框。

2、选择form1，设置height属性值为6000，width为8000。

3、接着设置borderstyle属性值为4-fixed toolwindow，查看效果变化。

4、双击工具箱中的image控件，在窗体上创建image1控件。

5、采用步骤2的方法设置height属性值为6000，width为8000，top为0，left为0，使其布满窗体。

6、点击picture属性，设置属性值，找到一张图片导入，并设置大小为6000*8000。

7、然后执行文件-生成工程命令，输入文件名称，保存在桌面上，将文件生成exe文件，这样就完成了。

有三种方法：

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

新建工程，点菜单：工程\部件\——选：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

---