VB. NET Изменить текст в новой форме от отправителя - PullRequest
Новая
       34

VB. NET Изменить текст в новой форме от отправителя

1 голос
/ 26 мая 2020

Я пытаюсь открыть экран загрузки, а затем обновляю строку состояния на экране загрузки со статусом приложения. У меня есть следующее.

LoadingProgressScreen.vb: 

Friend WithEvents StatusText As Windows.Forms.ToolStripStatusLabel
Public Sub newStatus(NewStatusText As String)
    Me.StatusText.Text = NewStatusText
End Sub

Main.vb: 

Sub Main()
  Dim dateRequest As New DateRequest
  Application.Run(dateRequest)

  dateStr = dateRequest.DeliveryDate.ToString("yyyy-MM-dd")
  DataUploader(dateStr)
End Sub

Sub DataUploader(ByVal dateStr As String)
  Dim loadingScreen As New LoadingProgressScreen
  Application.Run(loadingScreen)
  loadingScreen.newStatus("Gathering data for " & dateStr)
  conn.ConnectionString = "DSN=" & databaseDSN & ";Uid=" & databaseUsername & ";Pwd=" & databasePassword
  ...
  conn.Open()
  ...
  Reader = Cmd.ExecuteReader()
  ...
End Sub

Форма DateRequest - это просто календарь для выбора даты.

Я не получаю желаемого результата.

Я вижу другие вопросы, когда люди меняют текст в исходной форме из созданной новой, но я не могу найти ничего, что помогло бы в этой ситуации.

...