Re[4]: ブラウザでコピーした透過PNGを貼り付けたい - DOBON.NETプログラミング道掲示板

DOBON.NETプログラミング道掲示板

■35615 / 4階層)

　ブラウザでコピーした透過PNGを貼り付けたい

□投稿者/ よっし～一般人(4回)-(2024/06/07(Fri) 17:36:16)

魔界の仮面弁士さん、早速のご教示有り難うございます。

> それはさておき、相手が Firefox や Internet Explorer ならば
> 　Dim s = Clipboard.GetFileDropList()
> 　If s.Count > 0 Then
> 　　PictureBox1.LoadAsync(s(0))
> 　　Return
> 　End If
> で行けるんじゃないですかね?

本当ですね。普通に表示出来ました。
ただFireFoxはいけましたが、CromeやEdgeも対象としたいので、先にご教示頂きました
　Dim c = Clipboard.GetDataObject()
　　Dim img As Image = Nothing
　　If c.GetDataPresent("PNG", False) Then
　　　　Dim o = TryCast(c.GetData("PNG"), System.IO.MemoryStream)
　　　　If o IsNot Nothing Then
　　　　　　img = Image.FromStream(o)
　　　　End If
　　ElseIf c.GetDataPresent(GetType(Image)) Then
　　　　img = DirectCast(c.GetData(GetType(Image)), Image)
　　End If
　　PictureBox1.Image = img
との合わせ技で解決出来そうです。
長い間悩んでおりました。どうも有り難うございました。

解決済み!

違反を報告

上記関連ツリー
前の記事(元になった記事)	次の記事(この記事の返信)
←Re[3]: ブラウザでコピーした透過PNGを貼り付けたい /魔界の仮面弁士	返信無し
ブラウザでコピーした透過PNGを貼り付けたい / よっし～ (24/06/07(Fri) 12:18) #35611
`└` Re[1]: ブラウザでコピーした透過PNGを貼り付けたい / 魔界の仮面弁士 (24/06/07(Fri) 14:13) #35612
`└` Re[2]: ブラウザでコピーした透過PNGを貼り付けたい / よっし～ (24/06/07(Fri) 15:14) #35613
`└` Re[3]: ブラウザでコピーした透過PNGを貼り付けたい / 魔界の仮面弁士 (24/06/07(Fri) 16:11) #35614
`└` ブラウザでコピーした透過PNGを貼り付けたい / よっし～ (24/06/07(Fri) 17:36) #35615 解決済み! ←Now
上記ツリーを一括表示 / 上記ツリーをトピック表示
上記の記事へ返信

入力内容にタグは利用できません。
引用部分（行頭に「>」や「■」が付いている部分）が全体の 80% 以上のコメントは投稿できません。

半角カナは使用しないでください。文字化けの原因になります。
削除キーを覚えておくと、自分の記事の編集・削除ができます。
記事中に No*** のように書くとその記事にリンクされます(No は半角英字/*** は半角数字)。
- 使用例)
- No123 → 記事No123の記事リンクになります(指定表示)。
- No123,130,134 → 記事No123/130/134 の記事リンクになります(複数表示)。
- No123-130 → 記事No123～130 の記事リンクになります(連続表示)。

投稿前に必ずお読みください

初めて投稿される方は、必ず「書き込みのルールについて（12/4/2更新）」をお読みください。読むのが面倒、ルールを守りたくないという方は、「お気楽掲示板」へ投稿してください。
質問を投稿する場合は、「質問をする際のアドバイス」を参考にしてください。
投稿は、明記のない限り、パブリックドメインになります。
マルチポストされた投稿を報告する時は匿名で投稿し、マルチポストされている場所を併記してください。以下のリンクをクリックしていただくと、自動で下のフォームが埋まりますので、その後「送信」ボタンを押してご投稿ください。
- マルチポストの報告をする
- マルチポストの報告をするが、マルチポスト先の投稿が嫌がらせである（元の投稿者とは別人が行なっている）可能性が高い（投稿日時に開きがあり、こちらの投稿の方が早い場合は、その可能性が高いです）

Name	/
E-Mail	/
Title	/
URL	/
Comment/ 通常モード->　図表モード-> (適当に改行して下さい/半角10000文字以内) ■No35615に返信(よっし～さんの記事) > 魔界の仮面弁士さん、早速のご教示有り難うございます。 > >>それはさておき、相手が Firefox や Internet Explorer ならば >>　Dim s = Clipboard.GetFileDropList() >>　If s.Count > 0 Then >>　　PictureBox1.LoadAsync(s(0)) >>　　Return >>　End If >>で行けるんじゃないですかね? > > 本当ですね。普通に表示出来ました。 > ただFireFoxはいけましたが、CromeやEdgeも対象としたいので、先にご教示頂きました > 　Dim c = Clipboard.GetDataObject() > 　　Dim img As Image = Nothing > 　　If c.GetDataPresent("PNG", False) Then > 　　　　Dim o = TryCast(c.GetData("PNG"), System.IO.MemoryStream) > 　　　　If o IsNot Nothing Then > 　　　　　　img = Image.FromStream(o) > 　　　　End If > 　　ElseIf c.GetDataPresent(GetType(Image)) Then > 　　　　img = DirectCast(c.GetData(GetType(Image)), Image) > 　　End If > 　　PictureBox1.Image = img > との合わせ技で解決出来そうです。 > 長い間悩んでおりました。どうも有り難うございました。 > >
File	/ アップ可能拡張子=> /.gif/.jpg/.png/.zip 1) 太字の拡張子は画像として認識されます。 2) 画像は初期状態で縮小サイズ250×250ピクセル以下で表示されます。 3) 同名ファイルがある、またはファイル名が不適切な場合、　　ファイル名が自動変更されます。 4) アップ可能ファイルサイズは1回20KB(1KB=1024Bytes)までです。 5) ファイルアップ時はプレビューは利用できません。 6) スレッド内の合計ファイルサイズ:[0/300KB] 残り:[300KB]
Icon	/ (画像を選択/サンプル一覧)
削除キー	/ (半角8文字以内)
解決済み! BOX/ 解決したらチェックしてください!（スレッドを閉じる目的ではチェックしないでください!）
クリエイティブ・コモンズ・ライセンスを Comment の末尾に挿入するには、以下のリンクをクリックしてください。（Javascript で挿入しているだけです。）表示（CC BY） \| 表示-改変禁止（CC BY-ND） \| 表示-継承（CC BY-SA） \| 表示-非営利（CC BY-NC） \| 表示-非営利-改変禁止（CC BY-NC-ND） \| 表示-非営利-継承（CC BY-NC-SA）
プレビュー/　クッキーに保存しない/