VB.net编程中可能用到的边边角角（二） —— 取Mac地址、取某String的MD5值、多线程、RAR压缩、ADOX生成数据库、加载工程内的Form、一个滚动条控制两个DataGridView

1.取Mac地址

    Function getMacAddress()
        Dim nics() As NetworkInterface = NetworkInterface.GetAllNetworkInterfaces()
        Return nics(0).GetPhysicalAddress.ToString
    End Function

2.取某String的MD5值

    Function GetMD5(ByVal input As String) As String
        Dim md5Hasher As MD5 = MD5.Create()
        Dim data As Byte() = md5Hasher.ComputeHash(Encoding.Default.GetBytes(input))
        Dim sBuilder As String = String.Empty
        Dim i As Integer
        For i = 0 To data.Length - 1
            sBuilder = sBuilder + data(i).ToString("x2") ’32位MD5
        Next i
        sBuilder = sBuilder.Substring(8, 16).ToUpper() ’16位MD5（就是32位MD5中间的16位。。。）
        Return sBuilder
    End Function

3.多线程的小示例

    Public Sub Method1()
        Dim i As Integer
        For i = 1 To 100
            MessageBox.Show("这是类AClass方法method1的内容" + i.ToString())
        Next
    End Sub

    Public Sub Method2()
        Dim i As Integer
        For i = 1 To 100
            MessageBox.Show("这是类AClass方法method2的内容" + i.ToString())
        Next
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim obj As New Form13
        Dim th1, th2 As Thread

        th1 = New Thread(New ThreadStart(AddressOf obj.Method1))
        th1.Start()

        th2 = New Thread(New ThreadStart(AddressOf obj.Method2))
        th2.Start()　　

        Dim i As Integer
        For i = 1 To 100
            MessageBox.Show("Main方法里的内容" + i.ToString())
        Next
    End Sub

4.使用RAR压缩文件

        Shell("D:\Program Files\WinRAR\WinRAR.exe a -r c:\456.rar c:\tips.txt")  ’a之前的部分为RAR安装路径，最后的tips.txt为需要压缩的文件，中间的456.rar为压缩的路径

        'Shell("D:\Program Files\WinRAR\WinRAR.exe a -p123456-r c:\456.rar c:\tips.txt")  ’-p123456意为密码123456，但是我输入密码不好用，可能是日文系统的原因，具体原因待查。

5.使用ADOX生成数据库及表

        Try
            Dim tableName As String = "GenuineValidation"
            Dim catalog As New ADOX.Catalog
            catalog.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\\" + tableName + ".mdb;Jet OLEDB:Engine Type=5") ’生成的数据库路径
            Dim conn As New ADODB.Connection
            conn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\\" + tableName + ".mdb", "", "", -1)
            catalog.ActiveConnection = conn
            Dim table As New ADOX.Table
            table.Name = "GenuineValidation"
            Dim column As New ADOX.Column ’可以先New一个列，编辑好了再添加
            column.ParentCatalog = catalog
            column.Name = "MACMD516" ’列名
            'column.Type = DataTypeEnum.adChar ’Access添加这个出错，不添加默认为Text型
            column.DefinedSize = 19 ’长度
            table.Columns.Append(column, , 19)
            table.Keys.Append("PK_GV" , KeyTypeEnum.adKeyPrimary, column, "", "") ’在刚才加的列上添加主键
            table.Columns.Append("GenuineCode", , 20) ’直接添加一个列，长度20的文本型
            'table.Columns.Append("GenuineCode", DataTypeEnum.adVarChar, 20) ’类型为VarChar也出错，同样不填默认Text型
            table.Columns.Append("GenuineCode2", DataTypeEnum.adDate) ’日期型
            catalog.Tables.Append(table)
            conn.Close()
        Catch ex As Exception

        End Try

6.加载工程内的Form

    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim f4 As Form4 = New Form4()
        f4.FormBorderStyle = Windows.Forms.FormBorderStyle.None ’去掉Form4的边框，否则占地方且奇丑无比。。。
        f4.Dock = DockStyle.Fill
        f4.TopLevel = False
        Me.Panel1.Controls.Clear()
        Me.Panel1.Controls.Add(f4)
        f4.Show()
    End Sub

7.一个滚动条控制两个DataGridView

 

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        HScrollBar1.Minimum = 0
        HScrollBar1.Maximum = DataGridView1.Columns.Count + DataGridView1.DisplayedColumnCount(False)
        HScrollBar1.SmallChange = DataGridView1.DisplayedColumnCount(False) + 1 ’点在滚动条箭头上的变化幅度
        HScrollBar1.LargeChange = DataGridView1.DisplayedColumnCount(False) + 2 ’点在滚动条空白处的变化幅度

 

    End Sub

 

    Private Sub HScrollBar1_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles HScrollBar1.Scroll
        DataGridView1.FirstDisplayedScrollingColumnIndex = e.NewValue
        DataGridView2.FirstDisplayedScrollingColumnIndex = e.NewValue
        Application.DoEvents()
    End Sub

HScrollBar1是从控件里拖出来的，DataGridView1，DataGridView2的ScrollBar可以去掉。苦B的我以为是操作DataGridView1中的ScrollBar，浪费了不少时间。。。