ClipBoard在運行時不起作用

Question

我以前問過Question，但似乎沒有人能回答它。 所以，我現在改變我的問題。我發現實際上這個代碼工作並將圖片複製到剪貼板。但是，當代碼在WinXp上運行時，即使無法檢測到Clipboard.ContainImage，它似乎也無法正常工作。那麼有誰知道如何解決這個或任何指南？

For Each sp As EXCEL.Shape In xlsheet.Shapes 
        sp.Copy() 
        picname = sp.Name 
        If Strings.Left(picname, 5) = "Group" Then 
         If My.Computer.Clipboard.ContainsImage Then 
          xlPic = My.Computer.Clipboard.GetImage 
          PictureBox1.Image = xlPic 
          ImageList1.Images.Add(xlPic) 
         Else 
          sp.Copy() 
          xlPic = My.Computer.Clipboard.GetImage 
          PictureBox1.Image = xlPic 
          ImageList1.Images.Add(xlPic) 
         End If 
        End If 
       Next 

UPDATE

其實我得到了這些代碼沒有錯誤。但問題是。當我在Win XP上運行這個應用程序。 Clipboard.ContainsImage無法檢測到，並且我的PictureBox無法獲取剪貼板中包含的圖像。我試圖粘貼到Paint，它可以，但通過程序運行，它不能。在Win 7中運行時，運行良好。

Answer 1

嘗試

my.computer.clipboard.setimage(sp) 

的setImage方法的文檔替換的

sp.copy() 

所有實例都可以在這裏找到：http://msdn.microsoft.com/en-us/library/system.windows.forms.clipboard.setimage.aspx

Answer 2

你不能（可靠）預計將數據複製到剪貼板然後立即能夠粘貼它。其他應用程序正在對剪貼板更新作出反應，並且在此期間可能發生很多事情。您可能/可能無法粘貼圖像，因爲其他應用程序已打開剪貼板進行粘貼。你可以在複製之後引入一個sleep（），然後避開它。 請記住，以這種方式使用剪貼板是不切實際的。提供剪貼板是爲了方便用戶，而不是PROGRAMMER。

Answer 3

試試這個，它爲我工作與Win XP，VS2010和Excel2007中：

appExcel = CreateObject("Excel.Application") 
wbExcel = appExcel.Workbooks.Open(Filename) 
wsExcel = wbExcel.Worksheets(1) 

For Each oShape As Shape In wsExcel.Shapes 

        If oShape.Name.StartsWith("Picture") Then 
         Clipboard.Clear() 
         oShape.CopyPicture(XlPictureAppearance.xlScreen, XlCopyPictureFormat.xlBitmap) 

         If Clipboard.ContainsImage() Then 
          Dim img As Image 
          img = Clipboard.GetImage() 
          PictureBox1.Image = img 
          PictureBox1.Visible = True 
          Exit For 
        End If 
       Next oShape