VB.NET覚書

VB.NETの覚書
[個人メモ] [仕事メモ] [アイデア] [Ruby]
[TIPS] [対応表] [コメント書き方] [.NET Tips] [VB中学校] [VB.NET の入門サイト] [VB.NET コーディング標準 ] [VBレスキュー] [NonSoft]

2010-03-12

テキストボックスカーソル位置を常に一番下に移動する方法

TxtLog.SelectionStart = TxtLog.TextLength
TxtLog.ScrollToCaret()

FILEダイアログを開く

http://jeanne.wankuma.com/tips/vb.net/dialog/openfile.html

    ' OpenFileDialog の新しいインスタンスを生成する (デザイナから追加している場合は必要ない)
    Dim OpenFileDialog1 As New OpenFileDialog()

    ' ダイアログのタイトルを設定する
    OpenFileDialog1.Title = "ダイアログのタイトルをココに書く"

    ' 初期表示するディレクトリを設定する
    OpenFileDialog1.InitialDirectory = "C:\"

    ' 初期表示するファイル名を設定する
    OpenFileDialog1.FileName = "初期表示するファイル名をココに書く"

    ' ファイルのフィルタを設定する
    OpenFileDialog1.Filter = "テキスト ファイル|*.txt;*.log|すべてのファイル|*.*"

    ' ファイルの種類 の初期設定を 2 番目に設定する (初期値 1)
    OpenFileDialog1.FilterIndex = 2

    ' ダイアログボックスを閉じる前に現在のディレクトリを復元する (初期値 False)
    OpenFileDialog1.RestoreDirectory = True

    ' 複数のファイルを選択可能にする (初期値 False)
    OpenFileDialog1.Multiselect = True

    ' [ヘルプ] ボタンを表示する (初期値 False)
    OpenFileDialog1.ShowHelp = True

    ' [読み取り専用] チェックボックスを表示する (初期値 False)
    OpenFileDialog1.ShowReadOnly = True

    ' [読み取り専用] チェックボックスをオンにする (初期値 False)
    OpenFileDialog1.ReadOnlyChecked = True

    ' 存在しないファイルを指定した場合は警告を表示する (初期値 True)
    'OpenFileDialog1.CheckFileExists = True

    ' 存在しないパスを指定した場合は警告を表示する (初期値 True)
    'OpenFileDialog1.CheckPathExists = True

    ' 拡張子を指定しない場合は自動的に拡張子を付加する (初期値 True)
    'OpenFileDialog1.AddExtension = True

    ' 有効な Win32 ファイル名だけを受け入れるようにする (初期値 True)
    'OpenFileDialog1.ValidateNames = True

    ' ダイアログを表示し、戻り値が [OK] の場合は、選択したファイルを表示する
    If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
        MessageBox.Show(OpenFileDialog1.FileName)

        ' Multiselect が True の場合はこのように列挙する
        'For Each nFileName As String In OpenFileDialog1.FileNames
        '    MessageBox.Show(nFileName)
        'Next nFileName
    End If

    ' 不要になった時点で破棄する (正しくは オブジェクトの破棄を保証する を参照)
    OpenFileDialog1.Dispose()

トラックバック - http://sub.g.hatena.ne.jp/garyo/20100312