Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

32144 / 76807

←次へ　｜　前へ→


	【49902】Re:ドラッグ＆ドロップでドロップされたファイルの名前を取得するには？

ウッシ - 07/6/27(水) 15:35 -


	引用なし

	パスワード

こんにちは

ListView --------- ファイルをドロップ出来る程度の大きさ
テキストボックス -- ファイルパスを表示出来る程度の大きさ
を作っておいて、こんな感じで出来ると思うのですが、

Private Sub ListView1_OLEDragDrop(Data As ComctlLib.DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
　　Me.TextBox1.Text = ""
　　ListView1.ListItems.Clear
　　If Data.Files.Count <> 1 Then Exit Sub
　　Me.TextBox1.Text = _
　　　　ListView1.ListItems.Add(1, "Key" & 1, Data.Files(1)).Default
End Sub
Private Sub UserForm_Activate()
　　With Me.ListView1
　　　　.BackColor = &H80000001
　　　　.ForeColor = &H80000001
　　　　.OLEDragMode = 1
　　　　.OLEDropMode = 1
　　　　.View = 2
　　End With
End Sub

4 hits

▼

【49886】ドラッグ＆ドロップでドロップされたファイルの名前を取得するには？ ST205 07/6/27(水) 9:48