C# と VB.NET の質問掲示板

ASP.NET、C++/CLI、Java 何でもどうぞ

C# と VB.NET の入門サイト

VBでOpenFileDialog1を同じファイルを開けなく

[トピック内 5 記事 (1 - 5 表示)]  << 0 >>

■85002 / inTopicNo.1)  VBでOpenFileDialog1を同じファイルを開けなく
  
□投稿者/ a (1回)-(2017/09/04(Mon) 23:56:00)

分類:[.NET 全般] 

2017/09/05(Tue) 00:02:45 編集(投稿者)
2017/09/05(Tue) 00:02:38 編集(投稿者)

VBでOpenFileDialog1から同じファイルを入れないようにするにはどうすればできますか?

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
OpenFileDialog1.FileName = ""
OpenFileDialog1.Multiselect = True
OpenFileDialog1.Title = "開くファイルを選択してください"
OpenFileDialog1.Filter = "MP3(*.mp3)|*.mp3|
OpenFileDialog1.FilterIndex = 1
OpenFileDialog1.RestoreDirectory = True
If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
AxWindowsMediaPlayer1.currentPlaylist.clear()
ListBox1.Items.Clear()
file = OpenFileDialog1.SafeFileNames
a = OpenFileDialog1.FileNames
For b As Integer = 0 To file.Length - 1
ListBox1.Items.Add(file(b))

Next
ListBox1.SelectedIndex = 0
TextBox1.Text = System.IO.Path.GetFileName(ListBox1.SelectedItem)

End If

End Sub
これだと同じファイルがリストボックスに入ってしまいます。
教えていただけますでしょうか。
引用返信 編集キー/
■85003 / inTopicNo.2)  Re[1]: VBでOpenFileDialog1を同じファイルを開けなく
□投稿者/ 魔界の仮面弁士 (1401回)-(2017/09/05(Tue) 00:51:40)
No85002 (a さん) に返信
> VBでOpenFileDialog1から同じファイルを入れないようにするにはどうすればできますか?

Private history As New HashSet(Of String)()
Private Sub OpenFileDialog1_FileOk(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
  Dim files = OpenFileDialog1.FileNames
  Dim conflict = files.Where(AddressOf history.Contains)

  If conflict.Any() Then
    e.Cancel = True
    Dim fileNames = conflict.Select(AddressOf System.IO.Path.GetFileName)
    MessageBox.Show("以前と同じファイルは選択できません。" & vbCrLf & String.Join(vbCrLf, fileNames), "競合", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
  Else
    Array.ForEach(files, AddressOf history.Add)
  End If
End Sub
引用返信 編集キー/
■85004 / inTopicNo.3)  Re[2]: VBでOpenFileDialog1を同じファイルを開けなく
□投稿者/ Azulean (857回)-(2017/09/05(Tue) 06:56:34)
No85003 (魔界の仮面弁士 さん) に返信
> Private history As New HashSet(Of String)()

一点だけ。
大文字小文字は区別しないようにしておいた方が良さそうです。

Private history As New HashSet(Of String)(StringComparer.OrdinalIgnoreCase)
引用返信 編集キー/
■85031 / inTopicNo.4)  Re[3]: VBでOpenFileDialog1を同じファイルを開けなく
□投稿者/ a (3回)-(2017/09/05(Tue) 19:41:07)
No85004 (Azulean さん) に返信
> ■No85003 (魔界の仮面弁士 さん) に返信
>>Private history As New HashSet(Of String)()
>
> 一点だけ。
> 大文字小文字は区別しないようにしておいた方が良さそうです。
>
> Private history As New HashSet(Of String)(StringComparer.OrdinalIgnoreCase)

お二人の方無事出来ました。ありがとうございます。

もう一点だけ教えてください。

一度ファイルを開いたときにすべてクリアーした時に、再度同じファイルを開く場合

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
'全てのリスト全消し、クリアー
ListBox1.Items.Clear()
ListBox2.Items.Clear()
AxWindowsMediaPlayer1.Ctlcontrols.stop()
AxWindowsMediaPlayer1.currentPlaylist.clear()
Timer1.Stop()
Timer2.Stop()
Timer3.Stop()
TextBox2.Clear()
TextBox3.Clear()
MessageBox.Show("全てのリストをクリアーしました",
"報告",
MessageBoxButtons.OK,
MessageBoxIcon.Asterisk)
end sub


Private history As New HashSet(Of String)()
Private Sub OpenFileDialog1_FileOk(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
  Dim files = OpenFileDialog1.FileNames
  Dim conflict = files.Where(AddressOf history.Contains)

  If conflict.Any() Then
    e.Cancel = True
    Dim fileNames = conflict.Select(AddressOf System.IO.Path.GetFileName)
    MessageBox.Show("以前と同じファイルは選択できません。" & vbCrLf & String.Join(vbCrLf, fileNames), "競合", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
  Else
    Array.ForEach(files, AddressOf history.Add)
  End If
End Sub

クリアーした時もう一度同じファイルを開く時に同じファイルがある。

このクリアーした後に再度同じファイルを開くにはどうしたらいいでしょうか。

すいません。

引用返信 編集キー/
■85032 / inTopicNo.5)  Re[4]: VBでOpenFileDialog1を同じファイルを開けなく
□投稿者/ a (4回)-(2017/09/05(Tue) 19:48:55)
No85031 (a さん) に返信
> ■No85004 (Azulean さん) に返信
>>■No85003 (魔界の仮面弁士 さん) に返信
> >>Private history As New HashSet(Of String)()
>>
>>一点だけ。
>>大文字小文字は区別しないようにしておいた方が良さそうです。
>>
>>Private history As New HashSet(Of String)(StringComparer.OrdinalIgnoreCase)
>
> お二人の方無事出来ました。ありがとうございます。
>

すいません 解決しました。

Button2.click
history.Clear()
をいれたら出来ました。


解決済み
引用返信 編集キー/

このトピックをツリーで一括表示


トピック内ページ移動 / << 0 >>

このトピックに書きこむ