锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net图片函数 vb中picture

IT技术函数

Vb.net怎么实现图像的处理这问题有点笼统vb.net图片函数，软糖来说说把vb.net图片函数：
图像处理由System.Drawing命名空间负责 。
主要是Bitmap类和Graphics类 。
Bitmap表示一个位图vb.net图片函数，可以是BMP,JPG,PNG等文件 。
装载位图
Dim 位图 As Bitmap = Bitmap.FromFile("C:\Image1.PNG")
Graphics表示一张画纸，能够进行绘制操作 。
它可以被窗体、控件、位图调用CreateGraphics()方法来创建 。
然后调用Graphics.Draw开头的一系列函数来绘制图像和图形，Fill开头的填充图形 。
创建画纸并绘制位图
Dim 画纸 As Graphics = Me.CreateGraphics()
画纸.DrawImage(位图, 100, 100, 256, 256)
可以将上面三行放到Form1_Load中测试，把路径改一下 ， 
还可以把Me改为能在上面绘图的控件的名称 。
更多内容请看MSDN的System.Drawing命名空间 。
如满意，请采纳，谢谢 。
大佬们~VisualStudio中vb.net如何画三角函数图像？VB系统的坐标原点在左上角，X轴的正方向是水平向右，而Y轴的正方向是垂直向下 。所以，要绘制三角函数的曲线，自己可以通过改变点坐标的方法来实现，当然，VB.NET提供了相应的方法可以来实现坐标变换 ， 也可以通过VB.Net的Graphics类提供的平移、旋转等转换来实现 。
下面是我通过自己变换实现的示例 ， 提供参考；我的环境是VB.NET 2010
Imports System.Math
【vb.net图片函数 vb中picture】Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'1，获得一个Graphics对象
Dim MyGraphics As Graphics
MyGraphics = PictureBox1.CreateGraphics
'2，定义一个Pen对象，用于绘制图形（轮廓线）
Dim MyPen As New Pen(Color.Black, 1)
'3，定义一个Brush对象，用于填充图形（如果需要填充的话）
Dim MyBrush As New SolidBrush(Color.Orange)
MyGraphics.DrawLine(MyPen, 0, 200, 700, 200)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'1，获得一个Graphics对象
Dim MyGraphics As Graphics
MyGraphics = PictureBox1.CreateGraphics
'2，定义一个Pen对象，用于绘制图形（轮廓线）
Dim MyPen As New Pen(Color.Black, 1)
'3 ， 定义一个Brush对象 ， 用于填充图形（如果需要填充的话）
Dim MyBrush As New SolidBrush(Color.Orange)
'声明横向和纵向比例变量
Dim Heng As Integer = 20
Dim Zong As Integer = 50
'先获得正弦值，保存到点坐标数组
Dim MyPoints(700) As Point
Dim i As Integer
For i = 0 To 700
MyPoints(i) = New Point(i * Heng, 200 + Sin(i) * Zong)
Next
'采用绘制光滑线连接点的方式绘制曲线
MyGraphics.DrawCurve(MyPen, MyPoints)
End Sub
End Class
显示的效果图：
vb.net中,如何点击按钮调出选择文件窗口选中图片并在picturebox中显示出来?button , OpenFileDialog , PictureBox , textbox 控件，我把图片显示在 picturebox 中，而路
径存放在 textbox 中，不知道这样行不行 。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim filename As String
OpenFileDialog1.Filter = "jpg files (*.jpg)|*.jpg"
OpenFileDialog1.FilterIndex = 1
If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
filename = OpenFileDialog1.FileName
Else
End
End If
If Not (PictureBox1.Image Is Nothing) Then
PictureBox1.Image.Dispose()
PictureBox1.Image = Nothing
End If
'PictureBox1.Image = System.Drawing.Image.FromFile(filename)

推荐阅读


上一篇：关于微信暂无更多视频号怎么办的信息

下一篇：裸身直播平台有哪些，裸身直播平台有哪些