vb.net自绘 vb实现简易绘画

VB.NET怎么重绘？

新建一个Winform，在和Form1平行的位置粘贴如下代码

Public Class MyLabel

    Inherits Label

    Protected Overrides Sub OnPaint(e As PaintEventArgs)

        e.Graphics.DrawEllipse(New Pen(Color.Red), New Rectangle(2, 2, 10, 10))

        MyBase.OnPaint(e)

    End Sub

End Class

运行，停掉，在工具箱找到MyLabel，拖动就可以看到效果。这只是最基本的重写，要模仿QQ还需要其他技术以及美工。

相关问答

Q1: vb.net 绘图，重绘知识

继承（Inherits）控件就可以重写它的属性和方法，图标可以在paint中重绘，用gdi，工具主要在drawing和drawing2d中。

combobox弹出的框增加图标吗？个人看法可能需要得到那个句柄，才可以重绘，但那个好像是一体的，不知道能不能弄到句柄。

textbox可以自定义高度。只是以行高度为单位，改变字体大小即可，没必要重写吧。

vb.net自绘我也自学，感觉基础容易学，进阶资料少。循序渐进也没序可循，基本是在摸索。

都是想到什么问题，就立下一个目标，然后攻破vb.net自绘他，结果可能是尝试几天后，发现目标超出能力范围。

晦涩是相对的，实践出真知，多动手，基础就好了。

Q2: VB.net中如何画图？

VB.net与VB不同。

VB.net已经有专门绘图vb.net自绘的类。

可以定义笔刷然后用Drawing类中vb.net自绘的方法绘制。

Private Sub DrawEllipse()

Dim myPen As New System.Drawing.Pen(System.Drawing.Color.Red)

Dim formGraphics as System.Drawing.Graphics

formGraphics = Me.CreateGraphics()

formGraphics.DrawEllipse(myPen, New Rectangle(0,0,200,300))

myPen.Dispose()

formGraphics.Dispose()

End Sub

Private Sub DrawRectangle()

Dim myPen As New System.Drawing.Pen(System.Drawing.Color.Red)

Dim formGraphics as System.Drawing.Graphics

formGraphics = Me.CreateGraphics()

formGraphics.DrawRectangle(myPen, New Rectangle(0,0,200,300))

myPen.Dispose()

formGraphics.Dispose()

End Sub

Q3: vb.net绘制曲线图

。net  其实还是很好绘制图形vb.net自绘的

你可以看下 Graphics  类

   Dim d As New Bitmap(Me.Width, Me.Height)  ‘一个图片吧

      Dim g As Graphics = Graphics.FromImage(d)’绘制  准备在这个图片是进行

然后  就是你绘制vb.net自绘的东西vb.net自绘了

线 就是   g.DrawLine()

圆 弧度  就用  g.DrawArc(Pens.Black, New Rectangle(0, 0, 400, 200), 0, 360)

复杂的就是      g.DrawBezier()

 等  如果你用的是 VS的  编译  上面都有详细的参数说明

     Dim d As New Bitmap(Me.Width, Me.Height)

        Dim g As Graphics = Graphics.FromImage(d)

        g.DrawArc(Pens.Black, New Rectangle(0, 0, 200, 200), 0, 360)

        g.DrawLine(Pens.Red, New Point(0, 0), New Point(200, 200))

        g.DrawLines(Pens.Green, New Point() {New Point(0, 0), New Point(50, 40), New Point(50, 80), New Point(90, 70), New Point(100, 400)})

        g.DrawBezier(Pens.Yellow, New Point(0, 100), New Point(0, 0), New Point(200, 0）vb.net自绘， New Point(200, 200))

        g.Dispose()

        Me.BackgroundImage = d

Q4: vb.net控件的BorderStyle设置为FixedSingle会出现黑线边框,可以更改他的颜色吗 比如改成红色线边框

要么重写这个控件的 OnPaint 事件，判断 BorderStyle 属性为 FixedSingle 的时候自绘其他颜色。

要么不重写，把 BorderStyle 设为 None，直接在这个控件的 Paint 事件里自绘边框，例如：

Private Sub Label1_Paint(sender As Object, e As PaintEventArgs) Handles Label1.Paint

    e.Graphics.DrawRectangle(Pens.Red, New Rectangle(Label1.DisplayRectangle.X, Label1.DisplayRectangle.Y, Label1.DisplayRectangle.Width - 1, Label1.DisplayRectangle.Height - 1))

End Sub

运行效果：

Q5: vb.net桌面中bitmap类如何直接绘制到屏幕?

可以直接显示的。你看下面的示例，使用vb.net画的齿轮：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

b = New Bitmap(PictureBox1.Width, PictureBox1.Height)

g = Graphics.FromImage(b)

'g.RotateTransform(90)

g.Clear(Color.White)

g.TranslateTransform(PictureBox1.Width / 2, PictureBox1.Height / 2)

g.ScaleTransform(1, -1)

'g.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias

g.SmoothingMode = Drawing2D.SmoothingMode.HighQuality

DrawCL(g, New PointF(Val(TextBox1.Text), Val(TextBox2.Text)), Val(TextBox3.Text), Val(TextBox4.Text), Val(TextBox5.Text), Val(TextBox6.Text), Val(TextBox7.Text), Val(TextBox8.Text), Val(TextBox9.Text))

DrawCL(g, New PointF(Val(TextBox18.Text), Val(TextBox17.Text)), Val(TextBox16.Text), Val(TextBox15.Text), Val(TextBox14.Text), Val(TextBox13.Text), Val(TextBox12.Text), Val(TextBox11.Text), Val(TextBox10.Text))

PictureBox1.Image = b

End Sub

关于vb.net自绘和vb实现简易绘画的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。