Окно со статусбаром и кнопкой "Отмена". Как отследить событие нажатия кнопки?

@Allleksey · Регистрация: 24.02.2016

Author24 — интернет-сервис помощи студентам

Доброго времени суток, коллеги!

Ситуация следующая. Из MainForm запускаю отображение второй формы (ProgressForm)
На второй форме есть ProgressBar1 и Button1. т.е. вторая форма является неким всплывающим окном, отображающем статусбар. Дальнейшая работа программы продолжается в процедуре, находящейся в другом модуле. Соответственно я не могу "отловить" событие нажатия на кнопку 1 на форме со статусбаром (предполагается кнопка "Отмена")
Подскажите, как можно отследить события на второй форме для отработки процедуры отмены?

@bbbw · 15.12.2018, 21:57

Родительская форма:

VB.NET

Public Class Form1
    Public Sub B()
        MsgBox("Отмена")
    End Sub
End Class

Форма с кнопкой:

VB.NET

Public Class Form2
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Form1.B()
    End Sub
End Class

@Allleksey · 16.12.2018, 08:10 **[ТС]**

bbbw, не работает у меня такая связка.

@bbbw · 16.12.2018, 10:15

Allleksey, Что значит не работает? Код покажите?

@Allleksey · 16.12.2018, 16:26 **[ТС]**

bbbw,

Модуль основной, родительской формы. Процедура вызова отображения ПрогрессБара и процедура изменения отображаемой информации к окне прогрессбара находятся тут:

Кликните здесь для просмотра всего текста

VB.NET

Public Class FormMain
 
Public Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
...
...
 
Call OpenFormProgress()
...
...
Call WriteProgress(strNewWriteText)
...
...
End Sub
 
End Class

Модуль подпрограмм. В нем располагаются процедуры показа окна ПрогрессБара и процедура смены информации.

Кликните здесь для просмотра всего текста

VB.NET

Module ModuleSubProgramm
    Sub OpenFormProgress()
        With FormProgress
            .Label1.Text = ""
            .Label2.Text = ""
            .Label3.Text = ""
            .Label4.Text = ""
            .Label5.Text = ""
            .Label6.Text = ""
            .Show()
            .ShowInTaskbar = True
        End With
    End Sub
 
  Sub WriteProgress(strNewWriteText)
        Dim strPreviousWriteText As String
        If FormProgress.Label1.Text = "" Then
            FormProgress.Label1.Text = strNewWriteText & " ..."
 
            Exit Sub
        End If
        If FormProgress.Label2.Text = "" Then
            strPreviousWriteText = Left(FormProgress.Label1.Text, Len(FormProgress.Label1.Text) - 3) & " Обработка завершена"
            FormProgress.Label1.Text = strPreviousWriteText
            FormProgress.Label2.Text = strNewWriteText & " ..."
            Exit Sub
        End If
        If FormProgress.Label3.Text = "" Then
            strPreviousWriteText = Left(FormProgress.Label2.Text, Len(FormProgress.Label2.Text) - 3) & " Обработка завершена"
            FormProgress.Label2.Text = strPreviousWriteText
            FormProgress.Label3.Text = strNewWriteText & " ..."
            Exit Sub
        End If
        If FormProgress.Label4.Text = "" Then
            strPreviousWriteText = Left(FormProgress.Label3.Text, Len(FormProgress.Label3.Text) - 3) & " Обработка завершена"
            FormProgress.Label3.Text = strPreviousWriteText
            FormProgress.Label4.Text = strNewWriteText & " ..."
            Exit Sub
        End If
        If FormProgress.Label5.Text = "" Then
            strPreviousWriteText = Left(FormProgress.Label4.Text, Len(FormProgress.Label4.Text) - 3) & " Обработка завершена"
            FormProgress.Label4.Text = strPreviousWriteText
            FormProgress.Label5.Text = strNewWriteText & " ..."
            Exit Sub
        End If
        If FormProgress.Label6.Text = "" Then
            strPreviousWriteText = Left(FormProgress.Label5.Text, Len(FormProgress.Label5.Text) - 3) & " Обработка завершена"
            FormProgress.Label5.Text = strPreviousWriteText
            FormProgress.Label6.Text = strNewWriteText & " ..."
            Exit Sub
        End If
        FormProgress.Label1.Text = FormProgress.Label2.Text
        FormProgress.Label2.Text = FormProgress.Label3.Text
        FormProgress.Label3.Text = FormProgress.Label4.Text
        FormProgress.Label4.Text = FormProgress.Label5.Text
        FormProgress.Label5.Text = Left(FormProgress.Label6.Text, Len(FormProgress.Label6.Text) - 3) & " Обработка завершена"
        FormProgress.Label6.Text = strNewWriteText & " ..."
    End Sub
 
