Автоматическое закрытие диалоговой формы Fast Report

В коде отчета добавляем:

Public Class ReportScript

 Private MyTimer as New System.Windows.Forms.Timer

 Private Sub Form1_Load(ByVal sender As object, ByVal e As EventArgs)
     MyTimer.Interval = 1000 
     MyTimer.Enabled = True
     AddHandler MyTimer.Tick, Addressof TimerTick
 End Sub

 Private Sub TimerTick(ByVal sender As object, ByVal e As EventArgs)
     lbl_Info.Text = CStr(CInt(lbl_Info.Text) + 1)
     'Ждем 60 секунд и закрываем 
     If CInt(lbl_Info.Text) > 60 Then
          ' отключаем таймер
          MyTimer.Enabled = False

          ' здесь указываем действия                                               
           RadioButton2_Click(Nothing, Nothing)

          ' Закрываем форму
           Form1.AcceptButton = btnOk
           Form1.Form.AcceptButton.DialogResult= DialogResult.OK
           Form1.Form.AcceptButton.PerformClick()
     End If
End Sub

В качестве индикатора добавляем Label  с именем lbl_Info и значением Text = 0

 

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *