Imports System.IO
Imports Microsoft.Web.WebView2.CorePublic Class Form1#Region "界面美化"Public Sub New()' This call is required by the designer.InitializeComponent()' Add any initialization after the InitializeComponent() call.Me.Text = "公式显示器"Me.StartPosition = FormStartPosition.CenterScreenMe.AutoScaleMode = AutoScaleMode.FontMe.FormBorderStyle = FormBorderStyle.FixedSingleMe.MaximizeBox = FalseMe.Size = New Size(900, 600)' 美化 Panel1（顶部按钮区）Me.Panel1.BackColor = Color.FromArgb(240, 240, 240)Me.Panel1.Height = 50' 美化按钮With Me.btnShowFormula.Text = "显示公式".BackColor = Color.FromArgb(0, 120, 215).ForeColor = Color.White.FlatStyle = FlatStyle.Flat.Font = New Font("微软雅黑", 9, FontStyle.Regular).Height = 30.Width = 100.Location = New Point(20, 10).UseVisualStyleBackColor = FalseAddHandler .MouseEnter, Sub(s, e).BackColor = Color.FromArgb(0, 80, 160)End SubAddHandler .MouseLeave, Sub(s, e).BackColor = Color.FromArgb(0, 120, 215)End SubEnd With' 美化 Panel2（底部）Me.Panel2.BackColor = Color.FromArgb(240, 240, 240)Me.Panel2.Height = 40' 美化 Panel3（WebView2区域）Me.Panel3.BackColor = Color.WhiteMe.WebView21.Dock = DockStyle.Fill' 窗体整体背景Me.BackColor = Color.WhiteEnd Sub
#End Region' 初始化WebView2（异步）Private Async Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load' 创建允许本地文件访问的环境Dim env = Await CoreWebView2Environment.CreateAsync(options:=New CoreWebView2EnvironmentOptions("--allow-file-access-from-files"))' 用自定义环境初始化WebView2Await WebView21.EnsureCoreWebView2Async(env)' 启用脚本和与网页的消息通信（替代AreLocalObjectReferencesAllowed）WebView21.CoreWebView2.Settings.IsScriptEnabled = TrueWebView21.CoreWebView2.Settings.IsWebMessageEnabled = True' 绑定导航完成事件（可选，用于调试）AddHandler WebView21.CoreWebView2.NavigationCompleted, AddressOf CoreWebView2_NavigationCompletedEnd SubPrivate Sub CoreWebView2_NavigationCompleted(sender As Object, e As CoreWebView2NavigationCompletedEventArgs)If e.IsSuccess ThenConsole.WriteLine("页面加载完成")ElseConsole.WriteLine("加载失败：" & e.WebErrorStatus)End IfEnd SubPrivate Function GenerateMathJaxHtml(formula As String) As String' 获取MathJax的绝对路径（确保路径正确，建议用Path.Combine处理）Dim baseUrl = Path.Combine(AppDomain.CurrentDomain.BaseDirectory, "MathJax", "tex-mml-chtml.js")' 转换为file://协议格式（关键）Dim mathJaxSrc = New Uri(baseUrl).AbsoluteUriReturn $"<html><head><script>MathJax = {{tex: {{inlineMath: [['$', '$'], ['\\(', '\\)']],displayMath: [['$$', '$$'], ['\\[', '\\]']]}},svg: {{ fontCache: 'global' }},startup: {{pageReady: function() {{// 手动触发渲染（解决本地文件延迟问题）return MathJax.startup.defaultPageReady().then(function() {{MathJax.typeset();}});}}}}}};</script><script src=""{mathJaxSrc}""></script></head><body><div style=""font-size: 18px; padding: 20px;"">{formula}</div></body></html>"End FunctionPrivate Sub btnShowFormula_Click(sender As Object, e As EventArgs) Handles btnShowFormula.ClickIf WebView21.CoreWebView2 Is Nothing ThenMessageBox.Show("WebView2 未初始化！")ReturnEnd IfDim latexFormula As String = TextBox1.Text '"$E = mc^2$ 及 \[ \int_0^\infty e^{-x^2} dx = \frac{\sqrt{\pi}}{2} \]"Dim htmlContent = GenerateMathJaxHtml(latexFormula)' 保存为临时HTML文件（关键：用本地文件加载）Dim tempPath = Path.Combine(Path.GetTempPath(), "math_temp.html")File.WriteAllText(tempPath, htmlContent)' 用Navigate加载本地文件（而非NavigateToString）WebView21.CoreWebView2.Navigate(New Uri(tempPath).AbsoluteUri)End SubEnd Class
