1

前に質問したことがありますが、誰も答えられないようです。だから、私は今私の質問を変更します。私は実際にこのコードが機能することを発見し、画像をクリップボードにコピーしました。しかし、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

アップデート

実際、これらのコードでエラーは発生しませんでした。しかし、問題はです。このアプリケーションを Win XP で実行すると。Clipboard.ContainsImage は検出できず、PictureBox はクリップボードに含まれる画像を取得できません。ペイントに貼り付けようとしましたが、プログラムで実行するとできません。Win 7 で実行したところ、問題なく動作しました。

4

3 に答える 3

-1

のすべてのインスタンスを置き換えてみてください

sp.copy()

my.computer.clipboard.setimage(sp)

setImage メソッドのドキュメントは、http: //msdn.microsoft.com/en-us/library/system.windows.forms.clipboard.setimage.aspxにあります。

于 2013-06-24T07:58:33.080 に答える