快上网专注成都网站设计 成都网站制作 成都网站建设
成都网站建设公司服务热线:028-86922220

网站建设知识

十年网站开发经验 + 多家企业客户 + 靠谱的建站团队

量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决

vb.net控件绘图 vbnet chart控件

请高手解答:如何在vb.net中的webbrowser控件中绘图

webbrowser是不断刷新的。就算你绘了图,那个位置马上又被刷新为原来的样子,所以此路不通。

随州网站制作公司哪家好,找创新互联建站!从网页设计、网站建设、微信开发、APP开发、自适应网站建设等网站项目制作,到程序开发,运营维护。创新互联建站从2013年成立到现在10年的时间,我们拥有了丰富的建站经验和运维经验,来保证我们的工作的顺利进行。专注于网站建设就选创新互联建站

可不可以这样变通:

把你的图片制作好,然后在htm文件中引用它,最后通过webbrowser显示。

VB.net中如何画图?

分类: 电脑/网络 程序设计 其他编程语言

问题描述:

VB6中的form1.circle (100,200),rgb(0,255,0)的语句如何在VB中使用啊?

急用啊!!!!!!!!

解析:

VB与VB不同。

VB已经有专门绘图的类。

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

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

vb.net 画图 如何保持图形

不用PictureBoxTest.Image属性,直接把图形绘制到PictureBoxTest上面就可以了。

Dim button As Integer = 0

Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) _

Handles Button1.Click

Using g As Graphics = Graphics.FromHwnd(PictureBoxTest.Handle)

Dim penRed As Pen = New Pen(Color.Red, 1)     '定义红色画笔  

Dim penblue As Pen = New Pen(Color.Blue, 1) '定义蓝色画笔 

If button = 0 Then

g.DrawLine(penRed, 0, 0, 100, 100)

button = 1

ElseIf button = 1 Then

g.DrawLine(penblue, 100, 100, 200, 200)

button = 0

End If

End Using

End Sub

vb.net画图控件如何画三角网图形?

Imports System.Drawing

Imports System.Drawing.Drawing2D

Public Class Form1

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

Dim g As Graphics = PictureBox1.CreateGraphics

Dim hs As HatchStyle = HatchStyle.Cross

Dim sb As HatchBrush = New HatchBrush(hs, Color.Black, Color.White)

Dim p(3) As Point

p(0).X = 100

p(0).Y = 50

p(1).X = 0

p(1).Y = 100

p(2).X = 200

p(2).Y = 100

p(3).X = 100

p(3).Y = 50

g.FillPolygon(sb, p)

g.DrawPolygon(Pens.Black, p)

End Sub

End Class


网站栏目:vb.net控件绘图 vbnet chart控件
新闻来源:http://6mz.cn/article/dogehoe.html

其他资讯