前提・実現したいこと
ボタンクリック後、数日間稼働し続けるWindowsフォームアプリケーションをVB.NETで作成しております。
ユーザーがタイトルバーをクリックして、アプリケーションの位置を変更したりしても、プログラムが動くようにしたいです。
発生している問題・エラーメッセージ
作成途中で、アプリケーションのタイトルバーをクリックすると、メインスレッドが動いていないことに気づきました。
メインスレッドの処理を、別のスレッドとして作成して、メインスレッドではスレッドを新しくすれば、うまくいくかもしれないとは思ったのですが、
VB.NETを初めて1か月の自分にはかなり厳しいと感じました。
プロパティ等をいじることによって、これを防ぐことはできないのでしょうか?
該当のソースコード
Dim sw As New Stopwatch()
'ストップウォッチスタート
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
sw.Start()
End Sub
'ストップウォッチのミリ秒の表示
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
System.Threading.Thread.CurrentThread.Priority = Threading.ThreadPriority.Highest
While True
If sw.ElapsedMilliseconds > 200 Then
'フォームに出力
Label1.Text = sw.ElapsedMilliseconds.ToString
End If
'1秒経過すると、csvに出力して、ストップウォッチをリスタート
If sw.ElapsedMilliseconds > 1000 Then
sw.Stop()
counter += 1
textFile = New IO.StreamWriter(csvname, True, System.Text.Encoding.Default)
'ストップウォッチのミリカウントとカウンターを出力
textFile.WriteLine(sw.ElapsedMilliseconds.ToString & "," & counter.ToString)
textFile.Close() ' -- StreamWriter を閉じて
textFile.Dispose() ' -- StreamWriter を解放
sw.Restart()
End If
My.Application.DoEvents()
End While
End Sub
'ストップウォッチのリスタート
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
sw.Stop()
sw.Restart()
End Sub
試したこと
このようなストップウォッチの経過時間を表示するプログラムの場合、タイトルバーをクリックしている間は、ストップウォッチは進んでいるようですが、
Label1.Textは更新されず、アプリケーション画面の更新がされません。
補足情報(言語/FW/ツール等のバージョンなど)
少しだけマルチスレッドにするとどうなるか試してみましたが、時間的にも厳しいため、今回はマルチスレッド処理をしない解決策をご教授いただけると幸いです。
よろしくお願いいたします。
以下、マルチスレッドでためしたこと
プログレスバーが1からすすんでいって100になると、ボタンが押せるようになるプログラムで、スレッドを作成した場合、
アプリケーションの見た目上は95くらいで、内部的には100になっていて、ボタンが押せるようになっていました。
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
System.Threading.Thread.CurrentThread.Priority = Threading.ThreadPriority.Highest
Button1.Enabled = False
'Dim sw As New Stopwatch()
Dim t As New System.Threading.Thread(New System.Threading.ThreadStart(AddressOf LongTask))
t.Start()
Button1.Enabled = True
End Sub
Private Delegate Sub UpdateProgressBarDelegate(ByVal val As Integer)
Private Sub UpdateProgressBar(ByVal val As Integer)
ProgressBar1.Value = val
If val = 100 Then
Button1.Enabled = True
End If
End Sub
Sub LongTask()
Dim i As Integer
For i = 0 To 100
Threading.Thread.Sleep(100)
ProgressBar1.BeginInvoke(
New UpdateProgressBarDelegate(AddressOf UpdateProgressBar), i)
Next
End Sub
-
気になる質問をクリップする
クリップした質問は、後からいつでもマイページで確認できます。
またクリップした質問に回答があった際、通知やメールを受け取ることができます。
クリップを取り消します
-
良い質問の評価を上げる
以下のような質問は評価を上げましょう
- 質問内容が明確
- 自分も答えを知りたい
- 質問者以外のユーザにも役立つ
評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。
質問の評価を上げたことを取り消します
-
評価を下げられる数の上限に達しました
評価を下げることができません
- 1日5回まで評価を下げられます
- 1日に1ユーザに対して2回まで評価を下げられます
質問の評価を下げる
teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。
- プログラミングに関係のない質問
- やってほしいことだけを記載した丸投げの質問
- 問題・課題が含まれていない質問
- 意図的に内容が抹消された質問
- 過去に投稿した質問と同じ内容の質問
- 広告と受け取られるような投稿
評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。
質問の評価を下げたことを取り消します
この機能は開放されていません
評価を下げる条件を満たしてません
質問の評価を下げる機能の利用条件
この機能を利用するためには、以下の事項を行う必要があります。
- 質問回答など一定の行動
-
メールアドレスの認証
メールアドレスの認証
-
質問評価に関するヘルプページの閲覧
質問評価に関するヘルプページの閲覧
checkベストアンサー
+2
他の回答にもあるように、今の作りは非常によろしくありません。
という前提の元、ドラッグ中にも表示が更新できるか試行錯誤してみましたが、無理のようでした。
ドラッグ中はループ処理は完全に停止して、ドラッグ処理に占有されているようです。
改善策として手っ取り早いのはタイマーを使うことです。
タイマーコントロールを設置し、次のようにしてみてください。
Dim sw As New Stopwatch()
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
sw.Start()
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Timer1.Interval = 1
Timer1.Enabled = True
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
sw.Stop()
sw.Restart()
Timer1.Enabled = false
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
If sw.ElapsedMilliseconds > 200 Then
Label1.Text = sw.ElapsedMilliseconds.ToString
End If
End Sub
投稿
-
回答の評価を上げる
以下のような回答は評価を上げましょう
- 正しい回答
- わかりやすい回答
- ためになる回答
評価が高い回答ほどページの上位に表示されます。
-
回答の評価を下げる
下記のような回答は推奨されていません。
- 間違っている回答
- 質問の回答になっていない投稿
- スパムや攻撃的な表現を用いた投稿
評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。
+1
こんにちは。質問文には、各Buttonがクリックされたときに何をしたいのかを書いたほうが良いと思います。あと、コードはコード表記(<code>アイコンのボタン)で囲って整形表示させましょう。
Windowsのフォームアプリは「イベント駆動型」と呼ばれるしくみで動いています。
フォームをはじめて表示しようとするとき、ボタンを押された時、タイトルバーをクリックされているとき、タイマー(StopWatchとは異なる仕組み)の時間経過をしたとき、テキストボックス内の文字が変更されたとき、ファイルがフォームにドロップされたとき、フォームのサイズが変更されようとするとき、フォームを閉じようとするとき、など、きっかけ(イベント)をもとに、それに呼応する「イベントハンドラ」が呼ばれます。イベントハンドラでは、自分がしたい処理をしたらすぐ終了(イベントハンドラを抜ける)させて、別のイベントが起きたときに別のイベントハンドラがいつでも呼び出せるようにします。
Button2_Click イベントハンドラの While True ... End While ループは、抜ける条件がない永久ループを形成していて、CPU時間も食いますし、上記のイベント駆動型アプリケーションの観点からも宜しくないです。
画面表示の更新は、リアルタイムで行うようにしたつもりでも、実際にはモニタのリフレッシュレートや、CPUクォンタムその他から、本当のリアルタイムでは更新されませんし、なにしろ人間の目にはわかりません。
なので、通常は50msなどの、まあまあ短めな間隔で表示更新を行います。あくまで画面更新の処理の間隔ですので、時間の計測自体にストップウォッチを利用することは妥当です。
Timer コントロールをご存知でしょうか?ストップウォッチで時間を計測しつつ、Timerコントロールは、表示更新用として(時間の計測用ではなくて)、50msや100msなど指定した間隔で呼び出されるイベントハンドラに、画面更新(ラベルへの反映)を記載します。DoEventsは不要です。
投稿
-
回答の評価を上げる
以下のような回答は評価を上げましょう
- 正しい回答
- わかりやすい回答
- ためになる回答
評価が高い回答ほどページの上位に表示されます。
-
回答の評価を下げる
下記のような回答は推奨されていません。
- 間違っている回答
- 質問の回答になっていない投稿
- スパムや攻撃的な表現を用いた投稿
評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。
0
クリックでなくドラッグだと思いますが、見た目が更新されていないだけでスレッドが止まっている訳ではないと思います。ドラッグ中はたくさんのメッセージが飛び交いますので、そういうこともあるかも知れません。
Application.DoEvents の位置が違います。処理の一番最後、ループを抜けた後においてください。現在の位置では、ラベルのテキストを変更せよとのメッセージがまだ届いていないために処理できない可能性があります。
投稿
-
回答の評価を上げる
以下のような回答は評価を上げましょう
- 正しい回答
- わかりやすい回答
- ためになる回答
評価が高い回答ほどページの上位に表示されます。
-
回答の評価を下げる
下記のような回答は推奨されていません。
- 間違っている回答
- 質問の回答になっていない投稿
- スパムや攻撃的な表現を用いた投稿
評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。
15分調べてもわからないことは、teratailで質問しよう!
- ただいまの回答率 88.13%
- 質問をまとめることで、思考を整理して素早く解決
- テンプレート機能で、簡単に質問をまとめられる
2017/03/02 11:08
ご丁寧にコードも記述いただいて本当にありがとうございます。
ドラッグ中にも実行したい処理を、Timer1_Tickのイベントで実行することで
問題解決しそうです。
これから問題のフォームアプリケーションに実装してみます。
ありがとうございました。