Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Dim str As IO.StreamReader = New IO.StreamReader(appPath & "data\Command.data", System.Text.Encoding.Default) Do Until str.EndOfStream ListBox1.Items.Add(str.ReadLine()) Loop str.Close() End Sub
读取文件到ListBox1 中，但是我想让鼠标双击选中（可多选）的内容 会自动复制到剪切板要如何实现？
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Dim AppPath As String = Directory.GetCurrentDirectory() '获取应用程序的当前工作目录 Process.Start(AppPath & "data\Tool.exe" & "-command list", AppWinStyle.NormalNoFocus) '打开程序并且带一个命令或N个命令 'Process.Start(AppPath & "Tool.exe" & "-command list") '打开当前目录 'Shell(AppPath & "Tool.exe" & "-command list") '运行程序 并带一个命令-command list 查看命令表 'Process.Start(AppPath & Data \ Tool.exe & "-command list", AppWinStyle.NormalNoFocus) '打开当前目录 'Dim AppPath As String = "data\" '设置可执行文件的路径 'Shell(appPath & "\data\Tool.exe" & "-command list") End Sub
运行根目录中的程序并且加一个命令 帮我看看 ...我头大了.我是新手 完全没有学个VB.NET 也没有学过VB 只是业余瞎玩。前天心血来潮 想整个工具 让自己方便下。