- VBプログラマ質問スレ（Ver.6.0 まで） part64
67 ：デフォルトの名無しさん[]：2014/05/12(月) 17:59:32.73 ID:jf5K+NL8 - ピクチャボックス１のイメージをピクチャボックス２にドラッグ＆ドロップ
①ドラッグスタート処理（Picture1_OLEStartDrag）
Data.SetData Picture1.Image, vbCFDIB ・・・送出するイメージをセット
②ドロップ処理（Picture2_OLEDragDrop）
If Data.GetFormat(vbCFDIB) Then
Picture2.Picture = Data.GetData(vbCFDIB) ・・・受けたイメージを表示
End if
送出する Picture1.Imageの代わりに、イメージコントロール（Image1.Picture）から送ることはできないのですか？
|
- VBプログラマ質問スレ（Ver.6.0 まで） part64
68 ：デフォルトの名無しさん[]：2014/05/12(月) 18:47:48.42 ID:jf5K+NL8 - データをセットする時点でエラーになるからダメぽい
Data.SetData Image1.Picture
|
- VBプログラマ質問スレ（Ver.6.0 まで） part64
70 ：デフォルトの名無しさん[]：2014/05/12(月) 20:06:07.24 ID:jf5K+NL8 - >>69
解決しました、ありがとうございました
Picture1だけにJPGを読み込んであって、
Image1には、実行時に
Image1.Picture = Picture1.Picture で表示させていましたが
これだとData.SetData で形式が違うというエラーになり
Image1.Picture = Picture1.Image
に変更したらいけました
|
- VBプログラマ質問スレ（Ver.6.0 まで） part64
71 ：デフォルトの名無しさん[]：2014/05/12(月) 23:02:23.64 ID:jf5K+NL8 - そもそも自分を送るなら①のコードは不要だった
|