• λ我爱Aspx >> VB.Net >> vb.net把图象文件转换成XML文件

    • vb.net把图象文件转换成XML文件

  • :csdn blog  Դ:csdn blog  :2007-9-26 15:25:32  ؼ:vb.net把图象文件转换成XML文件
  • Public Class Form2
            Inherits System.Windows.Forms.Form

    Windows 窗体设计器生成的代码

            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:Photo.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(    "请选择一个图片！", "错误", 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>photo</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
    End Class
    Ҷƪл˵?
  • һƪ没有了!
    һƪvb.net如何得到DataGrid中点击的当前行？