好久没有来写点什么了...
最近在学vb.net了,有时间的话把学的一些小记写下来,方便以后查阅,也可供有需要的参考O(∩_∩)O哈哈~
以下是通过打开按钮打开对话框(供选择图片存储的图片),点击保存后保存到数据库中的例子。(以下是选取图片和保存的代码)
'点击打开打开一个对话框,供选择图片
Private Sub OpenOToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenOToolStripButton.Click
If (OpenFileDialog1.ShowDialog() = DialogResult.OK) Then
'创建一个bitmap类型的bmp变量来读取文件。
Dim bmp As New Bitmap(OpenFileDialog1.FileName)
'新建第二个bitmap类型的bmp2变量,这里是根据程序需要设置的。像素格式化
Dim bmp2 As New Bitmap(100, 120, System.Drawing.Imaging.PixelFormat.Format24bppRgb)
'将第一个bmp拷贝到bmp2中
Dim draw As Graphics
draw = Graphics.FromImage(bmp2)
draw.DrawImage(bmp, 0, 0)
PictureBox1.Image = bmp2 '读取bmp2到pi
最近在学vb.net了,有时间的话把学的一些小记写下来,方便以后查阅,也可供有需要的参考O(∩_∩)O哈哈~
以下是通过打开按钮打开对话框(供选择图片存储的图片),点击保存后保存到数据库中的例子。(以下是选取图片和保存的代码)
'点击打开打开一个对话框,供选择图片
Private Sub OpenOToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenOToolStripButton.Click
If (OpenFileDialog1.ShowDialog() = DialogResult.OK) Then
'创建一个bitmap类型的bmp变量来读取文件。
Dim bmp As New Bitmap(OpenFileDialog1.FileName)
'新建第二个bitmap类型的bmp2变量,这里是根据程序需要设置的。像素格式化
Dim bmp2 As New Bitmap(100, 120, System.Drawing.Imaging.PixelFormat.Format24bppRgb)
'将第一个bmp拷贝到bmp2中
Dim draw As Graphics
draw = Graphics.FromImage(bmp2)
draw.DrawImage(bmp, 0, 0)
PictureBox1.Image = bmp2 '读取bmp2到pi