为什么我用VB编写的程序在别的电脑上运行总是提示少文件啊？

Question

为什么我用VB编写的程序在别的电脑上运行总是提示少文件啊？
我刚学VB不久，编写了一个定时关机，在别的电脑上运行提示少一个DLL文件
这次编写了个音乐播放器，在别的电脑上又提示少个OXC文件，真是郁闷啊，难道VB编写的问题还是什么问题啊
下面为我写的一个播放器源码，大侠门帮我看看.这个播放器还有一个问题就在播放的时候打开文件，点了取消后播放也会停止，不知道怎么办？我把我积分全给了
Option Explicit

Private Sub Command1_Click()
Player1.URL = Dir1.Path & "\" & File1.FileName
Player1.Controls.play
Command4.Enabled = True
Command2.Enabled = True
End Sub

Private Sub Command2_Click()
Player1.Controls.stop
Command4.Enabled = False
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Command4_Click()
Command2.Enabled = False
Player1.Controls.pause
End Sub

Private Sub Dir1_Change()
File1.Path = Dir1.Path
File1.Pattern = "*.mp3;*.wam"
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

Private Sub File1_Click()
Command1.Enabled = True
End Sub

Private Sub File1_DblClick()
Player1.URL = Dir1.Path & "\" & File1.FileName
End Sub

Private Sub Form_Load()

Command1.Enabled = False
Command2.Enabled = True
File1.Pattern = "*.mp3;*.wam"
End Sub

Private Sub MenuExit_Click()
End
End Sub

Private Sub MenuOpen_Click()
Dim fDir As String, fName As String, fTitle As String
CommonDialog1.DialogTitle = "打开音乐文件"
CommonDialog1.Filter = "音乐文件(*.mp3)|*.mp3"
CommonDialog1.ShowOpen

fName = CommonDialog1.FileName '用于获得file1的文件路径
fTitle = CommonDialog1.FileTitle
fDir = Left(fName, Len(fName) - Len(fTitle))
'MsgBox fDir
File1.Path = fDir
Dir1.Path = fDir
Drive1.Drive = Dir1.Path

'If CommonDialog1.CancelError = 0 Then
'Player1.Controls.play
'Exit Sub
'End If

Player1.URL = CommonDialog1.FileName
End Sub

Answer 1

这个是因为你写的程序调用了某些DLL文件或者使用了其他的OCX控件造成的！所以说你发布程序的时候必须要带上这些文件！当然了对方机器上还需要有VB运行库！

Answer 2

检查该电脑是否有支持VB DLL库..
如果没有,要安装Visual Basic 6.0 Runtime Redistribution 就可运行.
如果不想安装..要把程序有用到的DLL 放在该文件文件夹即可.

Answer 3

VB-PowerWrap 用这个软件为你的VB程序打包~这样就不会提示缺少文件了

Answer 4

我来回答你的问题..看下你的百度消息...