74 lines
2.6 KiB
VB.net
74 lines
2.6 KiB
VB.net
|
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
|