Visual Basic 中学校 掲示板 投稿の管理
タグのない投稿を抽出
統計
RSS
Visual Basic 中学校
投稿一覧
入門講座 第11回卒業制作について
この投稿へのリンク
https://keijiban.umayadia.com/ThreadDetail.aspx?ThreadId=9636#CommentId14662
この投稿の削除
削除パスワード
削除する
コメント本文
投稿者
りえりえ
 (社会人)
投稿日時
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