🚀 go-pugleaf

穐谷(あきや)です。

aki　wrote in article
 <352e2f29.0@epnews.speed.co.jp>...
> テキストボックスでテキストをOLE Drag & Dropしたいと思っています。
> 設定を自動にすると、とりあえずコーディングなしで実現できますが
> データの受け入れ時の制御等でもう少し柔軟にしたいと思います
> ので手動設定でなんとか実現したいのですがどのような手順を踏め
> ば良いのでしょうか？もしよろしければヒントだけでもお願いします。

簡単な説明になりますが、

ドロップされたものを受け取る場合は、まず、
OLEDragOverイベントでData.GetFormatをチェックして、Effectを設定
します。例えば、テキストだったら
	If Data.GetFormat(vbCFText) Then
		Effect = vbDropEffectCopy
	End If
そして、OLEDragDropイベントで、データーを取得します。
	Text1.Text = Data.GetData(vbCFText)

ドラッグの素(ソース)になる場合は、
MouseDownイベントで、OLEDragメソッドを呼出し、
OLEStartDragイベントで、フォーマットを入れます。この段階で
中身を入れてもいいですが、普通は別のイベントで設定します。
	Call Data.SetData(, vbCFText)	'入れない場合。
	Call Data.SetData(Text1.Text, vbCFText)	'入れる場合。
そして、OLEGiveFeedbackイベントでマウスの状態を管理します。
ドロップされると、もし中身が設定されていないのならば、
OLESetDataイベントが発生します。普通はここで設定します。
	Call Data.SetData(Text1.Text, vbCFText)
そして、最後にOLECompleteDragイベントで後始末をします。
これは、ドロップの有無に関わらず発生します。

玉城さんのホームページ
Visual Basic増強作戦 http://www.vector.co.jp/authors/VA010786/
にも、サンプルがあったと思います。そちらをご覧ください。
そういえば、今月発売されたVBMagazineにも書いてあったと思います。

------------------------------------------------------------
		差出人:	穐谷 三郎
		E-Mail:	akiya@cmpk.or.jp

$B0,C+$5$s!"$42sEz$"$j$,$H$&$4$6$$$^$7$?!#(B

$B$*$+$2$5$^$G$@$$$?$$35MW$,$D$+$a!"(BOLE D&D$B$O$G$-$k$h$&$K$J$j$^$7$?!#(B
$B$G$b%F%-%9%H%\%C%/%9$G(BOLEDrag$B%a%=%C%I$r8F$S$@$9J}K!$,$o$+$j$^$;$s!#(B

$B!!(BBookOnline$B$GD4$Y$F$_$?$iNc$G!V(BOLEDrag$B%a%=%C%I$O%G!<%?$,A*Br$5$l$F$$$k(B
$B$H$-$K!":8%^%&%9%\%?%s$r2!$7$?$^$^%^%&%9$r0\F0$7$F!"%*%V%8%'%/%H$N(B Mouse
Move $B%$%Y%s%H$+$i8F$S=P$5$l$^$9!#!W$H=q$+$l$F$$$^$7$?!#(B

$B!!$=$3$G<B:]$K$d$C$F$_$k$H%F%-%9%H$rA*Br$7$F:8%^%&%9%\%?%s$r2!$7$?$H$-!"(B
$B%F%-%9%H$NA*Br$,2r=|$5$l$F$7$^$$0\F0=PMh$^$;$s!#$I$&$9$l$P2r=|$5$l$:$K(B
$B0\F0=PMh$k$N$G$7$g$&$+!)(B

$B<+F0$K$7$F$bNI$$$N$G$9$,0J2<$NE@$GLdBj$,=P$F$$$^$9!#(B

$B%F%-%9%H$rA*Br$7$?>uBV$K$9$k$H$=$N>e2<$N%F%-%9%HMs$G%^%&%9$r1&%/%j%C%/$7(B
$B$F$b%]%C%W%"%C%W$,$G$^$;$s!#(B
$B%F%-%9%HA*BrI}$G$J$$#X:BI8$r1&%/%j%C%/$9$kJ,$K$OLdBj$J$$$N$G$9$,(B.....$B$G$b!"(B
$B$b$7%F%-%9%H%\%C%/%9$NJ8>O$,%F%-%9%H%\%C%/%9$NI}A4BN$K$"$k$H$9$k$H$3$l$r(B
$BA*Br$7$?>uBV$G1&%/%j%C%/$9$k$H%F%-%9%H%\%C%/%9$N%G%U%)%k%H$G=P$k%]%C%W%"(B
$B%C%W%a%K%e!<$,I=<($G$-$J$/$J$C$F$7$^$$$^$9!#!J%I%i%C%0!u%I%m%C%W$K$OJL$KLdBj(B
$B$J$$$N$G$9$,(B.....$B$G$b%f!<%6!<$5$s$K$OE\$i$l$=$&$G$9!K(B

$B%&%$%s%I%&%:IUB0$N%o!<%I%Q%C%IEy$G$OLdBj$J$/$G$-$k$N$G$9$,$J$K$+J}K!$,(B
$B$"$k$N$G$7$g$&$+!)(B
-----------------------------------------------------------
from        aki
e-mail      akimotom@anet.ne.jp

穐谷(あきや)です。

aki　wrote in article
 <35313caa.0@epnews.speed.co.jp>...
> 　そこで実際にやってみるとテキストを選択して左マウスボタンを押した
> とき、テキストの選択が解除されてしまい移動出来ません。どうすれば
> 解除されずに移動出来るのでしょうか？

おそらく標準のテキストボックスでは無理だと思います。
(Notepadにある機能ならば、大抵実装できます。)


> テキストを選択した状態にするとその上下のテキスト欄でマウスを右クリック
> してもポップアップがでません。
> テキスト選択幅でないＸ座標を右クリックする分には問題ないのですが.....

自分でポップアップメニューを出すようにすればいいのではないでしょうか？

> ウインドウズ付属のワードパッド等では問題なくできるのですがなにか方法
> があるのでしょうか？

ワードパッドは、リッチエディットを使っています。
------------------------------------------------------------
		差出人:	穐谷 三郎
		E-Mail:	akiya@cmpk.or.jp