急!VB中,CommonDialog1与Call Shell会冲突?
请教高人,我在VB中使用Call Shell调用C语言生成的.exe文件,点击按钮使.exe文件执行,但是现在发生了一个问题,就是我同时用到了CommonDialog1控件来打开文本文件,但是我每次点击过使用这个控件的按钮打开文件之后,再去点击执行.exe文件的按钮,.exe文件执行后,该应用程序找不参数文件,无法顺利运行,请高人指点!项目中,急!!!!先谢过!!!!!!!!!!!!!
源代码
Private Sub Command2_Click()
Dim fstr As String
CommonDialog1.Filter = "文本文件(*.txt)|*.txt|所有文件(*.*)|*.*"
CommonDialog1.ShowOpen
fstr = CommonDialog1.FileName
If fstr <> "" Then
Text5.Text = fstr
End If
End Sub
Private Sub Command5_Click()
Call Shell(App.Path + "\windowpick.exe", vbNormalFocus)
End Sub