一、浏览文件夹,并选择文件
Imports
System.IO
Public Class Form1 Class Form1
'浏览文件夹
Private Sub Button1_Click()Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.ListBox1.Items.Clear()
Dim MyDlg As New FolderBrowserDialog()
If (MyDlg.ShowDialog() = System.Windows.Forms.DialogResult.OK) Then
Me.TextBox1.Text = MyDlg.SelectedPath
Dim i As Integer = 0
Dim MyFilter As String = ""
MyFilter = "*.jpg"
For i = 0 To System.IO.Directory.GetFiles(MyDlg.SelectedPath, MyFilter).Length - 1 Step 1
Me.ListBox1.Items.Add(System.IO.Directory.GetFiles(MyDlg.SelectedPath, MyFilter)(i))
Next
MyFilter = "*.gif"
For i = 0 To System.IO.Directory.GetFiles(MyDlg.SelectedPath, MyFilter).Length - 1 Step 1
Me.ListBox1.Items.Add(System.IO.Directory.GetFiles(MyDlg.SelectedPath, MyFilter)(i))
Next
MyFilter = "*.bmp"
For i = 0 To System.IO.Directory.GetFiles(MyDlg.SelectedPath, MyFilter).Length - 1 Step 1
Me.ListBox1.Items.Add(System.IO.Directory.GetFiles(MyDlg.SelectedPath, MyFilter)(i))
Next
MyFilter = "*.tif"
For i = 0 To System.IO.Directory.GetFiles(MyDlg.SelectedPath, MyFilter).Length - 1 Step 1
Me.ListBox1.Items.Add(System.IO.Directory.GetFiles(MyDlg.SelectedPath, MyFilter)(i))
Next
MyFilter = "*.png"
For i = 0 To System.IO.Directory.GetFiles(MyDlg.SelectedPath, MyFilter).Length - 1 Step 1
Me.ListBox1.Items.Add(System.IO.Directory.GetFiles(MyDlg.SelectedPath, MyFilter)(i))
Next
End If
End Sub
'显示图像
Private Sub ListBox1_SelectedIndexChanged()Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
Dim MyFileName As String = Me.ListBox1.SelectedItem.ToString()
Me.PictureBox1.Image = System.Drawing.Bitmap.FromFile(MyFileName)
Dim Tlg As New FolderBrowserDialog
If Tlg.ShowDialog = Windows.Forms.DialogResult.OK Then
Me.TextBox1.Text = Tlg.SelectedPath
Dim s As Integer = 0
Dim tFilter As String = ""
tFilter = "*.jpg"
For s = 0 To Directory.GetFiles(Tlg.SelectedPath, tFilter).Length - 1 Step 1
Me.ListBox1.Items.Add(Directory.GetFiles(Tlg.SelectedPath, tFilter)(s))
Next
End If
End Sub
End Class
Public Class Form1 Class Form1
'浏览文件夹
Private Sub Button1_Click()Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.ListBox1.Items.Clear()
Dim MyDlg As New FolderBrowserDialog()
If (MyDlg.ShowDialog() = System.Windows.Forms.DialogResult.OK) Then
Me.TextBox1.Text = MyDlg.SelectedPath
Dim i As Integer = 0
Dim MyFilter As String = ""
MyFilter = "*.jpg"
For i = 0 To System.IO.Directory.GetFiles(MyDlg.SelectedPath, MyFilter).Length - 1 Step 1
Me.ListBox1.Items.Add(System.IO.Directory.GetFiles(MyDlg.SelectedPath, MyFilter)(i))
Next
MyFilter = "*.gif"
For i = 0 To System.IO.Directory.GetFiles(MyDlg.SelectedPath, MyFilter).Length - 1 Step 1
Me.ListBox1.Items.Add(System.IO.Directory.GetFiles(MyDlg.SelectedPath, MyFilter)(i))
Next
MyFilter = "*.bmp"
For i = 0 To System.IO.Directory.GetFiles(MyDlg.SelectedPath, MyFilter).Length - 1 Step 1
Me.ListBox1.Items.Add(System.IO.Directory.GetFiles(MyDlg.SelectedPath, MyFilter)(i))
Next
MyFilter = "*.tif"
For i = 0 To System.IO.Directory.GetFiles(MyDlg.SelectedPath, MyFilter).Length - 1 Step 1
Me.ListBox1.Items.Add(System.IO.Directory.GetFiles(MyDlg.SelectedPath, MyFilter)(i))
Next
MyFilter = "*.png"
For i = 0 To System.IO.Directory.GetFiles(MyDlg.SelectedPath, MyFilter).Length - 1 Step 1
Me.ListBox1.Items.Add(System.IO.Directory.GetFiles(MyDlg.SelectedPath, MyFilter)(i))
Next
End If
End Sub
'显示图像
Private Sub ListBox1_SelectedIndexChanged()Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
Dim MyFileName As String = Me.ListBox1.SelectedItem.ToString()
Me.PictureBox1.Image = System.Drawing.Bitmap.FromFile(MyFileName)
Dim Tlg As New FolderBrowserDialog
If Tlg.ShowDialog = Windows.Forms.DialogResult.OK Then
Me.TextBox1.Text = Tlg.SelectedPath
Dim s As Integer = 0
Dim tFilter As String = ""
tFilter = "*.jpg"
For s = 0 To Directory.GetFiles(Tlg.SelectedPath, tFilter).Length - 1 Step 1
Me.ListBox1.Items.Add(Directory.GetFiles(Tlg.SelectedPath, tFilter)(s))
Next
End If
End Sub
End Class
'
浏览文件夹,并把文件夹下的所有的文件填充到ListBox中
Private Sub Button1_Click() Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim MyDlg As New FolderBrowserDialog()
If MyDlg.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
Me.ListBox1.Items.Clear()
Me.TextBox1.Text = MyDlg.SelectedPath
Dim MyFiles() As String = System.IO.Directory.GetFiles(Me.TextBox1.Text)
For Each MyFile As String In MyFiles
Me.ListBox1.Items.Add(MyFile)
Next
End If
End Sub
Private Sub Button1_Click() Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim MyDlg As New FolderBrowserDialog()
If MyDlg.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
Me.ListBox1.Items.Clear()
Me.TextBox1.Text = MyDlg.SelectedPath
Dim MyFiles() As String = System.IO.Directory.GetFiles(Me.TextBox1.Text)
For Each MyFile As String In MyFiles
Me.ListBox1.Items.Add(MyFile)
Next
End If
End Sub
二、设置字体
Public
Class Form1
Class Form1
'浏览文本文件
Private Sub ToolStripButton1_Click()Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
Dim MyDlg As New OpenFileDialog()
MyDlg.CheckFileExists = True
MyDlg.Filter = "文本文件(*.txt)|*.txt|所有文件(*.*)|*.*"
If MyDlg.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
Me.RichTextBox1.LoadFile(MyDlg.FileName, RichTextBoxStreamType.PlainText)
End If
End Sub
'宋体1号
Private Sub ToolStripMenuItem1_Click()Sub ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem1.Click
Me.RichTextBox1.Font = New System.Drawing.Font("宋体", 26)
End Sub
'宋体5号
Private Sub ToolStripMenuItem2_Click()Sub ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem2.Click
Me.RichTextBox1.Font = New System.Drawing.Font("宋体", 10.5)
End Sub
'楷体1号
Private Sub ToolStripMenuItem3_Click()Sub ToolStripMenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem3.Click
Me.RichTextBox1.Font = New System.Drawing.Font("楷体_GB2312", 26)
End Sub
'楷体5号
Private Sub ToolStripMenuItem4_Click()Sub ToolStripMenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem4.Click
Me.RichTextBox1.Font = New System.Drawing.Font("楷体_GB2312", 10.5)
End Sub
End Class
'浏览文本文件
Private Sub ToolStripButton1_Click()Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
Dim MyDlg As New OpenFileDialog()
MyDlg.CheckFileExists = True
MyDlg.Filter = "文本文件(*.txt)|*.txt|所有文件(*.*)|*.*"
If MyDlg.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
Me.RichTextBox1.LoadFile(MyDlg.FileName, RichTextBoxStreamType.PlainText)
End If
End Sub
'宋体1号
Private Sub ToolStripMenuItem1_Click()Sub ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem1.Click
Me.RichTextBox1.Font = New System.Drawing.Font("宋体", 26)
End Sub
'宋体5号
Private Sub ToolStripMenuItem2_Click()Sub ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem2.Click
Me.RichTextBox1.Font = New System.Drawing.Font("宋体", 10.5)
End Sub
'楷体1号
Private Sub ToolStripMenuItem3_Click()Sub ToolStripMenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem3.Click
Me.RichTextBox1.Font = New System.Drawing.Font("楷体_GB2312", 26)
End Sub
'楷体5号
Private Sub ToolStripMenuItem4_Click()Sub ToolStripMenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem4.Click
Me.RichTextBox1.Font = New System.Drawing.Font("楷体_GB2312", 10.5)
End Sub
End Class
三、多线程:如何从子线程更新主线程数据
Imports
System.Threading
Public Class Form1 Class Form1
Public MyThread As Thread
'从子线程更新进度条数据
Public Sub UpdateProgress()Sub UpdateProgress()
For i As Integer = 1 To 100 Step 1
Thread.Sleep(50)
Dim MyValue As Integer = i
Me.ProgressBar1.Value = MyValue
Me.Label1.Text = "当前模拟执行进度完成百分比:" + MyValue.ToString() + "%"
Next
End Sub
'启动显示执行进度
Private Sub Button1_Click()Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim MyDelegate As New ThreadStart(AddressOf UpdateProgress)
Dim MyThread As New Thread(MyDelegate)
MyThread.Start()
End Sub
End Class
Public Class Form1 Class Form1
Public MyThread As Thread
'从子线程更新进度条数据
Public Sub UpdateProgress()Sub UpdateProgress()
For i As Integer = 1 To 100 Step 1
Thread.Sleep(50)
Dim MyValue As Integer = i
Me.ProgressBar1.Value = MyValue
Me.Label1.Text = "当前模拟执行进度完成百分比:" + MyValue.ToString() + "%"
Next
End Sub
'启动显示执行进度
Private Sub Button1_Click()Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim MyDelegate As New ThreadStart(AddressOf UpdateProgress)
Dim MyThread As New Thread(MyDelegate)
MyThread.Start()
End Sub
End Class
四、如何使用Stopwatch实现高精度计时
dim
MyWatch
as
new
system.diagnostics.stopwatch
mywatch.start
…………
mywatch.stop
Textbox2.text = mywatch.elapsedmilliseconds.tostring + " 毫秒 "
mywatch.start
…………
mywatch.stop
Textbox2.text = mywatch.elapsedmilliseconds.tostring + " 毫秒 "
五、在程序界面执行DOS命令
Imports
System.Diagnostics
Public Class Form1 Class Form1
'执行DOS命令
Private Sub Button1_Click()Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim MyProcess As New Process()
'设定程序名
MyProcess.StartInfo.FileName = "cmd.exe"
'关闭Shell的使用
MyProcess.StartInfo.UseShellExecute = False
'重定向标准输入
MyProcess.StartInfo.RedirectStandardInput = True
'重定向标准输出
MyProcess.StartInfo.RedirectStandardOutput = True
'重定向错误输出
MyProcess.StartInfo.RedirectStandardError = True
'设置不显示窗口
MyProcess.StartInfo.CreateNoWindow = True
'执行DOS命令
MyProcess.Start()
MyProcess.StandardInput.WriteLine(Me.TextBox1.Text)
MyProcess.StandardInput.WriteLine("exit")
'从输出流获取命令执行结果,
Dim MyInfo As String = MyProcess.StandardOutput.ReadToEnd()
Me.RichTextBox1.Text = MyInfo
End Sub
End Class
Public Class Form1 Class Form1
'执行DOS命令
Private Sub Button1_Click()Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim MyProcess As New Process()
'设定程序名
MyProcess.StartInfo.FileName = "cmd.exe"
'关闭Shell的使用
MyProcess.StartInfo.UseShellExecute = False
'重定向标准输入
MyProcess.StartInfo.RedirectStandardInput = True
'重定向标准输出
MyProcess.StartInfo.RedirectStandardOutput = True
'重定向错误输出
MyProcess.StartInfo.RedirectStandardError = True
'设置不显示窗口
MyProcess.StartInfo.CreateNoWindow = True
'执行DOS命令
MyProcess.Start()
MyProcess.StandardInput.WriteLine(Me.TextBox1.Text)
MyProcess.StandardInput.WriteLine("exit")
'从输出流获取命令执行结果,
Dim MyInfo As String = MyProcess.StandardOutput.ReadToEnd()
Me.RichTextBox1.Text = MyInfo
End Sub
End Class