Question

向广大的Vb高手求救！！

这是我用Vb编程媒体播放器代码，但是我放在桌面的文件播放不了错误老是显示，MediaPlayer1.FileName = CommonDiaglog1.FileName错误，我别的绝对没错可以放心，高手看看帮我解决一下谢谢了

MediaPlayer1.stop
Unload Me
End Sub

Private Sub CmdOpen_Click()
CommonDialog1.ShowOpen
If CommonDialog1.FileName = "" Then Exit Sub
MediaPlayer1.FileName = CommonDiaglog1.FileName

End Sub

Private Sub CmdPause_Click()
position = MediaPlayer1.currentPosition
MediaPlayer1.pause
End Sub

Private Sub CmdPlay_Click()
MediaPlayer1.SelectionStart = position
MediaPlayer1.play
End Sub

Private Sub CmdStop_Click()
MediaPlayer1.stop
End Sub

Private Sub mnuExit_Click()
Call cmdexit_click
End Sub

Private Sub mnuOpen_Click()
Call CmdOpen_Click
End Sub
一楼我着你的方法做了可还是出现问题啊
行 54: 控件 CommonDialog1 的类 MSComDlg.CommonDialog 不是一个已加载的控件类。
行 62: 控件 WindowsMediaPlayer1 的类 WMPLibCtl.WindowsMediaPlayer 不是一个已加载的控件类。

Answer 1

从你的错误代码看你应该是在代码中引用了错的控件名称，你使正确的控件名称后出现的错误是什么？
如果控件名称对了还是出错的话建议你将
Private Sub CmdOpen_Click()
CommonDialog1.ShowOpen
If CommonDialog1.FileName = "" Then Exit Sub
MediaPlayer1.FileName = CommonDiaglog1.FileName

End Sub
修改一下。具体的原因说不上，但是感觉上是你MediaPlayer1.FileName = CommonDiaglog1.FileName这句代码在数据类型上出了问题，有时候CommonDiaglog1.FileName中会包括空格等符号，你试着用一个变量存取它的值。如下
Private Sub CmdOpen_Click()
CommonDialog1.ShowOpen
If CommonDialog1.FileName = "" Then Exit Sub
dim AddPath as string
AddPath=trim(CommonDiaglog1.FileName)
MediaPlayer1.FileName = AddPath

End Sub

Answer 2

我可是第一个,请楼主采纳
我的天哪
MediaPlayer1.FileName = CommonDiaglog1.FileName
CommonDiaglog1改为CommonDialog1
倒数第五位g不应该出现

Answer 3

1、为树状浏览器控件添加节点和子节点

用ADD方法添加一个新节点到树状浏览器的NODES集合时，可以声明它是和已存在的节点所联系起来的。通常使用ADD方法，其语法如下：

Nodes.Add(relative,[relationship][,key][,text][,image][,selectedimage])

各个参数的意义如下：

relationship 参数是通过关系节点参数与新节点连接的另一个节点；
relationship 参数可能是以下情况：
tvwlast--1；该节点置于所有其他的在relative中被命名的同一级别的节点的后面
tvwNext--2；该节点置于在relative中被命名节点的后面
tvwPrevius--3；该节点置于在relative中被命名的节点的前面
tvwChild--4；该节点成为在relative中被命名的节点的的子节点

下面是一个例子：

Dim node1,node2,node3,node4 as Node
set Node1=TreeView1.Nodes.Add
TreeView1.Nodes(1).text="node1"
TreeView1.Nodes(1).key="node1"
Set node2=treeview.nodes.add("node1",tvwChild,"node2")
TreeView1.Nodes(2).text="node2"
TreeView1.Nodes(2).key="node2"

依次插入节点即可。

2、为节点插入图象

treeview1.node(3).image="leaf"

注意我们一般从imagelist中指定图象

3、处理节点的点击，怎样才能知道树状浏览器的哪一个节点被点击了呢？可以用NodeClick 事件:

public sub treeview1_nodeclick(byval node as comctllib.node)
text1.text="you click"&node.text
end sub