Question

请帮我看看这两段VB代码，谢谢了！

Private Sub Command1_Click()
If "Text1.Text = 3234" & "Text2.Text = 4536" & " Text3.Text = 6543" & " Text4.Text = 0987" Then
start.Hide
Form1.Show
Else
MsgBox "请输入正确的序列号！"
End
End If
End Sub

最好输错后能自动打开序列号的文本文档，位于程序根目录下。谢谢了！

Private Sub Command1_Click()
ShockwaveFlash1.Movie = App.Path & "\1.swf"
ShockwaveFlash1.Playing = True
Command1.Enabled = False
End Sub

Private Sub Command2_Click()
If Command2.Caption = "暂停" Then
ShockwaveFlash1.Playing = False '停止动画
Command2.Caption = "继续"
Else
ShockwaveFlash1.Playing = True '继续动画
Command2.Caption = "暂停"
End If
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Command4_Click()
Form4.Hide
Form1.Show
End Sub

Private Sub ShockwaveFlash1_OnReadyStateChange(newState As Long)

End Sub

这一段是单击command1没有反应。不知道怎么回事。如果能改出来的话请告诉我怎么做快进或倒退的代码 谢谢了！

Answer 1

If Text1.Text = "3234" and Text2.Text = "4536" and Text3.Text = "6543" and Text4.Text = "0987" then
vb 与 符号应该是 and吧 ，& 是字符串连接符

追问

原来如此，非常感谢！！！
我做的FLASH播放器只能暂停，或倒回第一帧。再选其他影片就没反应了。请问怎样才能卸载影片？就是退回刚打开时那一片白的样子，可以选其他影片播放。谢谢了！

追答

Private Sub Command1_Click()
ShockwaveFlash1.Movie = App.Path & "\1.swf" 这里设置了确定了播放的文件为 1.swf 的嘛
ShockwaveFlash1.Playing = True
Command1.Enabled = False
End Sub

Answer 2

双引号写错地方了
If Text1.Text = "3234" & Text2.Text = "4536" & Text3.Text = " 6543" & Text4.Text = " 0987" Then

追问

不行啊，输入正确的数据还是“请输入正确的序列号！”？？