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

往控件容器中添加文件
1、在控件中右击弹出菜单，点击添加文件（*.doc,*.jpg）

2、然后在控件中显示这个添加的文件（包括图标和文件名），双击该文件能打开

请各位哥哥姐姐，抽空帮忙看看，不甚感激！二楼留给自己楼主参考下这个帖子：
http://topic.csdn.net/t/20040429/10/3020237.html

范例程序：
http://download.csdn.net/source/504054 一直在测试，没通过不敢胡说八道

引用 3 楼 sysdzw 的回复:

楼主参考下这个帖子：
http://topic.csdn.net/t/20040429/10/3020237.html

：
http://download.csdn.net/source/504054

这个范例程序，我也早下载过，基础太差。一直改不成我想要的效果 VB基础知识学的不扎实，改了几个晚上没头绪……汗……

引用 4 楼 dbcontrols 的回复:

一直在测试，没通过不敢胡说八道

期待老大测试结果，在线等……感谢！瞎凑一个



'通过菜单编辑器创建一个顶级菜单：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 Long



Private Sub Form_Load()

    Me.ScaleMode = 3

    Picture1.AutoRedraw = True

    Picture2.AutoRedraw = True

End Sub



Private 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 Sub



Private 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

感谢Veron_04(阿根廷巫师)
考虑用listview控件，而不是使用容器控件。
不好意思,昨天出去喝酒去了,支持大家的建议,使用ListView控件比较好

引用 7 楼 ds0032fxj 的回复:

引用 4 楼 dbcontrols 的回复:
一直在测试，没通过不敢胡说八道

期待老大测试结果，在线等……感谢！

用imagelist+listview控件即可使用 listview and (PictureBox or ImageBox)

补充：VB ,  基础类