VB.NET フォームの表示について

現在、VB.NETにてフォルダ操作関連のアプリを作成しています。
プログラムの流れとしては、

[流れ]
実行
↓
処理中フォーム表示(画面中央上部に「処理中です。」とラベル表示
↓
裏でフォルダ関連作業
↓
正常終了or異常終了フォーム表示
↓
閉じるボタン押下で終了

というものなのですが、実行直後の「処理中フォーム」が何度実行しても

のようにラベル部分が正しく表示されません。
※正常or異常終了時のフォームは問題なくラベル等表示されます。

VB.NET
1
2Shared Sub Main()
3
4    Try
5        'フォルダがなければ作成する
6        If System.IO.Directory.Exists(mainForm.ログフォルダ) = False Then
7            System.IO.Directory.CreateDirectory(mainForm.ログフォルダ)
8        End If
9        'ログファイルの生成
10        mainForm.textFile = New System.IO.StreamWriter(mainForm.ログフォルダ & "\" & "ReportsCollectLog_" & mainForm.nowTime & ".log", True, System.Text.Encoding.Default)
11        mainForm.ShowDialog()
12    Catch ex As Exception
13        MsgBox(ex.Message)
14    End Try
15
16End Sub
17
18
19
20Private Sub Form1_Shown(sender As System.Object, e As System.EventArgs) Handles Me.Shown
21
22    Call ReportsCopy()
23    Call ReportsBackup()
24    Call ReportsDelete()
25
26    System.Threading.Thread.Sleep(1000)
27
28    Me.Close()
29    good.ShowDialog()
30
31End Sub

フォームを使用したアプリケーションの作成経験がないため、フォームの呼び出し方法も
あっているのかどうか…といった知識レベルです。。。
情報が少なく大変申し訳ございませんが、皆様のお力をお借りできれば幸いです。

※2/8 15:31
タイトルがまったく関係ないものになっていた為修正させて頂きました。

行動規範の内容に同意します

回答2件

誰もが通る道ですね
Me.Refreshの次はApplication.DoEventsでしょうか

このままだと[応答なし]が頻発するかもです
もちろんやろうとしている処理しだいですが、LoadとかShownとかに重い処理を書くのはあまりおすすめではありません

もしステップアップされるなら、重い処理は別スレッドで処理するように考えてコードを書くようにするとよろしいかと

BackgroundWorker クラス
 Async および Await を使用した非同期プログラミング

その際にはクリティカルセクションという言葉も知っておいてください

投稿2016/02/08 19:23

dojikko

総合スコア3939

Alice0225

2016/02/09 01:07

アドバイス頂きありがとうございます。まだまだ知識不足ですので頂いた情報について調べさせて頂きたいと思います。ご丁寧にありがとうございますm(._.)m

行動規範の内容に同意します

自己解決

ネットで文言をアレコレ変えて検索したところ、
裏で作業が行われる場合、画面更新がされないまたは遅れる(？)場合があり、
その場合は「Me.Refresh()」を使用することで改善する。
といった旨の記事を見つけたので、

VB.NET
1Private Sub Form1_Shown(sender As System.Object, e As System.EventArgs) Handles Me.Shown
2
3    Me.Refresh()※これを追記
4
5    Call ReportsCopy()
6    Call ReportsBackup()
7    Call ReportsDelete()
8
9    System.Threading.Thread.Sleep(1000)
10
11    Me.Close()
12    good.ShowDialog()
13
14End Sub