OLE如何打开一个图片文件?

r = Shell("c:\windows\pbrush.exe " & App.Path & "\文件名.bmp", vbMaximizedFocus)
注意pbrush.exe后面有一个空格

解决方案 »

  1.   

    泰山,你的程序中的&App.Path 是不是当前目录?
    不能用,我改为如下:sFilename = List1.List(List1.ListIndex)
      r = Shell("c:\windows\pbrush.exe " & sFilename, vbMaximizedFocus)
    就可以了,其中list1中存放的时文件名列表(包含路径)
        但是,当文件名列表中的路径中有空格
    比如:c:\my documents\time.bmp
    时就不行了,显示找不到c:\my.bmp
    如果文件名中包含空格也不行!
    如c:\temp\vb vc.bmp
    显示找不到c:\temp\vb\vc.bmp
    该如何解决??
      

  2.   

    这个简单，在文件全路径的两端加双引号就可以了！
    改为
    r = Shell("c:\windows\pbrush.exe """ & sFilename & """", vbMaximizedFocus)完了！
      

  3.   

    junglerover?
    你写的什么呀,象灌木丛:)
    开玩笑呀
      

  4.   

    喂喂，你怎么不把那段代码COPY下来试试呢？
    我灌木丛是乱开玩笑的人么？
      

  5.   

    你所问是OLE，那就在控件板上点击OLE容器控件，
    然后画到你窗体上，再选择"画笔图片"。
    运行后，双击控件即可编加图片！
      

  6.   

    巴顿,谢谢你
    不是这样的,我是用listbox控件显示文件名,然后有一个按钮,"编辑图片",没有在窗体上加ole,我是菜鸟,一点也不懂,上面的代码是泰山告所我的,如果加ole应该放在那里?难道放在我的command按钮上?
      

  7.   

    我就是想用画笔打开我的在list1表中的选择的文件,
    r = Shell("c:\windows\pbrush.exe", vbMaximizedFocus)
    可以打开,但是目录或者文件中包含有空格就打不开了!
      

  8.   

    怎么不对称了，胡说八道。在字符串里，两个双引号在一起表示双引号。
    "c:\windows\pbrush.exe """  这里是三个在一起
    """" 这里是四个在一起！这个语句里一共8个。不可能不成！
      

  9.   

    这就很难帮助你了。自己去试吧。我看看帮助。
    因为没有现成的代码，三言两语也说不清。我当年就是这么自学的（那时候还没有csdn）