在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

没那么简单的。你这属于动态添加图片，得自己画上去。Cstring ct[5]for(int i=0i<5i++)m_list.GetText(i,ct[i])//将五个图片地址从列表框中取出放入ct中//如果你定义了控件数组的话，直接for循环就行，没定义就需要你自己接下来将图片一个个的画到PICTURE控件里,下面展示将一幅位图画到图片控件里HBITMAP hbitmap=(HBITMAP)::LoadImage(AfxGetInstanceHandle(),

ct[0],IMAGE_BITMAP,0,0,LR_CREATEDIBSECTION |LR_LOADFROMFILE)//加载ct[0]的位图信息

CStatic *p=(CStatic *)GetDlgItem(IDC_PIC0)//IDC_PIC0为图片控件的ID，

p->SetBitmap(hbitmap)

可以使用Load方法

语法为:Load object

要求必须预先创建一个控件数组

例如，现在你已经创建了一个command的控件数组，它的name为cmd

(方法请自行百度)

开始的一个元素的调用方法为

Cmd1(0).属性

其中()内的为 *** 作元素的下标。只要Load对应的数组元素。即可完成元素的载入，载入成功后可以当做一个普通控件来 *** 作。

此时如果需要添加多个，请使用For循环+Load语句实现

For i=1 to 20

Load Cmd(i)

Cmd(i).visible=ture

....

....

next i

---