End Module

Непосредственно модуль ПрогрессБара в котором размещена процедура обработки нажатия кнопки.

Кликните здесь для просмотра всего текста

VB.NET

Public Class FormProgress
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Call CancalButton()
    End Sub
 
End Class

Процедуру CancalButton() где мне необходимо поместить? В модуле ModuleSubProgramm?

Кликните здесь для просмотра всего текста

VB.NET

1
2
3

Sub CancalButton()
    MsgBox("Кнопка отмены нажата")
End Sub

@bbbw · 16.12.2018, 17:19

Allleksey,

Сообщение от Allleksey

Процедуру CancalButton() где мне необходимо поместить? В модуле ModuleSubProgramm?

В модуле FormMain
Только не так как вы написали а Public Sub !
А вызывать так:

VB.NET

Public Class FormProgress
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       FormMain.CancalButton()
    End Sub
End Class

Либо можно так:

Сообщение от Allleksey

Модуль основной, родительской формы. Процедура вызова отображения ПрогрессБара и процедура изменения отображаемой информации к окне прогрессбара находятся тут:

Объявите переменную:

VB.NET

1	Public d as Boolean = False

Добавьте условие в цикл выполнения :

VB.NET

1
2
3

If d=True Then
MsgBox("Кнопка отмены нажата")
End If

Сообщение от Allleksey

Непосредственно модуль ПрогрессБара в котором размещена процедура обработки нажатия кнопки.

VB.NET

Public Class FormProgress
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        FormMain.d = True
    End Sub
End Class

Обязательно объявляйте общие переменные и функции какPublic

@Allleksey · 16.12.2018, 17:49 **[ТС]**

bbbw, что характерно, не работает.

Модуль с ПрогрессБаром

VB.NET

Public Class FormProgress
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Call FormMain.CancalButton()
    End Sub
End Class

Модуль с основной формой

VB.NET

Public Class FormMain
 
    Public Sub CancalButton()
        Debug.Print("Кнопка отмены нажата")
    End Sub
 
End Class

Еще что заметил... когда над кнопкой проходит мышь, кнопка меняет цвет (во всех формах). В этой форме нет такого. Нет визуального подтверждения, что кнопка нажимается. Может быть что то со свойствами самой формы не так?

Добавлено через 4 минуты
Когда открывается форма FormProgress... в меню задач Windows отображается и основная программа и форма ПрогрессБара. Но вот перевести фокус на основную форму я не могу. Форма с прогрессБаром находится сверху и фокус не переводится на основную форму.

@bbbw · 16.12.2018, 19:13

Сообщение от Allleksey

Форма с прогрессБаром находится сверху и фокус не переводится на основную форму.

Как вызываете?
Сравните вызовы.

@Allleksey · 16.12.2018, 19:50 **[ТС]**

Сообщение от bbbw

Как вызываете?
Сравните вызовы.

Не совсем понял...

VB.NET

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Debug.Print("кнопка нажата")
        FormMain.CancalButton()
    End Sub

Даже так сообщение не выводится. Не отлавливается событие.

