VB.NET插件开发案例

文本字符串表达式计算程序：

界面如下：

 功能源码：

Public Class Form4
    Private Sub 变量_TextChanged(sender As Object, e As EventArgs) Handles 变量.TextChanged
        If Not IsNumeric(变量.Text) Then Exit Sub
        Dim w = Val(变量.Text)
        计算结果.Text = app.Evaluate(Replace(变量表达式.Text, "w", w))
    End Sub
End Class

选择文件控件功能

Public Class Form5
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        '标题
        OpenFileDialog1.Title = "陈表达"
        '文件筛选器
        OpenFileDialog1.Filter = "txt File(*.txt)|*.txt|All files(*.*)|*.*"
        '文件初始打开默认位置
        OpenFileDialog1.InitialDirectory = "D:\"
        '可以多选
        OpenFileDialog1.Multiselect = True
        '显示选择文件窗口
        OpenFileDialog1.ShowDialog()
        '获取文件数组
        Dim 文件数组含路径 As String() = OpenFileDialog1.FileNames
        Dim 文件数组含扩展名 As String() = OpenFileDialog1.SafeFileNames
    End Sub
End Class

选择界面

 

 

 获取的文件数组有所不同，一个有路径，一个没有路径