入門講座 第11回卒業制作について

タグの編集
投稿者 りえりえ  (社会人) 投稿日時 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
投稿者 (削除されました)  () 投稿日時 2010/5/14 21:39:57
(削除されました)
投稿者 葉月  (社会人) 投稿日時 2010/5/14 21:44:14
初めまして、こんばんは。
Form1の中にサンプルを丸々コピペして追加ください。
なぜ必要かは、今は難しいと思うので省略します。

>サンプル
    Sub New()

        ' この呼び出しは、Windows フォーム デザイナで必要です。 
        InitializeComponent()

        ' InitializeComponent() 呼び出しの後で初期化を追加します。 

        FullPaths = New ArrayList()
    End Sub
投稿者 りえりえ  (社会人) 投稿日時 2010/5/14 21:56:24
葉月様 ありがとうございました。

ドロップ出来ました。ファイル名も表示されました。