VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 5496|回复: 0

子程序或函数未定义

[复制链接]
 楼主| 发表于 2010-8-19 18:24:16 | 显示全部楼层 |阅读模式
'代码:
Private Sub Openpaly()
Dim FileName As String
Dim k As String
CD1g.Filter = "*.swf|*.wmv"
CD1g.ShowOpen
FileName = CD1g.FileName
FlashPlay.Visible = True
FlashPlay.Movie = FileName
Check1.Value = 1
Command_Click (1)
Time1.Enabled = True
Sld.Max = FlashPlay.TotalFrames
k = Str(Sld.Max)
Lbl1.Caption = "共有" + k + "帧"
End Sub
Private Sub Check1_Click()
If Check1.Value = 0 Then
FlashPlay.Loop = False
Else
Flashipaly.Loop = True
End If


End Sub
Private Sub Command_Click(Index As Integer)
Select Case Index
Case 0
OpenPlay‘问题在这
Case 1
Playing = True
Command(1).Enabled = True
Command(2).Enabled = True
Command(3).Enabled = True
Command(4).Enabled = True

Sld.Enabled = False
Case 2
FlashPlay.Stop
Command(1).Enabled = True
Command(2).Enabled = False
Command(3).Enabled = False
Command(4).Enabled = False
Sld.Enabled = True
Case 3
FlashPlay.Back
Case 4
FlashPlay.Forward
Case 5
FlashPlay.Zoom (50)
Case 6
FlashPlay.Zoom (200)
Case 7
Unload Me
End Select
End Sub



Private Sub Form_Load()
FlashPlay.ScaleMode = 0
With Sld
    .SelectRange = True
    .SmallChange = 10
     .SmallChange = 10
     .TickFrequency = 20
     .Enabled = False
     End With
     Command(1).Enabled = False
Command(2).Enabled = False
Command(3).Enabled = False
Command(4).Enabled = False
Lbl1.Caption = "共有 帧"
Lbl2.Caption = "当前帧数: "

      BSE1.SchemeStyle = 0
      BSE1.EndSubClassing
      BSE1.InitSubClassing
    End Sub


Private Sub Option1_Click()
      BSE1.SchemeStyle = 9
      BSE1.EndSubClassing
      BSE1.InitSubClassing
  
End Sub

Private Sub Option2_Click()
BSE1.SchemeStyle = 6
      BSE1.EndSubClassing
      BSE1.InitSubClassing
End Sub

Private Sub Option3_Click()
BSE1.SchemeStyle = 13
      BSE1.EndSubClassing
      BSE1.InitSubClassing
End Sub

Private Sub Option4_Click()
BSE1.SchemeStyle = 0
      BSE1.EndSubClassing
      BSE1.InitSubClassing
End Sub

Private Sub Sld_Click()
FlashPlay.FrameNum = Sld.Value
End Sub

Private Sub Timer1_Timer()
Lbl2.Caption = "当前帧数: " + Str(FlashPlay.FrameNum)
Sld.Value = FlashPlay.FrameNum
End Sub

文字版|手机版|小黑屋|VBGood  

GMT+8, 2022-9-27 07:35

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表