如何用Visual Basic与Visual Studio 2017调用外部Python脚本实现交互？

嘿，我来帮你搞定这个需求！咱们一步步来，保证能实现点击按钮调用Python脚本计算圆周长，并把结果返回给VB窗体的功能：

第一步：准备工作 #

• 先确保你的电脑上装了Python，并且把Python的安装路径添加到系统环境变量里（这样VB能直接调用python.exe）
• 在Visual Studio 2017里创建一个**Windows Forms App（.NET Framework）**项目，然后在窗体上拖放这几个控件：
  • 一个TextBox（命名为txtRadius，用来输入圆的半径）
  • 一个Button（命名为btnCalculate，把Text改成"计算周长"）
  • 另一个TextBox（命名为txtResult，用来显示结果，建议设为ReadOnly防止误改）

方案一：用标准输入输出的Python脚本 #

这种方案适合你给出的第一种脚本形式，我们修改Python脚本让它通过标准输入接收半径，计算后把结果输出到标准输出，VB再读取这个输出。

编写Python脚本（命名为calc_perimeter.py） #

import sys

# 读取VB传递过来的半径值
try:
    r = float(sys.stdin.readline().strip())
    # 计算周长（用更精确的圆周率值）
    perimeter = 2 * 3.1415926 * r
    # 输出结果给VB
    print(perimeter)
except ValueError:
    # 处理无效输入的情况
    print("输入无效")

VB按钮点击事件代码 #

双击窗体上的按钮，粘贴以下代码：

Private Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.Click
    ' 先检查用户输入是否是有效数字
    If Not Double.TryParse(txtRadius.Text, Nothing) Then
        MessageBox.Show("请输入有效的数字哦！")
        Return
    End If

    ' 配置进程启动信息
    Dim psi As New ProcessStartInfo()
    psi.FileName = "python.exe"
    ' 替换成你实际的Python脚本绝对路径，注意用双引号包裹路径（防止路径有空格）
    psi.Arguments = """C:\Your\Script\Path\calc_perimeter.py"""
    ' 隐藏Python的黑窗口
    psi.WindowStyle = ProcessWindowStyle.Hidden
    ' 开启标准输入输出重定向
    psi.RedirectStandardInput = True
    psi.RedirectStandardOutput = True
    psi.UseShellExecute = False

    ' 启动进程并交互
    Using p As Process = Process.Start(psi)
        ' 把输入的半径传给Python脚本
        p.StandardInput.WriteLine(txtRadius.Text)
        p.StandardInput.Flush()
        p.StandardInput.Close()

        ' 读取Python返回的结果
        Dim result As String = p.StandardOutput.ReadToEnd()
        p.WaitForExit()

        ' 把结果显示到文本框
        If result.Trim() = "输入无效" Then
            txtResult.Text = "计算失败：输入无效"
        Else
            txtResult.Text = $"圆的周长：{result.Trim()}"
        End If
    End Using
End Sub

方案二：用函数式的Python脚本 #

如果想用你给出的def peri(r)函数形式，我们可以让脚本通过命令行参数接收半径，调用函数计算后输出结果。

编写Python脚本（命名为calc_perimeter_func.py） #

import sys

def peri(r):
    return 2 * 3.1415926 * r

if __name__ == "__main__":
    # 从命令行参数获取半径
    if len(sys.argv) > 1:
        try:
            r = float(sys.argv[1])
            print(peri(r))
        except ValueError:
            print("输入无效")
    else:
        print("未传入参数")

VB按钮点击事件代码 #

同样双击按钮，替换成以下代码：

Private Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.Click
    If Not Double.TryParse(txtRadius.Text, Nothing) Then
        MessageBox.Show("请输入有效的数字哦！")
        Return
    End If

    Dim psi As New ProcessStartInfo()
    psi.FileName = "python.exe"
    ' 把脚本路径和半径参数一起传给Python
    psi.Arguments = $" ""C:\Your\Script\Path\calc_perimeter_func.py"" {txtRadius.Text}"
    psi.WindowStyle = ProcessWindowStyle.Hidden
    psi.RedirectStandardOutput = True
    psi.UseShellExecute = False

    Using p As Process = Process.Start(psi)
        Dim result As String = p.StandardOutput.ReadToEnd()
        p.WaitForExit()

        Select Case result.Trim()
            Case "输入无效"
                txtResult.Text = "计算失败：输入无效"
            Case "未传入参数"
                txtResult.Text = "计算失败：未传入参数"
            Else
                txtResult.Text = $"圆的周长：{result.Trim()}"
        End Select
    End Using
End Sub

一些重要的注意事项 #

• 脚本路径一定要写对！建议用绝对路径，如果脚本和VB项目的输出目录放在一起，也可以用相对路径，但绝对路径更稳妥
• 如果你的Python是3.x版本，确保VB调用的是python.exe或者python3.exe（根据你的环境配置来）
• 测试的时候可以先单独运行Python脚本，确保它能正确计算，再和VB集成，这样排查问题更方便
• 记得处理各种异常情况，比如用户输入非数字、脚本找不到等，避免程序崩溃

内容的提问来源于stack exchange，提问作者Sayok Majumder