黑白无常的哭丧棒:我是只VB菜鸟问个有关VB的问题 我该到底要怎么改啊 请大家指教我该怎么改啊 请大家指教

来源:百度文库 编辑:高考问答 时间:2024/05/02 20:44:24
我在按教程(http://www.edu.fp.net.cn/resource/program/y_vb/T211.avi
所说的做了(改了一点内容) 可是
运行时双击 GOOD这个列表框内的内容时(例如:PEN)就出现了

实时错误'424'
要求对象

到底是哪里写错了5555555555555
请教我一下怎么改啊

Private Sub Form_Load()
good.AddItem "pen"
good.AddItem "apple"
good.AddItem "pencle"
good.AddItem "desk"
good.AddItem "computer"
good.AddItem "mic"
good.AddItem "ball"
End Sub

Private Sub good_DblClick()
ownercom_Click
End Sub

Private Sub ownercom_Click()
Select Case good.ListIndex
Case 0
wonto.Text = "wang"
Case 1
wonto.Text = "ling"
Case 2
wonto.Text = "zao"
Case 3
wonto.Text = "qian"
Case 4
wonto.Text = "sun"
Case 5
wonto.Text = "li"
Case 6
wonto.Text = "zhang"
end select
End Sub

在窗体上添加一个text或lab控件,名称为wonto