@bbbw · 16.12.2018, 19:57

Allleksey, Форму как вызываете - сравните с вызовом другой формы.
Такое ощущение, что вы не форму вызываете а MsgBox

@Allleksey · 16.12.2018, 20:02 **[ТС]**

Есть еще один нюанс. В процессе всего времени показа FormProgress работает процедура в FormMain. После окончания работы этой процедуры FormProgress закрывается. Т.е. нет момента времени, когда программа бездействует и ждет события в одной из форм.

@bbbw · 16.12.2018, 20:06

Сообщение от Allleksey

Т.е. нет момента времени, когда программа бездействует и ждет события в одной из форм.

Код покажите. А проще проект целиком.

@Allleksey · 16.12.2018, 20:10 **[ТС]**

Сообщение от bbbw

Такое ощущение, что вы не форму вызываете а MsgBox

VB.NET

Sub OpenFormProgress()
        With FormProgress
            .Label1.Text = ""
            .Label2.Text = ""
            .Label3.Text = ""
            .Label4.Text = ""
            .Label5.Text = ""
            .Label6.Text = ""
            .Show()
            .ShowInTaskbar = True
        End With
    End Sub

Или где то еще нужно что то проверить?

Добавлено через 3 минуты

Сообщение от bbbw

Код покажите. А проще проект целиком.

Текст всей процедуры.

VB.NET

