vb中关于filelistbox控件的问题

来源：百度知道 编辑：UC知道 时间：2024/05/15 14:49:37
我想要在filelistbox中双击列表中的flash文件播放它，当双击另一个flash文件时又能转而播放另一个文件。已经添加好axshockwaveflash控件啦。我应该怎么做？
在线等~~~·谢拉。。。。
是vb.net。。。。

这个问题可以这样的解决：在vb6中调试通过。

1：首先在公共模块中：

Option Explicit

Public Const FO_MOVE = &H1
Public Const FO_COPY = &H2
Public Const FO_DELETE = &H3
Public Const FO_RENAME = &H4

Public Const FOF_NOCONFIRMATION = &H10
Public Const FOF_NOCONFIRMMKDIR = &H200
Public Const FOF_ALLOWUNDO = &H40

Type SHFILEOPSTRUCT
hWnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAborted As Boolean
hNameMaps As Long
sProgress As String
End Type
Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long

其次：在frm模块之中：

Private Sub Command1_Click()
Dim SHFileOp As SHFILEOPSTRUCT
SHFileOp.wFunc = FO_COPY
SHFileOp.fAborted = True
SHFileOp.pFrom = "F:\MEM\*.*"
SHFileOp.pTo = "f:\aa"
SHFileOp