亚洲精品久久久中文字幕-亚洲精品久久片久久-亚洲精品久久青草-亚洲精品久久婷婷爱久久婷婷-亚洲精品久久午夜香蕉

您的位置:首頁技術(shù)文章
文章詳情頁

把圖象文件轉(zhuǎn)換成XML格式文件

瀏覽:131日期:2022-06-03 15:49:28

把圖象文件轉(zhuǎn)換成XML格式文件 利用.NET 框架下的FromBase64String和ToBase64String方法可以很容易地實(shí)現(xiàn)圖象文件和XML文件的互換。這樣可以輕易解決以XML格式保存圖片的問題。代碼如下: Public Class Form1
Inherits System.Windows.Forms.Form #Region " Windows 窗體設(shè)計(jì)器生成的代碼 "
Public Sub New()
MyBase.New()
InitializeComponent()
在 InitializeComponent() 調(diào)用之后添加任何初始化
End Sub 窗體重寫處置以清理組件列表。
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub Windows 窗體設(shè)計(jì)器所必需的
Private components As System.ComponentModel.IContainer
注意:以下過程是 Windows 窗體設(shè)計(jì)器所必需的
可以使用 Windows 窗體設(shè)計(jì)器修改此過程。
不要使用代碼編輯器修改它。
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents Button2 As System.Windows.Forms.Button
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
Friend WithEvents Button3 As System.Windows.Forms.Button
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.Button1 = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.Button3 = New System.Windows.Forms.Button()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.SuspendLayout()

Button1

Me.Button1.Location = New System.Drawing.Point(365, 63)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(115, 23)
Me.Button1.TabIndex = 0
Me.Button1.Text = "將圖象保存成XML"

Button2

Me.Button2.Location = New System.Drawing.Point(365, 98)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(115, 23)
Me.Button2.TabIndex = 1
Me.Button2.Text = "從XML中得到圖象"

PictureBox1

Me.PictureBox1.Location = New System.Drawing.Point(18, 6)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(320, 460)
Me.PictureBox1.TabIndex = 2
Me.PictureBox1.TabStop = False

Button3

Me.Button3.Location = New System.Drawing.Point(365, 28)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(115, 23)
Me.Button3.TabIndex = 3
Me.Button3.Text = "瀏覽圖片…"

Label1

Me.Label1.Location = New System.Drawing.Point(369, 135)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(105, 95)
Me.Label1.TabIndex = 4

Label2

Me.Label2.Location = New System.Drawing.Point(367, 437)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(130, 16)
Me.Label2.TabIndex = 5
Me.Label2.Text = "【孟憲會(huì)之精彩世界】"

Form1

Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(500, 480)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Label2, Me.Label1, _
Me.Button3, Me.PictureBox1, Me.Button2, Me.Button1})
Me.Name = "Form1"
Me.Text = "圖象文件和XML格式文件互換例子"
Me.ResumeLayout(False) End Sub #End Region Private MyFile As String = ""
Private MyFileExt As String = ""
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles Button2.Click
Dim pic As String
Dim MyXml As System.Xml.XmlDocument = New System.Xml.XmlDocument()
MyXml.Load("c:\MyPhoto.xml")
Dim picNode As System.Xml.XmlNode
picNode = MyXml.SelectSingleNode("/pic/photo")
pic = picNode.InnerText
Dim memoryStream As System.IO.MemoryStream
memoryStream = New System.IO.MemoryStream(Convert.FromBase64String(pic))
Me.PictureBox1.Image = New System.Drawing.Bitmap(memoryStream)
memoryStream.Close()
End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles Button1.Click
If MyFile = "" Then
MessageBox.Show("請選擇一個(gè)圖片!", "錯(cuò)誤", MessageBoxButtons.OK, MessageBoxIcon.Warning)
Exit Sub
End If
Dim MyImg As System.Drawing.Image = MyImg.FromFile(MyFile)
Dim memoryStream As System.IO.MemoryStream = New System.IO.MemoryStream()
MyImg.Save(memoryStream, GetImageType(MyFileExt))
Dim b() As Byte
b = memoryStream.GetBuffer()
Dim pic As String = Convert.ToBase64String(b)
memoryStream.Close()
Dim MyXml As System.Xml.XmlDocument = New System.Xml.XmlDocument()
MyXml.LoadXml("<pic><name>孟憲會(huì)</name><photo>" + pic + "</photo></pic>")
MyXml.Save("c:\MyPhoto.xml")
Label1.Text = "文件被保存到了:" + Microsoft.VisualBasic.ChrW(13) + "c:\MyPhoto.xml"
End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles Button3.Click
Dim openFileDialog1 As New OpenFileDialog()
openFileDialog1.InitialDirectory = "c:\"
openFileDialog1.Filter = "PNG(*.png)|*.png|Gif(*.gif)|*.gif|Jpg(*.jpg)|*.jpg|所有圖象文件(*.*)|*.*"
openFileDialog1.FilterIndex = 2
openFileDialog1.RestoreDirectory = True
If openFileDialog1.ShowDialog() = DialogResult.OK Then
MyFile = openFileDialog1.FileName()
MyFileExt = MyFile.Substring(MyFile.LastIndexOf(".") + 1)
End If
End Sub Public Function GetImageType(ByVal str As String) As System.Drawing.Imaging.ImageFormat
Select Case str.ToLower()
Case "jpg"
Return System.Drawing.Imaging.ImageFormat.Jpeg
Case "gif"
Return System.Drawing.Imaging.ImageFormat.Gif
Case "tiff"
Return System.Drawing.Imaging.ImageFormat.Tiff()
Case "icon"
Return System.Drawing.Imaging.ImageFormat.Icon
Case "image/png"
Return System.Drawing.Imaging.ImageFormat.Png
Case Else
Return System.Drawing.Imaging.ImageFormat.MemoryBmp
End Select
End Function Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) _
Handles MyBase.Closing
System.Diagnostics.Process.Start("IExplore.exe", "http://xml.sz.luohuedu.net/")
End Sub
End Class
標(biāo)簽: XML/RSS
上一條:xml 解析類下一條:讓Asp與XML交互
相關(guān)文章:
主站蜘蛛池模板: 国产成人免费影片在线观看 | 国产大片91精品免费观看男同 | 亚洲成人自拍 | 久草热视频在线 | 黄色录像在线免费观看 | 国产欧美精品一区二区三区-老狼 | 亚洲在线一区 | 91女神在线观看 | 中文字幕 国产 | 91久久亚洲精品国产一区二区 | 在线精品欧美日韩 | japanese色国产在线看视频 | 伊人久久久久久久久香港 | 一级骚片超级骚在线观看 | 欧美精品免费在线 | 欧美亚洲一区二区三区四 | 成人黄色视屏 | 日韩三级黄色 | 精品亚洲综合在线第一区 | 国产99久9在线视频 国产99久久精品 | 偷拍小视频99在线 | 久久综合久久综合九色 | 日韩色视频一区二区三区亚洲 | 欧美中文字幕第一页 | 免费播放观看视频大片 | 国产一区二区三区免费观看 | 精品综合久久久久久97超人 | 亚洲日韩中文字幕在线播放 | 久优草| 免费jizz在线播放视频 | 成年大片免费高清在线观看 | 亚洲第一黄 | 亚洲国产成人va在线观看网址 | 日韩一级黄色录像 | 日韩欧美一级毛片在线 | 欧美国产成人在线 | 在线亚洲观看 | 欧美日韩性生活视频 | 久久99精品一久久久久久 | 亚洲高清在线观看看片 | 国内精品久久久久久久999下 |