Public Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        DataGridView1.Rows.Clear()
 
        Dim strNewWriteText As String
        Dim dblSummCosts As Double ' Сумма прямых затрат
        Dim intRowsNomber As Integer = 0
        Dim strShortCalcName As String ' Короткое имя файла калькуляции
        oExcelCalc.Visible = False
        ' определение значений для статусбара
        Dim StatusBarMaxVal As String = 0
        Dim decTotalWuthoutWAT As Decimal
 
        Dim arrExcelWorkSheet(151, 73)
 
        intCansel = 1
 
 
        For Each strCalcName As String In IO.Directory.GetFiles(strProjecrFolderCalc, "*.xlsx")
            StatusBarMaxVal = StatusBarMaxVal + 1
        Next
        FormProgress.ProgressBar1.Maximum = StatusBarMaxVal
        FormProgress.ProgressBar1.Step = 1
        FormProgress.ShowInTaskbar = False
        FormProgress.Text = "Формирование сводной информации"
 
        ' Обнуление раздела условий оплаты перед началом заполнения таблицы.
        Me.TextBox6.Text = ""
        Me.TextBox7.Text = ""
        Me.TextBox8.Text = ""
        Me.TextBox9.Text = ""
        Me.TextBox10.Text = ""
 
        Call OpenFormProgress()
 
        Dim FirstFile As Boolean = False
        ' Заполнение таблицы значениями из файлов
 
        For Each strCalcName As String In IO.Directory.GetFiles(strProjecrFolderCalc, "*.xls*") ' переменная stCalcName содержит название открываемого файла с путем
            ' Проверка на наличие временного файла.
            If strCalcName.Contains("~$") Then ' Если временный файл найден
                GoTo Cont2 ' то переход к следующемуфайлу
            End If
            Dim temp As String = Mid$(strCalcName, InStrRev(strCalcName, "\") + 1)
            Dim strPosName As String = Strings.Left(temp, Len(temp) - 5)
            strShortCalcName = Strings.Left(Dir(strCalcName), Len(Dir(strCalcName)) - 5)
 
 
 
            Me.DataGridView1.Rows.Add()
            intRowsNomber = Me.DataGridView1.Rows.Count - 1
 
 
            strNewWriteText = strPosName
            Call WriteProfress(strNewWriteText)
            If Len(strCalcName) > 210 Then
                Me.DataGridView1.Item("FileName", intRowsNomber).Value = strCalcName ' Название файла
                Me.DataGridView1.Item("PositionName", intRowsNomber).Value = strPosName ' Название позиции
                Me.DataGridView1.Item("Note", intRowsNomber).Value = "Не допустимая длина полного имени файла"
                GoTo Cont2
            End If
 
            oExcelCalc.Workbooks.Open(strCalcName) ' открытие файла калькуляции
 
            oExcelCalc.ActiveSheet.Unprotect(Password:="fedosov78!!")
 
            arrExcelWorkSheet = Me.oExcelCalc.Range("A1:BU151").Value ' Сохранение всего листа с калькуляцией в массиве
 
            ' Проверка открытого файла на соответствие версии калькуляции
            Dim decCalcCardVer As Decimal
            'decCalcCardVer = oExcelCalc.Range("BS18").Value
            decCalcCardVer = CDec(arrExcelWorkSheet(18, 71))
 
            Dim x As Integer
            Dim y As Integer
            x = Screen.PrimaryScreen.WorkingArea.Width / 2 - 230
            y = Screen.PrimaryScreen.WorkingArea.Height / 2
            FormProgressChangeVer.Location = New Point(x, y)
 
            If decCalcCardVer = 3.2 Then
                FormProgressChangeVer.ProgressBar1.Maximum = 85
                FormProgressChangeVer.Show()
                Call ChangVersion()
                FormProgressChangeVer.Close()
                decCalcCardVer = arrExcelWorkSheet(18, 71)
            End If
 
            If decCalcCardVer = 3.3 Then
                FormProgressChangeVer.ProgressBar1.Maximum = 81
                FormProgressChangeVer.Show()
                Call ChangVersion2()
                FormProgressChangeVer.Close()
                decCalcCardVer = arrExcelWorkSheet(18, 71)
            End If
 
            If decCalcCardVer = 3.4 Then
                FormProgressChangeVer.ProgressBar1.Maximum = 77
                FormProgressChangeVer.Show()
                Call ChangVersion3()
                FormProgressChangeVer.Close()
                decCalcCardVer = arrExcelWorkSheet(18, 71)
            End If
 
 
            If decCalcCardVer < 3.2 Then
                Me.DataGridView1.Item("FileName", intRowsNomber).Value = strCalcName ' Название файла
                Me.DataGridView1.Item("PositionName", intRowsNomber).Value = strPosName ' Название позиции
                Me.DataGridView1.Item("Note", intRowsNomber).Value = "Устаревшая версия калькуляционной карты"
                GoTo Cont
            End If
            If FirstFile = False Then
 
                Me.TextBox1.Text = arrExcelWorkSheet(26, 57)
                Me.TextBox10.Text = arrExcelWorkSheet(20, 40)
                Me.TextBox6.Text = arrExcelWorkSheet(21, 40)
                Me.TextBox7.Text = arrExcelWorkSheet(22, 40)
                Me.TextBox8.Text = arrExcelWorkSheet(23, 40)
                Me.TextBox9.Text = arrExcelWorkSheet(23, 43)
                FirstFile = True
            End If
            ' Заполнение таблицы значениями из прочитанного файла
 
            Me.DataGridView1.Item("FileName", intRowsNomber).Value = strCalcName ' Название файла
            Me.DataGridView1.Item("PositionName", intRowsNomber).Value = strPosName ' Название позиции
            Me.DataGridView1.Item("MaterialPrice", intRowsNomber).Value = arrExcelWorkSheet(3, 21) ' Цена материала
            Me.DataGridView1.Item("AccessoriesPrice", intRowsNomber).Value = arrExcelWorkSheet(4, 21) ' Цена комплектующих
            Me.DataGridView1.Item("ServicesPrice", intRowsNomber).Value = arrExcelWorkSheet(5, 21) ' Цена входящих услуг
            Me.DataGridView1.Item("OptionalEquipmentPrice", intRowsNomber).Value = arrExcelWorkSheet(129, 50) ' Цена дополнительного оборудования
            Me.DataGridView1.Item("LabolCoastPrice", intRowsNomber).Value = arrExcelWorkSheet(13, 21) ' Цена трудозатрат
            Me.DataGridView1.Item("OptionalMaterialPrice", intRowsNomber).Value = arrExcelWorkSheet(22, 21) ' Дополнительные затраты на материалы
            Me.DataGridView1.Item("Profitability", intRowsNomber).Value = Format(arrExcelWorkSheet(20, 18) * 100, "##0.0") ' Рентабельность в %
            Me.DataGridView1.Item("MarkupAdditionalEquipment", intRowsNomber).Value = Format(arrExcelWorkSheet(21, 18) * 100, "##0.0") ' Наценка на дополнительное оборудование в %
            Me.DataGridView1.Item("ShippingCost", intRowsNomber).Value = Format(arrExcelWorkSheet(23, 21), "### ### ##0.00") ' Стоимость доставки до клиента
 
           
            Me.DataGridView1.Item("TEG", intRowsNomber).Value = arrExcelWorkSheet(28, 57) ' ТЭГ
 
            Call CheckProfitability(intRowsNomber) ' Процедура анализа коэффициента рентабельности.
            Call ShowAttention() ' показывает предупреждение о низкой рентабельности по позиции
            Call CheckCalcEnd(intRowsNomber) ' переход на подпрограмму проверки окончания расчетов по калькуляционным картам
Cont:
 
            intRowsNomber = intRowsNomber + 1 ' увеличение номера строки на 1
            oExcelCalc.ActiveSheet.Protect(Password:="fedosov78!!")
            oExcelCalc.Application.DisplayAlerts = False
            oExcelCalc.Workbooks.Close()
            oExcelCalc.Application.DisplayAlerts = True
Cont2:
            FormProgress.ProgressBar1.Value = FormProgress.ProgressBar1.Value + 1
        Next
 
        FormProgress.Close()
        oExcelCalc.Application.Quit()
 
        Call CalcSumm() ' Расчет сумм по проекту.
        Call CheckFillTab() ' показ кнопок управления ри сформированной таблице
        Call CheckProjectConditions() 'проверка и отметка цветами не заполненных полей в раздере условий оплаты.
 
    End Sub

@bbbw · 16.12.2018, 20:22

Попробуйте добавить после этой строки

VB.NET

1	FormProgress.ProgressBar1.Value = FormProgress.ProgressBar1.Value + 1

Следующее:

VB.NET

1	Application.DoEvents()

@Allleksey · 16.12.2018, 20:27 **[ТС]**

Сообщение от bbbw

Application.DoEvents()

Вот это помогло! Спасибо огромное.

@bbbw · 16.12.2018, 20:29

Пожалуйста

Просто не забывайте вставлять эту строку в циклы, во время которых происходят другие действия(события).

@Allleksey · 16.12.2018, 20:54 **[ТС]**

Может быть итоговое решение кому то пригодится.

Процедура обработки нажатия кнопки

VB.NET

Public Class FormProgress
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        FormMain.blnClikCancalButton = True
    End Sub
End Class

В начале FormMain объявлена глобальная переменная признака отмены

VB.NET

1 2	Public Class FormMain Public blnClikCancalButton As Boolean

В самой процедуре FormMain

VB.NET

...
...
...
           Application.DoEvents()
           If blnClikCancalButton = True Then
                FormProgress.Close()
                Me.DataGridView1.Rows.Clear()
                Call CheckFillTab()
                Me.Button1.Enabled = False
                oExcelCalc.Workbooks.Close()
                GoTo StopSub1
            End If
...
...
...
StopSub1:
End Sub

@Orlangur · 16.12.2018, 22:14

Allleksey, лучше используйте для этих действий BackgroundWorker.
-выполняет какую-либо операцию асинхронно
-поддерживает завершение операции (CancelAsync)
-имеет событие завершения работы
И не придется городить подобных конструкций с goto

@Allleksey · 17.12.2018, 07:55 **[ТС]**

Orlangur1991, мысль интересная, но не сработала. Возможно нужно изменить код (адаптировать под выполнение задачи в фоне).
На форме есть DataGridView1. Процедуру, код которой приводил выше, попытался "загнать" в фоновое выполнение.

VB.NET

1
2
3

Private Sub BackgroundWorker1_DoWork(sender As Object, e As DoWorkEventArgs) Handles BackgroundWorker1.DoWork
...
End Sub

И сразу получил ошибку при выполнении операции добавления строки

VB.NET

1	Me.DataGridView1.Rows.Add()

Текст ошибки:
System.InvalidOperationException: "Недопустимая операция в нескольких потоках: попытка доступа к элементу управления 'DataGridView1' не из того потока, в котором он был создан."

@Orlangur · 17.12.2018, 10:46

Allleksey, любое обращение к элементам формы в этом случае необходимо делать через Invoke, например

VB.NET

1	Invoke(Sub() Me.DataGridView1.Rows.Add())

@Allleksey 4 / 4 / 0 Регистрация: 24.02.2016 Сообщений: 229
	16.12.2018, 20:02 [ТС]	11
	Есть еще один нюанс. В процессе всего времени показа FormProgress работает процедура в FormMain. После окончания работы этой процедуры FormProgress закрывается. Т.е. нет момента времени, когда программа бездействует и ждет события в одной из форм. 0

@Allleksey 4 / 4 / 0 Регистрация: 24.02.2016 Сообщений: 229
	16.12.2018, 08:10 [ТС]	3
	bbbw, не работает у меня такая связка. 0

@bbbw 169 / 99 / 25 Регистрация: 07.08.2016 Сообщений: 382 Записей в блоге: 1
	16.12.2018, 10:15	4
	Allleksey, Что значит не работает? Код покажите? 0

@bbbw 169 / 99 / 25 Регистрация: 07.08.2016 Сообщений: 382 Записей в блоге: 1
	16.12.2018, 19:13	8
	Сообщение от Allleksey Форма с прогрессБаром находится сверху и фокус не переводится на основную форму. Как вызываете? Сравните вызовы. 0

@bbbw 169 / 99 / 25 Регистрация: 07.08.2016 Сообщений: 382 Записей в блоге: 1
	16.12.2018, 19:57	10
	Allleksey, Форму как вызываете - сравните с вызовом другой формы. Такое ощущение, что вы не форму вызываете а MsgBox 0

@bbbw 169 / 99 / 25 Регистрация: 07.08.2016 Сообщений: 382 Записей в блоге: 1
	16.12.2018, 20:06	12
	Сообщение от Allleksey Т.е. нет момента времени, когда программа бездействует и ждет события в одной из форм. Код покажите. А проще проект целиком. 0

@Allleksey 4 / 4 / 0 Регистрация: 24.02.2016 Сообщений: 229
	16.12.2018, 20:27 [ТС]	15
	Сообщение от bbbw Application.DoEvents() Вот это помогло! Спасибо огромное. 0

@bbbw 169 / 99 / 25 Регистрация: 07.08.2016 Сообщений: 382 Записей в блоге: 1
	16.12.2018, 20:29	16
	Пожалуйста Просто не забывайте вставлять эту строку в циклы, во время которых происходят другие действия(события). 0

@Orlangur Лень — мое второе и 3206 / 2397 / 684 Регистрация: 28.11.2014 Сообщений: 3,587 Записей в блоге: 3
	16.12.2018, 22:14	18
	Allleksey, лучше используйте для этих действий BackgroundWorker. -выполняет какую-либо операцию асинхронно -поддерживает завершение операции (CancelAsync) -имеет событие завершения работы И не придется городить подобных конструкций с goto 2

Окно со статусбаром и кнопкой "Отмена". Как отследить событие нажатия кнопки?

Решение