你的代码来自与VB6中的关于对话框的代码,
当你在VB6中新增加一个窗体是,选择关于对话框,再看其Form_Load的代码,就是你的代码。
lblTitle是该窗体中的一个Label控件,你的程序中可能把它删除了
lblTitle是个控件,你可能输入错了,点这个label的Name属性看下 。
在窗体中添加一个label控件,并把它的(名称)由默认的label1改为lblVersion,放可以了。
把所有的MediaPlayer1改成WindowsMediaPlayer1即可
控件名用错了
或者更改属性中的名称为MediaPlayer1也可以的
Public
rs
As
New
Recordset
Sub
connectdb(constr
As
String)
constr
=
"Provider=Microsoft.Jet.OLEDB.4.0;Data
Source="
&
App.Path
&
"\table.mdb;Persist
Security
Info=False"
End
Sub