◆ファイルを一行ずつ読み込む。StreamReaderで

ファイルを 1 行読み込むには、System.IO.StreamReader クラスの ReadLine メソッドを使用する。

サンプル

 ‘ StreamReader の新しいインスタンスを生成する
        Dim cReader As New System.IO.StreamReader(“C:\Hoge.txt”, System.Text.Encoding.Default)

        ‘ 読み込んだ結果をすべて格納するための変数を宣言する
        Dim stResult As String = String.Empty

        ‘ 読み込みできる文字がなくなるまで繰り返す
        While (cReader.Peek() >= 0)
            ‘ ファイルを 1 行ずつ読み込む
            Dim stBuffer As String = cReader.ReadLine()
            ‘ 読み込んだものを追加で格納する
            stResult &= stBuffer & System.Environment.NewLine
        End While

        ‘ cReader を閉じる

        cReader.Close()

        ‘ 結果を表示する
        MessageBox.Show(stResult)

◆OpenFileDialogを使って、ユーザにファイルを選択させる。

ユーザーにファイルを指定させるのに使う。

OpenFileDialogコンポーネントはWindowsの標準ダイアログ・ボックスである。

   ’ダイアログ・ボックスを表示したときに最初に開くフォルダ
        OpenFileDialog1.InitialDirectory = “C:\Program Files”

        ‘「ファイルの種類」ボックスに表示される選択肢を指定する
        OpenFileDialog1.Filter = “ログファイル(*.log)|*.log|テキストファイル(*.txt)|*.txt|すべてのファイル(*.*)|*.*”

        ‘ダイアログ・ボックスを開く
        If OpenFileDialog1.ShowDialog Then

            ‘ユーザが選択したファイル名を取得
            Dim filename As String = OpenFileDialog1.FileName

            ‘なんかの処理を行う。

        End If

◆checedListBoxのチェックされたものを調べる Windowsコントロール

‘チェックされているインデックスを調べる

For Each indexChecked In CheckedListBox1.CheckedIndices
           MessageBox.Show(“Index#: ” + indexChecked.ToString() + “, is checked. Checked state is:” + _ CheckedListBox1.GetItemCheckState(indexChecked).ToString() + “.”)
Next

‘チェックされている名称を調べる

For Each itemChecked In CheckedListBox1.CheckedItems
 MessageBox.Show(“Item with title: ” + quote + itemChecked.ToString() + quote + _”, is checked. Checked state is: ” + _CheckedListBox1.GetItemCheckState(CheckedListBox1.Items.IndexOf(itemChecked)).ToString() + “.”)
Next