Public Module mdl_Common
    Public MainForm As Form1 = Nothing

    Public Function GetLocalIPAddress() As String
        Dim IPAdress As System.Net.IPAddress
        Dim HostName As String = System.Net.Dns.GetHostName '获得本机的机器名
        IPAdress = System.Net.Dns.GetHostEntry(HostName).AddressList.GetValue(0) '获得本机的IP
        Return IPAdress.ToString '本机的IP
    End Function

    Public Function GetIPFromNetUrl(ByVal url As String) As String
        Dim objIPHostEntry As System.Net.IPHostEntry

        Try
            objIPHostEntry = System.Net.Dns.GetHostEntry(url) '把http://blog.sina.com.cn/u/1459845580的域名对应的ip地址解析出来
            Return objIPHostEntry.AddressList(0).ToString
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

        Return ""
    End Function

    '对图片进行缩放
    '将图片Image缩放到aimRect指定的区域
    Public Function ZoomImage(ByRef image As Image, ByVal aimRect As Rectangle) As Image
        Dim factor As Double = aimRect.Width / image.Width
        Dim factor_y As Double = aimRect.Height / image.Height

        '按照最小的缩放比确定新的矩形框
        If factor > factor_y Then
            factor = factor_y
        End If

        Dim newRect As New Rectangle
        newRect.Width = factor * image.Width
        newRect.Height = factor * image.Height

        Dim new_Image As New Bitmap(newRect.Width, newRect.Height, System.Drawing.Imaging.PixelFormat.Format24bppRgb)
        Dim new_Graphic As Graphics = Graphics.FromImage(new_Image)
        new_Graphic.DrawImage(image, newRect, New Rectangle(0, 0, image.Width, image.Height), System.Drawing.GraphicsUnit.Pixel)
        Return new_Image
    End Function

    '并获取数据字节
    Public Function GetBytesFromImage(ByVal image As Image, ByRef picBuffer() As Byte) As Boolean
        Dim stream As New System.IO.MemoryStream(picBuffer)
        image.Save(stream, System.Drawing.Imaging.ImageFormat.Bmp)
        Return True
    End Function

    Public Function GetImageFromBytes(ByRef picBuffer() As Byte) As Image
        Dim image As Image = Nothing
        Try
            Dim stream As New System.IO.MemoryStream(picBuffer)
            image = image.FromStream(stream)
        Catch ex As Exception
        End Try

        Return image
    End Function

    Public Function isDoubleValue(ByVal valString As String) As Boolean
        Dim m_dbl As Double = 0
        Try
            m_dbl = CDbl(valString)
            Return True
        Catch ex As Exception
        End Try

        Return False
    End Function
End Module