BC30590错误：找不到Load事件，求助实现主窗体实时时间显示

错误根源分析 #

1. BC30590错误原因：你手动声明了Dim WithEvents Load As New EventArgs，这个变量名和窗体自带的Load事件重名，导致编译器无法识别正确的窗体Load事件，从而抛出“找不到Load事件”的错误。
2. Label控件问题：你将Label1声明为Object类型，无法直接访问Text属性；如果是通过设计器添加的Label，不需要手动声明该变量，设计器会自动生成正确的实例。
3. Timer命名混淆：Tick事件处理程序命名为Timer1_Tick，但绑定的是myTimer.Tick，虽然功能不受影响，但命名不统一会降低代码可读性。

修正代码（设计器添加控件场景） #

如果你已经通过WinForms设计器添加了Label1和Timer控件（将Timer的Name属性改为myTimer），使用以下代码即可正常运行：

Public Class MainForm
    ' 设计器已自动生成Label1和myTimer的声明，无需手动添加
    Private Sub MainForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        myTimer.Interval = 1000 ' 设置1秒刷新间隔
        myTimer.Start()
    End Sub

    Private Sub myTimer_Tick(sender As Object, e As EventArgs) Handles myTimer.Tick
        ' 更新Label显示当前日期时间
        Label1.Text = DateTime.Now.ToString("yyyy-MM-dd HH:mm:ss")
    End Sub
End Class

修正代码（纯代码创建控件场景） #

如果完全通过代码创建控件，使用以下代码：

Imports System.Windows.Forms

Public Class MainForm
    Private WithEvents myTimer As New Timer()
    Private Label1 As New Label()

    Private Sub MainForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' 配置Label控件
        Label1.Location = New Point(20, 20)
        Label1.Size = New Size(200, 24)
        Label1.Font = New Font("微软雅黑", 10)
        Me.Controls.Add(Label1)

        ' 配置Timer
        myTimer.Interval = 1000
        myTimer.Start()
    End Sub

    Private Sub myTimer_Tick(sender As Object, e As EventArgs) Handles myTimer.Tick
        Label1.Text = DateTime.Now.ToString("yyyy-MM-dd HH:mm:ss")
    End Sub
End Class

关键修正点总结 #

• 删除错误的Dim WithEvents Load As New EventArgs声明，恢复窗体默认的Load事件识别。
• 确保Label1为Label类型，而非Object；设计器添加的控件无需手动声明。
• 保持Timer实例名与Tick事件处理程序命名统一，提升代码可读性。

内容的提问来源于stack exchange，提问作者Manny Somarriba