VB程序问题求助

来源:百度知道 编辑:UC知道 时间:2024/05/28 15:44:22
Private Sub Form_Load()
Me.Height = 3100
Me.Width = 4665
Cmdl(0).Enabled = True
Cmd1(1).Enabled = False
Cmd1(2).Enabled = False
lst1.AddIterm "周杰伦-发如雪.MP3"
lst1.AddIterm "叶倩文-潇洒走一回.mp3"
lst1.AddIterm "王力宏-盖世英雄.mp3"
lst1.AddIterm "李春波-小芳.mp3"
End Sub
这是全部程序,第一部分运行时老说Cmd1子函数或子程序未定义,麻烦大家帮我改改

Cmd1和lst1是控件,你要在窗体上建立

先拖一个CommandButton控件到窗体上,改名称为cmd1,然后复制它,在窗体上粘贴两次,选择创建控件数组,重新安排它们的位置,一共3个
再拖一个ListBox控件到窗体上,改名称为lst1

然后复制下面的代码,执行你这个程序(看清楚哦,你原来的程序中,Cmd1写成Cmdl,字母l要改成数字1,还有,AddIterm也要改成AddItem)

Private Sub Form_Load()
Me.Height = 3100
Me.Width = 4665
Cmd1(0).Enabled = True
Cmd1(1).Enabled = False
Cmd1(2).Enabled = False
lst1.AddItem "周杰伦-发如雪.MP3"
lst1.AddItem "叶倩文-潇洒走一回.mp3"
lst1.AddItem "王力宏-盖世英雄.mp3"
lst1.AddItem "李春波-小芳.mp3"
End Sub

话都不会说,同情。

他可能是想弄个MP3播放器

楼主赶紧补全问题吧,否则会被人bs的。

Private Sub Form_Load()
Me.Height = 3100
Me.Width = 4665
Cmdl(0).Enabled = True
Cmd1(1).Enabled = False
Cmd1(2).Enabled = False
lst1.AddIterm "周杰伦-发如雪.MP3"
lst1.AddIterm "叶倩文-潇洒走一回.mp3"
lst1.AddIterm "王力宏-盖世英雄.mp3"
lst1.AddIterm "李春波-小芳.mp3"
End