DoEvents в VB .aspx - PullRequest
Новая
       31

DoEvents в VB .aspx

0 голосов
/ 10 апреля 2020

Я проверил много примеров страниц, связанных с Application.DoEvents (), но не могу заставить его работать.

Сообщение об ошибке компилятора: BC30456: «DoEvents» не является членом «System.Web.HttpApplicationState» .

Строка 970: Application.DoEvents ()

Процесс: Запустить Sub для генерации CSV-файлов, которые занимают много времени, мне нужно остановить процесс в случае возникновения ошибок, если возможно, пройти статус сообщения о прогрессе и ошибки Label.Text в форме.

Код: 


    %@ Page Language="VB" Debug="true" AutoEventWireup="true" ASpCompat="true" Culture="en-US"%>

    %@ Import Namespace="System" %>
    %@ Import Namespace="System.ComponentModel" %>
    %@ Import Namespace="System.Threading" %>
    %@ Import Namespace="System.Windows.Threading " %>
    %@ Import Namespace="System.Windows.Forms" %>

    form id=form1>
       asp:Button ID="Submit" runat="server" Text="Submit" OnClick="Process"
       asp:Button ID="StopNow" runat="server" Text="Stop" OnClick="StopProcess"
    /form>

    

    Public StopFlag As Boolean

    Private Sub StopProcess(ByVal sender As Object, e As EventArgs)  Handles StopNow.Click
        StopFlag = True 
    End Sub

    Private Sub Process(ByVal sender As Object, ByVal e As EventArgs) 'Handles Submit.Click

        StopFlag = False

        While RS2.Read()

            the homework here...

            Application.DoEvents()  

            If StopFlag = True Then
                Msg.Text = STOPPED BY USER"
                CloseFiles()
                Exit While
            End If

        End While

    End Sub

    /script>
...