將代碼從“私人子”復制到“共享子”

Question

我試圖在我的VB應用程序中每小時每小時運行一堆代碼。 該代碼在其自己的Sub中工作，但是當我將其添加到此“ TopOfTheHour” Shared Sub中時，出現錯誤“如果沒有該類的顯式實例，則無法從共享方法或共享成員初始化程序中引用該類的實例成員”

我離開了loadlbl。這是一個不起作用的示例，它只是我的主Form（Form1）上的一個標簽控件。 將刷新時間寫入控制台有效，但loadlbl.Visible = True無效。

    Private Shared Sub OnTimedEvent(source As Object, e As System.Timers.ElapsedEventArgs)
    Dim aTimer As System.Timers.Timer = CType(source, System.Timers.Timer)
    aTimer.Stop()
    Console.WriteLine("Server Status Refreshed at " & DateTime.Now)
    loadlbl.Visible = True
    'Far more code is here, much of it with the same error.
    aTimer.Interval = MillisecondsToNextTopOfTheHour()
    aTimer.Start()
End Sub

我的表1中的所有代碼（包括我想要添加到這個共享子什么的）是這里的引擎收錄。 （VB語法突出顯示處於啟用狀態，因此代碼更易於閱讀）

謝謝！

Answer 1

您是否真的需要“共享”此方法？ 刪除共享，然后重試。

共享表示方法不是實例方法，它無權訪問任何局部變量。