Help us understand the problem. What is going on with this article?

テキストボックスでファイルをドロップ選択可能にする。

テキストボックスの横に「参照」ボタンとかつくったり面倒なので
1行でファイルのドロップ選択できるテキストボックスを作るやつ用意しました。

作るやつ

BenriGoods.vb
Public Class BenriGoods
    Public Shared Sub SetFileDropTextBox(ByRef tbx As TextBox)
        Try
            tbx.AllowDrop = True
            'ファイルが一つであればファイルパスを読み込み対象テキストへ反映
            AddHandler tbx.DragDrop, New DragEventHandler(
                Sub(sender As Object, e As DragEventArgs)
                    Dim fileName As String() = CType(e.Data.GetData(DataFormats.FileDrop, False), String())
                    If fileName.Length = 1 Then
                        CType(sender, TextBox).Text = fileName(0)
                    End If
                End Sub)

            'ファイルが一つであればカーソル色変更(複数ファイルは無視)
            AddHandler tbx.DragEnter, New DragEventHandler(
                Sub(sender As Object, e As DragEventArgs)
                    Dim fileName As String() = CType(e.Data.GetData(DataFormats.FileDrop, False), String())
                    If fileName.Length = 1 Then
                        e.Effect = DragDropEffects.Copy
                    End If
                End Sub)
        Catch ex As Exception
        End Try
    End Sub
End Class

使い方

FormUNKO.vb
BenriGoods.SetFileDropTextBox(textboxUnko) 'テキストボックスを引数に与える
Why do not you register as a user and use Qiita more conveniently?
  1. We will deliver articles that match you
    By following users and tags, you can catch up information on technical fields that you are interested in as a whole
  2. you can read useful information later efficiently
    By "stocking" the articles you like, you can search right away
Comments
Sign up for free and join this conversation.
If you already have a Qiita account
Why do not you register as a user and use Qiita more conveniently?
You need to log in to use this function. Qiita can be used more conveniently after logging in.
You seem to be reading articles frequently this month. Qiita can be used more conveniently after logging in.
  1. We will deliver articles that match you
    By following users and tags, you can catch up information on technical fields that you are interested in as a whole
  2. you can read useful information later efficiently
    By "stocking" the articles you like, you can search right away