16,553
社区成员
发帖
与我相关
我的任务
分享
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
'Dim gg As Graphics '定义一个图像处理器,名叫gg
'gg = Graphics.FromHwnd(Me.Handle) '是在指定画在什么地方
'gg.DrawRectangle(Pens.AliceBlue, 0, 0, 200, 200)
Try
Dim b As Bitmap '= 想要保存的图片。 创建一个bitmap类型的bmp变量来读取文件。
b = Image.FromFile("H:\2018-08-22_095415.bmp")
b.Save("H:\picture.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
Catch ex As Exception
MessageBox.Show(ex.Message, Text, MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
string fileName = "sample.jpg";
bmp.Save(fileName, ImageFormat.Jpeg);
bmp.Save(fileName, ImageFormat.Jpeg);
string fileName = "H:\\my1Bitmap.jpeg";
Bitmap bmpTemp = new Bitmap(fileName);
Bitmap bmp = new Bitmap(bmpTemp);
bmpTemp.Dispose();
//bmp.Save(fileName, System.Drawing.Imaging.ImageFormat.Jpeg);
bmp.Save("H:\\my3Bitmap.jpeg", System.Drawing.Imaging.ImageFormat.Jpeg);
' "文件夹存在CHECK"
Public Function isDirExist(ByVal strPath As String) As Boolean
Dim strDirTemp As String()
strDirTemp = strPath.Split("\")
strPath = String.Empty
For i As Integer = 0 To strDirTemp.Length - 1
' 判断数组内容.目的是防止输入的strPath内容如:c:\abc\123\ 最后一位也是"\"
If strDirTemp(i) <> "" Then
strPath += strDirTemp(i) & "\"
End If
Next
' 判断文件夹是否存在
isDirExist = System.IO.Directory.Exists(strPath)
End Function
' 检查设定的输出报表路径是否存在
If common.isDirExist(Me.txtOutputPath.Text.Trim()) = False Then
' 设定的输出报表路径不存在的场合,确认是否要创建该路径
If MsgBox("设定的输出报表路径: " & Me.txtOutputPath.Text.Trim() & " 不存在,是否创建该路径?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
' 创建设定的文件夹
My.Computer.FileSystem.CreateDirectory(Me.txtOutputPath.Text.Trim())
Return True
Else
Me.txtOutputPath.Focus()
Return False
End If
End If
#Region "'判断目录是否存在的函数,传入String值,返回Boolean值"
Private Function Boo_DirExist(ByVal Str_Path As String) As Boolean
Boo_DirExist = System.IO.Directory.Exists(Str_Path)
End Function
#End Region
#Region "'判断文件是否存在的函数, 传入String值,返回Boolean值"
Private Function Boo_FileExist(ByVal Str_File As String) As Boolean
Boo_FileExist = System.IO.File.Exists(Str_File)
End Function
#End Region
Dim Gsz_image As Image = Me.PictureBox_Left.Image
Me.PictureBox_Right.Image = Gsz_image
' Gsz_image = Image.FromFile("H:\my1Bitmap.jpeg")
Gsz_image.Save("H:\myBitmap.jpeg", System.Drawing.Imaging.ImageFormat.Jpeg)
Private Sub Button_UPLOAD_Click(sender As Object, e As EventArgs) Handles Button_UPLOAD.Click
Dim L_Err As String = ""
Dim opd As OpenFileDialog = New OpenFileDialog()
opd.CheckFileExists = True
opd.CheckPathExists = True
opd.RestoreDirectory = True
opd.DefaultExt = "*.*"
opd.Filter = "图像文件 (*.bmp;*.gif;*.jpg;*.jpeg;*.png)|*.bmp;*.gif;*.jpg;*.jpeg;*.png"
opd.ShowDialog()
If opd.FileName <> "" Then
Me.PictureBox.Image = Image.FromFile(opd.FileName)
Me.PictureBox.ImageLocation = opd.FileName
End If
Try
Dim Gsz_image As Image = Me.PictureBox.Image
'直接从硬盘上读取的文件,是可以保存的。但是从PictureBOX读取的图片 保存的时候报错
' Gsz_image.Image.Save("H:\myBitmap.jpeg", System.Drawing.Imaging.ImageFormat.Jpeg)
Gsz_image.Save("H:\myBitmap.jpeg")
Catch ex As Exception
MessageBox.Show(ex.Message, Text, MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub