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

Question

我正在做这个项目，一切都很好，除了这个小细节。在vb6编辑器上运行时，FileDiaogFilePicker会在应用程序之上打开，但是当我将其构建为exe文件时，文件选择器会显示在应用程序后面。我试过通过互联网搜索，但我似乎无法找到解决方案。我希望你能提供帮助。感谢。

Answer 1

感谢您的回复。以下是我使用的代码：

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

我刚刚在网上找到了，所以我不知道它是否是宏代码。