各位帮忙看一下我写的这个程序！有没有？有没有谁会visual basic的？

是这样的，我想用visual basic写一个播放器程序。依托于Windows media player的框架。代码看起来是写对了。但是呢？运行起来还有一些小bug。比如全屏按钮会有bug那个地方你们拿到我的程序之后就知道了。Meanwhile，我想做的控件里面还有一些代码没有写，是我不知道这些组件事件的代码怎么写。可以帮我。改一下嘛，谢谢大家有没有会的？另外背景颜色帮我换一下。我希望他能够播放一些网页地址的视频，也想给这个播放器后续增加点功能。

1. Private Sub Command1_Click()
   
2. '文件名.后缀
   
3. 
   
4. 
   
5. 'On Error Resume Next '跳过错误行，转下一条继续，可以理解为忽略错误
   
6. 
   
7.     Dim File As String
   
8.     CommonDialog1.Filter = "所有文件|*.*|mp4文件|*.mp4|*.avi|*.avi" '过滤器，所有文件|*.*
   
9.     CommonDialog1.FileName = "" '初始化文件名称
   
10.     CommonDialog1.ShowOpen '打开对话框
    
11.     File = CommonDialog1.FileName '获取文件路径
    
12.     Debug.Print (File)
    
13.    If Len(File) > 0 Then '检查是否选择了文件
    
14.         WindowsMediaPlayer1.URL = File '把文件路径赋值对播放器
    
15.         '设置fileListBox 文件夹路径
    
16.         Dim StrFind As Integer '定义变量，存储文件名在字符串中位置
    
17.         Dim Dir As String '定义变量，存储文件夹路径
    
18.         StrFind = InStr(1, File, CommonDialog1.FileTitle) '通过InStr函数查找文件名，获取在字符串中位置,P56
    
19.         Dir = Left(File, StrFind - 1) '使用Left函数，截取文件夹路径，赋值给变量
    
20.         'Debug.Print (Dir)
    
21.         File1.Path = Dir '设置fileListBox 文件夹路径
    
22.         Timer1.Enabled = True '初始化HScroll1.Value,因为在打开视频瞬间无法获取视频长度，使用Timer控件，延缓操作
    
23.    End If
    
24. End Sub
    
25. 
    
26. Private Sub Command2_Click()
    
27.     If Command2.Caption = "暂停" Then
    
28.         WindowsMediaPlayer1.Controls.pause
    
29.         Command2.Caption = "继续播放"
    
30.     Else
    
31.         WindowsMediaPlayer1.Controls.Play
    
32.         Command2.Caption = "暂停"
    
33.     End If
    
34. End Sub
    
35. 
    
36. Private Sub Command3_Click()
    
37.     WindowsMediaPlayer1.Controls.Stop
    
38. End Sub
    
39. 
    
40. Private Sub Command4_Click()
    
41. WindowsMediaPlayer1.fullScreen = True
    
42. End Sub
    
43. 
    
44. 
    
45. 
    
46. 
    
47. 
    
48. Private Sub Drive1_Change()
    
49. 
    
50. End Sub
    
51. 
    
52. Private Sub File1_DblClick()
    
53. Debug.Print (File1.Path)
    
54. Debug.Print (File1.FileName)
    
55.    ' Debug.Print (File1.Path & "" & File1.FileName) '路径需要使用字符串拼接
    
56.     Dim File As String
    
57.     File = File1.Path & "" & File1.FileName
    
58.     WindowsMediaPlayer1.URL = File
    
59.     Timer1.Enabled = True
    
60. End Sub
    
61. 
    
62. 
    
63. 
    
64. Private Sub HScroll1_Change()
    
65.     WindowsMediaPlayer1.Controls.currentPosition = HScroll1.Value '设置视频当前位置
    
66. End Sub
    
67. 
    
68. Private Sub Timer1_Timer()
    
69. On Error Resume Next
    
70. HScroll1.Value = 0
    
71. HScroll1.Max = WindowsMediaPlayer1.currentMedia.duration '初始化HScroll1.Max为视频长度，单位秒
    
72. 'Debug.Print (WindowsMediaPlayer1.currentMedia.duration)
    
73. Timer1.Enabled = False
    
74. End Sub
    

复制代码

工程文件总是莫名其妙的掉没了。给我讲解一下怎么回事？