投稿者 りえりえ  (社会人) 投稿日時 2010/5/14 21:05:12
はじめましてりえりえです。VBの勉強を始めました。よろしくお願いします。
Visual Studio 2005です。

入門講座 第11回卒業制作の3-2-3の確認でドロップしたファイル名が
表示されません。
ドロップしようとすると下記のメッセージダイアログが表示され、FullPaths.Add(FileName)
の箇所が黄色で表示されます。環境のせいかと思うのですがわかるかたがいらっしゃったら
教えて下さい。

「'System.NullReferenceException' の初回例外が MultiFileViewer.exe で発生しました。

追加情報: オブジェクト参照がオブジェクト インスタンスに設定されていません。」

コードは下記のとおりです。

Public Class Form1

    Dim FullPaths As ArrayList

    Private Sub lstFileName_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles lstFileName.DragDrop

        Dim FileName As String

        FileName = CType(e.Data.GetData(DataFormats.FileDrop), String())(0)

        FullPaths.Add(FileName)
        lstFileName.Items.Add(IO.Path.GetFileName(FileName))
    End Sub

    Private Sub lstFileName_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles lstFileName.DragEnter

        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
            e.Effect = DragDropEffects.Copy
        Else
            e.Effect = DragDropEffects.None
        End If
    End Sub