（急，在线等）vb程序中如何执行xp系统自带的录音机中“编辑”菜单下的“插入文件”项

[zhangjg2124]

vb程序中如何执行xp系统自带的录音机中“编辑”菜单下的“插入文件”项，我现在只能把录音机调出来，能不能直接用代码执行‘插入文件’的操作的呢？望高手们不吝赐教！

[贝隆]

帮顶

[aller1]

没回复....是不是你的问题说得不够清楚,我看了也不太明白你想实现怎样的效果

[孤独剑_LPZ]

Private Declare Function ShellExecute Lib _
"shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Command1_Click()
Dim sFile As String
sFile = "C:\WINDOWS\system32\sndrec32.exe"
Call ShellExecute(hwnd, "Open", sFile, "", App.Path, 1)
Sleep 2000
DoEvents
SendKeys "%{e}"
SendKeys "{DOWN}"
SendKeys "{DOWN}"
SendKeys "{DOWN}"
SendKeys "{ENTER}"
End Sub

[weiyulin]

菜鸟看热闹 高手看门道

帮顶