質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.50%
VB.NET

Microsoft Visual Basic .NETのことで、Microsoft Visual Basic(VB6)の後継。 .NET環境向けのプログラムを開発することができます。 現在のVB.NETでは、.NET Frameworkを利用して開発を行うことが可能です。

Q&A

解決済

1回答

1091閲覧

起動時、ボタンを押すことができない

shinchan0424

総合スコア26

VB.NET

Microsoft Visual Basic .NETのことで、Microsoft Visual Basic(VB6)の後継。 .NET環境向けのプログラムを開発することができます。 現在のVB.NETでは、.NET Frameworkを利用して開発を行うことが可能です。

0グッド

0クリップ

投稿2020/09/25 02:50

編集2020/09/25 03:57

前提・実現したいこと

一定期間を過ぎたファイルを削除して、その後メインを起動するシステムを作ろうとしています。

そのファイルを削除するという工程をスキップするボタンがあるのですが、そのボタンをファイル削除中に押すことができません。

コードはVB.NETで書いています。

Windows Forms を作っています。

開発環境は、
win10
visual studio express 2017
.NET Framework 4.6.2
です。

該当のソースコード

VB

1 2’リセットのボタンを押したときの処理 3Private Sub reset_Click(sender As Object, e As EventArgs) Handles reset.Click 4 BackgroundWorker1.CancelAsync() 5End Sub 6 7 8’ファイル削除を行う処理 9Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork 10 11 Dim bgWorker As BackgroundWorker = DirectCast(sender, BackgroundWorker) 12 13 ' パラメータをObject 型からキャストして取り出す 14 Dim maxLoops As Integer = CType(e.Argument, Integer) 15 16 For i = 0 To maxLoops - 1 17 If bgWorker.CancellationPending Then 18 'キャンセルされたとき 19 e.Cancel = True 20 Return 21 End If 22 23 Kill(delete_file_list(i)) 24 bgWorker.ReportProgress(i, delete_file_list(i)) 25 26 Next 27 End Sub 28 29 Private Sub BackgroundWorker1_ProgressChanged(ByVal sender As Object, ByVal e As ProgressChangedEventArgs) Handles BackgroundWorker1.ProgressChanged 30 31 'ProgressBar1の値を変更する 32 ProgressBar.Value = e.ProgressPercentage 33 34 'Labelのテキストを変更する 35 Min.Text = e.ProgressPercentage.ToString 36 lblfileName.Text = CType(e.UserState, String) 37 38 '画面の更新 39 Min.Refresh() 40 lblfileName.Refresh() 41 End Sub

delete_file_list には削除するファイルが配列で入っています。
maxLoops は delete_file_list.count と同じ意味です。

BackgroundWorker1_RunWorkerCompletedも書いているのですが、今回は割愛しております。

試したこと

BackgroundWorker1_ProgressChangedのところで、

画面更新やテキスト変更の部分をコメントアウトするとボタンを押すことができます。

'ProgressBar1の値を変更する
ProgressBar.Value = e.ProgressPercentage

'Labelのテキストを変更する Min.Text = e.ProgressPercentage.ToString 'lblfileName.Text = CType(e.UserState, String) '画面の更新 'Min.Refresh() 'lblfileName.Refresh()

画面の処理のところをプログレスバーだけにするとボタンを押すことができます。

もしできないのでありましたら、仕様の変更も考えております。

少ない情報で申し訳ないのですが、何か解決策などございましたら、よろしくお願いいたします。

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

退会済みユーザー

退会済みユーザー

2020/09/25 03:22 編集

何を作っているか(Windows Forms? WPF? ASP.NET Web Forms? その他?)と開発環境(OS, Visual Studio のバージョン、.NET Framework か Core のどっちかとそのバージョンなど)ぐらいは書きませんか?
shinchan0424

2020/09/25 03:47

何を作っているか Windows Forms 開発環境 win10 visual studio express 2017 .NET Framework 4.6.2 です。
退会済みユーザー

退会済みユーザー

2020/09/25 03:52

上記は質問欄を編集して追記してください。コメント欄は見ない人がいますので。 BackgroundWorker を使うのは必須ですか? .NET 4.6.2 なのに・・・
shinchan0424

2020/09/25 04:00

追記いたしました。ありがとうございます。 必須ではございません。自分でいろいろ調べたりして、使用しています。 他の方法があるのでしょうか、、?
退会済みユーザー

退会済みユーザー

2020/09/25 04:06

> 他の方法があるのでしょうか、、? .NET 4.5 以降であれば async / await / Task を使うのかなと思ったもので(以下の記事を見てください)。余計なお世話でしたら失礼しました。 第1回 .NET開発における非同期処理の基礎と歴史 https://www.atmarkit.co.jp/fdotnet/chushin/masterasync_01/masterasync_01_02.html
退会済みユーザー

退会済みユーザー

2020/09/25 04:29

ご参考までに以下の記事も紹介しておきます。 BackgroundWorker を使った 2006 年の記事 時間のかかる処理をバックグラウンドで実行するには?[2.0のみ、C#、VB] https://www.atmarkit.co.jp/fdotnet/dotnettips/436bgworker/bgworker.html async/await を使った 2015 年の記事 WPF/Windowsフォーム:時間のかかる処理をバックグラウンドで実行するには?(async/await編) https://www.atmarkit.co.jp/ait/articles/1512/02/news019.html
shinchan0424

2020/09/25 06:50

ありがとうございます! 記事を読ませていただき、いろいろ試したのですが、ちょっと自分にはまだうまく使えませんでした。。 今回は違う方法をとり、どうにか動くようになりました。 async/await もとても興味深いので、学習して使えるようにしていきたいなと思っています。 ありがとうございました!
guest

回答1

0

自己解決

色々調べて試したのですが、なぜかボタンを押すことはできない。。。

Application.DoEvents() を利用することにいたしました。

ファイル削除のところと、UIコントロールのところを一つにして

For i = 0 To delete_file_list.Count - 1
Application.DoEvents()
'Kill(delete_file_list(i))

'ProgressBar1の値を変更する ProgressBar.Value += 1 'Labelのテキストを変更する Min.Text = ProgressBar.Value.ToString() lblfileName.Text = delete_file_list(i) Min.Refresh() lblfileName.Refresh() If Not reset_flag Then 'start_up() Close() Exit Sub End If

Next

このように書くとボタンを押すことができました。

reset_flagはボタンを押すとfalse になり、
start_upはこの処理が終わった後に起動するプログラムを呼び出しています。

投稿2020/09/25 06:49

shinchan0424

総合スコア26

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.50%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問