無題

データ保存

■My.Settingでデータ保存 はどこに保存されるか？その２

My.Settingにはユーザーデータとアプリデータの2種類が存在する
ユーザーデータの保存場所は、Local・・・というシステムドライブ上であった

では、アプリデータはどこに保存されるか？

これは、プログラム名.configファイルをアプリケーションと同じフォルダに置くことで利用することができる

BackgroundWorkerその２

■進行状態を確認してみる２

昨日のBackgroundWorkerのテストプログラムにProgressBarを付けてみよう
ProgressBarは処理の進行状況をビジュアルに表示するコンポーネントである

標準では最低値０から最大値１００となっていおり、現在値を表すvalueに値を設定することで
状態を表示する

昨日のプログラムは１から５までを１秒毎に通知し、５で終了するものだ
したがって、進行状況を管理するイベントProgressChangedに渡る数値（パーセンテージ）は
１から順に５までとなる

ではこの数値を最大値１００とするProgressBarに当てはめるには単純に数値を２０倍すれば
問題ない

逆にするなら、ProgressBarの最大値を５としてもOKだ

    Private Sub BackgroundWorker1_ProgressChanged(ByVal sender As System.Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles BackgroundWorker1.ProgressChanged
        TextBox1.Text += "..."
        TextBox1.Text += e.ProgressPercentage.ToString
        TextBox1.Text += vbCrLf
        ProgressBar1.Value = e.ProgressPercentage * 20
    End Sub

VB.NETでホスト（自分自身の）名を表示する

■自分のマシン名の表示

マイコンピュータ名のプロパティを表示してコンピュータ名を表示してみる
これをプログラムで取得する場合、以前はsocketから色々と複雑な処理をおこなわないと
取得できなかった

ところが、.NETのDns.GetHostName　メソッドを利用すると簡単に取得できる

以下は、フォームにボタンとリッチエディットを付けただけのプログラムで
コマンドボタンを押した際のコード

        Dim Host As String
        Try
            Host = System.Net.Dns.GetHostName()
            RichTextBox1.AppendText("Computer name :" & Host)
        Catch ex As Exception
            RichTextBox1.AppendText("Exception catch!!!")
            RichTextBox1.AppendText(vbCrLf)
            RichTextBox1.AppendText("Source :" + ex.Source)
            RichTextBox1.AppendText(vbCrLf)
            RichTextBox1.AppendText("Message :" + ex.Message)
            RichTextBox1.AppendText(vbCrLf)
        End Try

これで、リッチエディットに表示されるのでR