| 投稿日 | ： 2005/02/07(Mon) 23:25 |
| 投稿者 | ： 花ちゃん |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^3: Line（線）のイベント取得(簡単な方法） |
少しは、自分でヘルプを調べたり、試したりする気になれませんか？
サンプルを提供しているのですから。
それに、質問しておきながら返信が遅いのはどう言う事でしょうか？
（休みの間に誰かやっておいてくれって事ですか）
回答した人は責任があるから、何度と無く再質問が投稿されてないかチェック
しているのですよ。
> １．ドラッグ中に「ラベル」は『動いている』感じになって
> いますが、「線」を動かしている感じにはならないのでしょうか？
Private Sub Form_DragOver(Source As Control, X As Single, _
Y As Single, State As Integer)
Source.Move X - XPos, Y - YPos
Line1.X1 = X - XPos
Line1.Y1 = Y - YPos
End Sub
> ２．ドラッグ中にマウスの形を変えたいのですが、ドラッグ開始
> は、「Label1_MouseMove」でイベントを取っているのですが、
Label1_MouseMove イベント って使っていましたっけ。
Private Sub Form_Load()
'OLE ドロップ イベントを発生させます。
Label1.OLEDropMode = vbOLEDropManual
Set Label1.DragIcon = LoadPicture("DRAG1PG.ICO")
End Sub