VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [過去ログ] [管理用]

投稿日： 2003/02/25(Tue) 09:31
投稿者： hopie
ＵＲＬ：
タイトル： VB質問。ドラッグアンドドロップについて。

あるテキストを見て、ドラッグアンドドロップを試みたのですが、"実行時エラー"で"380;
プロパティの値が不正です"とのエラーが出てきました。コードは下記のとおりです。

(General)-(Declarations)
Dim dx As Single, dy As Single

Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
    Source.Move X - dx, Y - dy
End Sub

Private Sub Form_Load()
    For i = 0 To 2
        Img(i).DragIcon = Img(i).Picture   ←デバックでは、ここでエラー！！！
    Next i
End Sub

Private Sub Image1_DragDrop(Source As Control, X As Single, Y As Single)
    Image1.Picture = Source.Picture
End Sub

Private Sub Img_MouseDown(Index As Integer, Button As Integer, Shift As Integer,
                          X As Single, Y As Single)
    Img(Index).Drag 1
    dx = X: dy = Y
End Sub

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- Web Forum -