待機中のメッセージを表示しようとしていますが、これは実際には長いプロセスが別のファイルで実行されている間のフォームです。私が直面している問題は、プロセスが開始されるとフォームが消えることですが、フォームはまだアクティブでプロセスを実行しています
私のコード:
Dim objWait As New frmWaitupdate
Dim strReply As String
Dim ischange As Boolean
Dim obj1 As New MyBO.UpdateSchemaBO()
ischange = obj1.CheckSchemaChanges(Application.ProductVersion.ToString())
If ischange = True Then
lblMsg.Text = "Schema changes found please wait Please wait."
obj1.AddVersionTable(Application.ProductVersion.ToString())
Me.Visible = True
strReply = obj1.UpdateSchema(Me)
If strReply <> "" Then
MessageBox.Show(strReply, "abc")
Else
MessageBox.Show("Schema updated successfully", "abc")
End If
'objWait.Hide()
ElseIf ischange = False Then
MessageBox.Show("No schema changes found", "abc")
End If
End If
プロセスが UpdateSchema() で進行すると、フォームが消えるまでに約 30 ~ 45 秒かかります。プロセスが完了するまでフォームを画面上に表示し続ける方法はありますか?