Question

发现二义性名称form load 怎么改

Private Sub Command1_Click()

End

End Sub
Private Sub Form_Load()
Label1.Visible = False
Picture1.Visible = False
Picture2.Visible = False
Picture3.Visible = False
Text4.Visible = False
Text2.Visible = False
Text3.Visible = False
Option3.Visible = False
Option2.Visible = False
Option1.Visible = False
Option4.Left = -2000
Option4.Value = True

End Sub
Private Sub Image1_Click()
Option3.Visible = True
Option2.Visible = True
Option1.Visible = True
Label1.Visible = True
End Sub
Private Sub Image1_DblClick()
Label1.Visible = False
Picture1.Visible = False
Picture2.Visible = False
Picture3.Visible = False
Text4.Visible = False
Text2.Visible = False
Text3.Visible = False
Option3.Visible = False
Option2.Visible = False
Option1.Visible = False
Option4.Left = -2000
Option4.Value = True
End Sub
Private Sub Option1_Click()
Picture1.Visible = True
Picture2.Visible = False
Picture3.Visible = False
Text2.Visible = True
Text4.Visible = False
Text3.Visible = False
Text2.Text = "你答对了"
End Sub
Private Sub Option2_Click()
Picture1.Visible = False
Picture2.Visible = True
Picture3.Visible = False
Text3.Visible = True
Text4.Visible = False
Text2.Visible = False
Text3.Text = "错，很抱歉的说，你错了"
End Sub
Private Sub Option3_Click()
Picture1.Visible = False
Picture2.Visible = False
Picture3.Visible = True
Text4.Visible = True
Text3.Visible = False
Text2.Visible = False
Text3.Text = "没治了，你傻的"
End Sub

Answer 1

按正常情况的话就应该在其它地方还有一个Form_load(),把它删除,改名或者和现有Form_load合并即可.

Answer 2

缺哪个控件就画哪个控件
看来你对VB编译器还是有些不够熟悉。

Answer 3

你程序的其他地方肯定还有Form_Load(),你检查一下、

Answer 4

没问题啊

追问

Private Sub Form_Load()
要求对象

Answer 5

你是不是双击窗体然后把上面的代码都贴进去的？

追问

对啊 ...以前学了现在忘了

追答

如果是这样的话你检查一下代码是不是这样的：
Private Sub Form_Load()

Private Sub Form_Load()
代码......
End Sub
End Sub