Warning: file_get_contents(/data/phpspider/zhask/data//catemap/3/reactjs/21.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Vb6 msoFileDialogFilePicker在活动应用程序后面打开_Vb6_Openfiledialog - Fatal编程技术网

Vb6 msoFileDialogFilePicker在活动应用程序后面打开

Vb6 msoFileDialogFilePicker在活动应用程序后面打开,vb6,openfiledialog,Vb6,Openfiledialog,我在做这个项目,除了这个小细节,一切都很好。在vb6编辑器上运行时,FileDiaogFilePicker会在应用程序顶部打开,但当我将其构建为exe文件时,文件选择器会显示在应用程序后面。我试着在网上搜索,但似乎还是找不到解决办法。我希望你能帮忙。谢谢。谢谢你的回复。以下是我正在使用的代码: Dim lcount As Long getfoldername = vbNullString With Application.FileDialog(msoFileDialogFolderPi

我在做这个项目,除了这个小细节,一切都很好。在vb6编辑器上运行时,FileDiaogFilePicker会在应用程序顶部打开,但当我将其构建为exe文件时,文件选择器会显示在应用程序后面。我试着在网上搜索,但似乎还是找不到解决办法。我希望你能帮忙。谢谢。

谢谢你的回复。以下是我正在使用的代码:

Dim lcount As Long  
getfoldername = vbNullString  

With Application.FileDialog(msoFileDialogFolderPicker)  
.InitialFileName = OpenAt
'.Show

If .Show = -1 Then  
For lcount = 1 To .SelectedItems.Count  
getfoldername = .SelectedItems(lcount)  
Next lcount  
txtsave.Text = getfoldername & "\"  
Else  
Exit Sub  
End If  
End With

我刚刚在web上也发现了这一点,因此我不知道它是否是宏代码。

所有FileDialog对象都是模态对象,因此一旦显示对话框,在对话框关闭之前,不会继续执行任何代码。您能否提供有关代码/应用程序/项目的更多详细信息,以便我们尝试提供一些帮助?您能否显示一些代码?这实际上是一个VBA宏代码,用Excel还是Word?