麻烦问一下，vb里面，为什么我这个东东出来之后，不能播放，就一直是准备待续？
答案:3 悬赏:30 手机版
解决时间 2021-03-24 03:08
- 提问者网友：欲望失宠
- 2021-03-23 14:54
麻烦问一下，vb里面，为什么我这个东东出来之后，不能播放，就一直是准备待续？
最佳答案
- 五星知识达人网友：逐風
- 2021-03-23 15:44
可以实现，不过你没说明白
假如我拖个写着“123”的“dfw.txt”的文本文件上去，你想让他显示什么
看看这个，希望对你有启发
Private Sub Form_Load()
Me.OLEDropMode = 1
End Sub
Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
For i = 1 To Data.Files.Count
If Right(Data.Files(i), 3) = "txt" Then
Open Data.Files(i) For Input As #1
s = StrConv(InputB(LOF(1), #1), vbUnicode)
s = Replace(s, "ABC", "123")
s = Replace(s, "d5g", "578")
Close #1
Open Data.Files(i) For Output As #1
Print #1, s
Close 1
End If
Next
End Sub参考资料：百度一下
假如我拖个写着“123”的“dfw.txt”的文本文件上去，你想让他显示什么
看看这个，希望对你有启发
Private Sub Form_Load()
Me.OLEDropMode = 1
End Sub
Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
For i = 1 To Data.Files.Count
If Right(Data.Files(i), 3) = "txt" Then
Open Data.Files(i) For Input As #1
s = StrConv(InputB(LOF(1), #1), vbUnicode)
s = Replace(s, "ABC", "123")
s = Replace(s, "d5g", "578")
Close #1
Open Data.Files(i) For Output As #1
Print #1, s
Close 1
End If
Next
End Sub参考资料：百度一下
全部回答
- 1楼网友：一叶十三刺
- 2021-03-23 18:28
囡结果将
- 2楼网友：佘樂
- 2021-03-23 17:00
没有执行播放命令PLAY吧追问WindowsMediaPlayer1.Controls.Play
是加这句么？还是没有用啊。。
是加这句么？还是没有用啊。。
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