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

わんくま同盟

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

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


■85003 / )  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
返信 編集キー/


管理者用

- Child Tree -