vb.net2005资料收集(系统篇)

原创 2007年10月06日 21:56:00

一、浏览文件夹,并选择文件

Imports System.IO
Public Class Form1Class 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

 

二、设置字体

Public Class Form1Class 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

 

三、多线程:如何从子线程更新主线程数据

Imports System.Threading
Public Class Form1Class 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+"毫秒"

 

五、在程序界面执行DOS命令

Imports System.Diagnostics
Public Class Form1Class 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

vb.net2005资料收集(数据库篇)

一、数据库链接1、使用OleDbConnection、OleDbCommand、OleDbDataReader连接读取数据库           Dim MyConnection As New Ole...
  • cooldidi1
  • cooldidi1
  • 2007年10月06日 22:13
  • 1051

《系统思考实践篇》知识点框架总结

本文基于本人在第一次阅读《系统思考实践篇》做的知识框架总结,里面包括了系统思考的定义、系统思考的价值、应用范围等.........
  • u011570492
  • u011570492
  • 2016年11月16日 20:26
  • 379

任务书

本科生毕业论文(设计)       题    目 基于Android运动监测软件的设计与实现 学    院            软件学院          专    业            软...
  • VincentViny
  • VincentViny
  • 2015年11月16日 07:40
  • 139

单点登录资料收集(百度篇)

来源:百度搜索,关键词“单点登录”,时间2007-05-11上午 单点登录的简单实现技术文章单点登录的简单实现 在门户项目中,经常会遇到如何实现单点登录的...
  • awuzi
  • awuzi
  • 2007年05月11日 10:05
  • 636

单点登录资料收集(谷歌篇)

来源:www.google.cn,关键词“单点登录”,时间2007-05-11上午敬告读者:实际上,像这样使用单个关键词得到的搜索结果文档数量是巨大的,对于初涉该领域的新手有用,对于有一定基础的人员来...
  • awuzi
  • awuzi
  • 2007年05月11日 10:23
  • 618

GPS资料收集

  GPS即全球定位系统(Global Positioning System)是美国从本世纪70年代开始研制,历时20年,耗资200亿美元,于1994年全面建成,具有在海、陆、空进行全方位实时三维导航...
  • nogodoss
  • nogodoss
  • 2008年08月06日 12:07
  • 644

关于手机游戏开发之二[资料收集篇]

http://www.polsnet.com/home/tech54_5498.htmlJbuilder ?淘汰Eclipse ?初学者真的不好配置NetBeans ?大家都说不好使,可它毕竟是Sun...
  • itsearch
  • itsearch
  • 2007年12月12日 21:53
  • 522

SIP学习之旅【资料收集篇】

1. SIP开发环境的搭建 http://www.rosoo.net/a/201007/9819.html 要在windows或者linux平台下开发基于SIP的软电话,需要以下软件 ...
  • tuyooc
  • tuyooc
  • 2014年06月28日 16:23
  • 601

电子制作之资料收集篇

2006-04-28 21:01:12 电子制作之资料收集篇 0 && image.height>0){if(image.width>=510){this.width=510;...
  • mybirdsky
  • mybirdsky
  • 2008年01月17日 15:52
  • 570

资料收集整理工具软件汇总(更新中)

  国内部分: 1、Mybase Desktop Edition/Mybase Networking Edition 软件类型:共享软件介绍:Mybase 是一个功能强劲且可随心所欲自定义格式及层次...
  • sczhoubing
  • sczhoubing
  • 2004年08月03日 15:43
  • 7104
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:vb.net2005资料收集(系统篇)
举报原因:
原因补充:

(最多只允许输入30个字)