往控件容器中添加文件（在线等……）请各位哥哥姐姐，抽空帮忙看看

Question

往控件容器中添加文件
1、在控件中右击弹出菜单，点击添加文件（*.doc,*.jpg）
2、然后在控件中显示这个添加的文件（包括图标和文件名），双击该文件能打开请各位哥哥姐姐，抽空帮忙看看，不甚感激！

Answer 1

楼主参考下这个帖子：
http://topic.csdn.net/t/20040429/10/3020237.html范例程序：
http://download.csdn.net/source/504054

Answer 2

瞎凑一个'通过菜单编辑器创建一个顶级菜单：mnuFile，次级菜单mnuAdd
'添加连个PictureBox，Picture1、Picture2
'Picture2载入预先截图好的Word图片
Option Explicit
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As LongPrivate Sub Form_Load()
    Me.ScaleMode = 3
    Picture1.AutoRedraw = True
    Picture2.AutoRedraw = True
End SubPrivate Sub mnuAdd_Click()
    Dim strFile As String
    CommonDialog1.Filter = "Word文档|*.doc"
    CommonDialog1.ShowOpen
    strFile = CommonDialog1.FileName
    If strFile <> "" Then
        Picture1.Cls
        Text1.Text = strFile
'        BitBlt Picture1.hDC, 10, 10 + Picture2.Height, Text1.Width, Text1.Height, Me.hDC, Text1.Left, Text1.Top, vbSrcCopy
        BitBlt Picture1.hDC, 30, 10, Picture2.Width, Picture2.Height, Picture2.hDC, 0, 0, vbSrcCopy
        Picture1.PSet (10, 50 + Picture2.Height * 15)
        Picture1.Print strFile
        
    End If
End SubPrivate Sub Picture1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    If Button = vbRightButton Then
        PopupMenu mnuFile
    End If
End Sub

Answer 3

感谢Veron_04(阿根廷巫师) 

Answer 4

考虑用listview控件，而不是使用容器控件。

Answer 5

不好意思,昨天出去喝酒去了,支持大家的建议,使用ListView控件比较好

Answer 6

使用 listview and (PictureBox or ImageBox)