ファイルリストボックスで選択状態(反転)にするには？ (ID:126722)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 ガッさん回答有難うございます。 ご掲示頂いたfilelistbox.selected(i)で無事解決しました。 体調の急変で返事が遅くなり済みません。 有難う御座います。 >選択状態にしたいのに、何故にアンロード…？ 開いたファイル(*.csv)のメニューその他情報の内容でプログラムを実行します。 一度オープン後に別の情報ファイルを開く際に現在のメニュー等をアンロードします。 ファイルリストボックスは動的に作成したツールバー上に有り、同じフォルダーに複数の情報ファイル(*.csv)が有る場合 次回からはファイルリストボックスで選択して開ける様にし、且つ開いたファイル名が解るように反転したいと思いました。 以下にコードを記載します。 On Error GoTo err With CommonDialog1 .CancelError = True .DialogTitle = "ソースファイルを開きます" .InitDir = App.Path '初期パス .Flags = cdlOFNFileMustExist Or cdlOFNHideReadOnly .Filter = "CSV(*.csv)|*.csv" .Filename = "" .ShowOpen If .FileTitle <> "" Then infile = .Filename CsvRead infile 'ソースファイル入力 SrcCsvPath = Left(infile, InStr(infile, .FileTitle) - 2) 'パス取得 'ファイルリストボックスの入力ファイル名を選択状態にする For i = 0 To File1.ListCount - 1 If File1.List(i) = .FileTitle Then File1.Selected(i) = True End If Next End With