Question

VB设计程序时发现二义性名称怎么修改？

Private Sub Command1_Click()
If Index = 0 Then
Label1.Visible = True
Else
End
End If
End Sub

Private Sub Form_Load()
Label1.Caption = "欢迎来到VB大世界"
Label1.Font = "黑体"
Label1.FontSize = 10
Label1.ForeColor = vbRed
Label1.Visible = False
End Sub
Private Sub Command2_Click()
If Index = 0 Then
Label2.Visible = True
Else
End
End If
End Sub

Private Sub Form_Load()
Label2.Caption = "欢迎来到VB大世界"
Label2.Font = "宋体"
Label2.FontSize = 10
Label2.ForeColor = vbGreen
Label2.Visible = False
End Sub

这个是我做的显示文字的工程。我运行时说 发现二义性名称:Form_Load 我知道是出现了两个 Form_Load 请问怎么修改？

Answer 1

把两个并脊Form_Load代码合并
Private Sub Command1_Click()
If Index = 0 Then
Label1.Visible = True
Else
End
End If
End Sub

Private Sub Form_Load()
Label1.Caption = "欢迎来到VB大世界"
Label1.Font = "黑体"
Label1.FontSize = 10
Label1.ForeColor = vbRed
Label1.Visible = False
Label2.Caption = "欢迎来到VB大世界喊慧"
Label2.Font = "宋体"郑蔽答
Label2.FontSize = 10
Label2.ForeColor = vbGreen
Label2.Visible = False
End Sub
Private Sub Command2_Click()
If Index = 0 Then
Label2.Visible = True
Else
End
End If
End Sub