遅延バインディングの回避方法

お世話になります。

テキストボックスにファイルをドロップして、そのファイルパスを取得したいのですが、「Option Strict Onでは、遅延バインディングを使用できません」と出ます。

これを回避するにはどうすればいいのでしょうか?

/*--------------------------------------------
Private Sub TextBox_DragDrop(ByVal sender As Object, ByVal e As DragEventArgs) Handles TextBox.DragDrop

'ファイルパス
Dim strPath As String

'この行で「遅延バインディング」が発生
strPath = e.Data.GetData(DataFormats.FileDrop)(0)
End Sub
/*--------------------------------------------

No.1 ベストアンサー 回答者： himajin100000 回答日時： 2009/04/02 18:12

strPath = DirectCast(e.Data.GetData(DataFormats.FileDrop),String())(0)

だと？

この回答へのお礼

なるほど、型変換が必要だったんですか。
回答のやり方で回避できました。ありがとうございます。

お礼日時：2009/04/03 09:13