F#脚本中FolderBrowserDialog调用ShowDialog()无响应问题求助

我编写了一个用于选择文件夹的简单F#脚本，但调用ShowDialog()时进程无响应。以下是我的脚本文件、运行时配置、执行命令，我也尝试过添加STAThread属性，但问题依旧，怀疑存在遗漏或理解误区。

test.fsx代码 #

#I @"C:\Program Files\dotnet\packs\Microsoft.WindowsDesktop.App.Ref\6.0.10\ref\net6.0" 
#r "System.Windows.Forms"

open System
open System.Windows.Forms

let folderPath = new Label()
let button = new Button(Text = "Select Folder")
let ini_dir = @"C:\Users\hayeskev\source\Workspaces"

let openFolderHandler = 
    EventHandler(fun _ _ ->
        let folderDlg = new FolderBrowserDialog()
        folderDlg.InitialDirectory <- ini_dir
        folderDlg.ShowNewFolderButton <- true
        let dlgResult = folderDlg.ShowDialog()
        if dlgResult.Equals(DialogResult.OK) then 
            folderPath.Text <- folderDlg.SelectedPath
        else
            folderPath.Text <- "Error")

button.Click.AddHandler(openFolderHandler)

let layout = new FlowLayoutPanel(Dock=DockStyle.Fill)
layout.Controls.Add(button)
layout.Controls.Add(folderPath)
let form = new Form()
form.Controls.Add(layout)
form.ShowDialog()

运行时配置文件（C:\Program Files\dotnet\sdk\6.0.402\FSharp\fsi.runtimeconfig.json） #

{
  "runtimeOptions": {
    "tfm": "net6.0",
    "frameworks": [
      {
        "name": "Microsoft.NETCore.App",
        "version": "6.0.10"
      },
      {
        "name": "Microsoft.WindowsDesktop.App",
        "version": "6.0.10"
      }
    ],
    "configProperties": {
      "System.Reflection.Metadata.MetadataUpdater.IsSupported": false
    }
  }
}

运行命令 #

dotnet fsi test.fsx

已尝试的STAThread属性写法 #

[<STAThread>]
do 
    Application.EnableVisualStyles()
    Application.SetCompatibleTextRenderingDefault(false)
    use form  = new MainGuiForm()
    Application.Run(form)

问题解决关键点 #

1. FSI默认线程模型不兼容：Windows Forms的UI组件必须运行在STA线程中，直接在FSI中调用form.ShowDialog()会因为线程模型为MTA导致对话框无响应。
2. 正确的STA线程启动方式：需要将所有UI初始化逻辑放到标记STAThread的执行块内，并用Application.Run启动应用程序，而非直接调用窗体的ShowDialog()。

修改后的完整脚本示例：

#I @"C:\Program Files\dotnet\packs\Microsoft.WindowsDesktop.App.Ref\6.0.10\ref\net6.0" 
#r "System.Windows.Forms"

open System
open System.Windows.Forms

[<STAThread>]
do
    Application.EnableVisualStyles()
    Application.SetCompatibleTextRenderingDefault(false)

    let folderPath = new Label()
    let button = new Button(Text = "选择文件夹")
    let ini_dir = @"C:\Users\hayeskev\source\Workspaces"

    let openFolderHandler = 
        EventHandler(fun _ _ ->
            use folderDlg = new FolderBrowserDialog(
                InitialDirectory = ini_dir,
                ShowNewFolderButton = true
            )
            match folderDlg.ShowDialog() with
            | DialogResult.OK -> folderPath.Text <- folderDlg.SelectedPath
            | _ -> folderPath.Text <- "未选择文件夹")

    button.Click.AddHandler(openFolderHandler)

    let layout = new FlowLayoutPanel(Dock=DockStyle.Fill)
    layout.Controls.Add(button)
    layout.Controls.Add(folderPath)

    use form = new Form(Text = "文件夹选择器")
    form.Controls.Add(layout)
    Application.Run(form)

修改说明：

• 将所有UI代码移入标记STAThread的do块，确保UI线程为STA模型
• 使用Application.Run启动窗体，替代直接调用form.ShowDialog()
• 对FolderBrowserDialog使用use关键字，保证资源正确释放
• 用模式匹配替代Equals判断，符合F#语法风格

内容的提问来源于stack exchange，提问作者Kevin Hayes Anderson