锐客网

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

vb.net中绘图 vb 绘图

IT技术绘图

关于vb.net中绘图并保存图片的问题ImportsSystem.Drawing.Imaging
PublicClassForm1
DimimageNameAsString="C:\DocumentsandSettings\...\1126.jpg "
DimiAsImage=Image.FromFile(imageName)
DimgAsGraphics=Graphics.FromImage(i)'此处从背景图创建Greaphics
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
'划线
DimBluePenAsNewPen(Color.Blue,5)
BluePen.DashStyle=Drawing2D.DashStyle.Solid
g.DrawLine(BluePen,100.0F,170,500.0F,170)
g.Dispose()
PictureBox1.Image=i
EndSub
PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click
'退出
Me.Close()
EndSub
PrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.Click
'存盘
i.Save( "C:\testimage.jpg ",ImageFormat.Jpeg)
i.Dispose()
EndSub
PrivateSubForm1_Load(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesMe.Load
PictureBox1.Image=i
EndSub
EndClass
vb.net 多线程 在界面上绘图t.Suspend（）这是一个暂停的线程 。是一个异步方法 。
t.Sleep，我看到了一个同步方法 。必须等待超过了该方法的运行，是继续进行到下一步骤 。
差不多了，from.show的from.showdiaglog的区别！
疑问 ， 我没有找到原因 。
VB到VB.net的绘图APIVB.net里有个很简单的办法，就是把Form1的TransparencyKey 属性设置成白色，你的图片的白色就会变成透明的了，很方便吧 。
VB.Net如何实现抠图并绘图项目中要用图形来显示一个阀门的开度 ， 以及控制阀的开度 。本来是要用什么公司买的控件中的饼图之类的实现，不过我觉得也是麻烦，就想，还是自己画吧 。
首先添加一个TrackBar，名字是“TrackBar1”，一个label，名字是“L_A_SHANG”，一个GroupBox ， 名字是“GB_RIGHT”, ， 然后添加拉动滚动条时的处理函数
'上位机控制
Dim m_start As Integer
Dim RcDraw As System.Drawing.Rectangle
Private Sub TrackBar1_Scroll(ByVal sender As Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
m_start = (100 - TrackBar1.Value)
Me.L_A_SHANG.Text = Me.TrackBar1.Value.ToString
GB_RIGHT.Invalidate() '重画GB_RIGHT
End Sub
添加GB_RIGHT重画时的处理函数
Private Sub GB_RIGHT_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles GB_RIGHT.Paint
RcDraw.X = TrackBar1.Location.X - 40
RcDraw.Y = 20
RcDraw.Height = 100
RcDraw.Width = 20
e.Graphics.DrawRectangle(New Pen(Color.Blue, 5), RcDraw)
Dim i = TrackBar1.Location.X - 40
For i = TrackBar1.Location.X - 40 To TrackBar1.Location.X - 20
e.Graphics.DrawLine(New Pen(Color.Blue, 5), i, m_start + 20, i, 120)
Next
Me.L_A_SHANG.Text = Me.TrackBar1.Value.ToString + "%"
End Sub
到此以及可以实现拉动条的时候，图像跟着变化，并显示百分比 。
vb.net 绘图，重绘知识继承（Inherits）控件就可以重写它的属性和方法，图标可以在paint中重绘，用gdi ， 工具主要在drawing和drawing2d中 。
combobox弹出的框增加图标吗？个人看法可能需要得到那个句柄，才可以重绘，但那个好像是一体的 ， 不知道能不能弄到句柄 。
textbox可以自定义高度 。只是以行高度为单位，改变字体大小即可 ， 没必要重写吧 。
我也自学，感觉基础容易学 ， 进阶资料少 。循序渐进也没序可循，基本是在摸索 。
都是想到什么问题，就立下一个目标，然后攻破他，结果可能是尝试几天后，发现目标超出能力范围 。
晦涩是相对的，实践出真知，多动手，基础就好了 。

推荐阅读


上一篇：flutter好写吗，flutter写的app

下一篇：斯诺克虎牙直播间3号，斯诺克虎牙直播间3号直播间