vb.net画图 vb编写简单的画图程序

VB.net绘图具体如何设置双缓冲

VB.NET画图是不能设置双缓冲的,双缓冲是指窗体,从来没说是针对控件。

成都网站建设公司更懂你!成都创新互联公司只做搜索引擎喜欢的网站!成都网站制作前台采用搜索引擎认可的DIV+CSS架构,全站HTML静态,H5建站+CSS3网站,提供:网站建设,微信开发,重庆小程序开发商城网站建设重庆APP开发公司域名申请,服务器租售,网站代托管运营,微信公众号代托管运营。

不用graphic.clear清理重画就不会闪烁。你可以先把容器删了再重新建立一个再去画。

简单举例:

Graphics g;

Pen p;

Panel pl;

构造函数初始化:

p=new Pen(Color.Red,2);

pl=panel1;

造成闪烁的画法:

g=pl.CreateGraphics();

g.Clear(SystemColor.ButtonFace);

//.....画新的

不会闪烁的办法:

this.Controls.ReMoveAt(panel1);

pl=new Panel();

pl.Name="panel1";

//....创建容器控件

this.Controls.Add(pl);

//继续画

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怎样在当前已打开的AutoCAD画图? 最好有个判断语句, 如果CAD已打开, 在当前画图; 如果没有, 则打开

Private Function isopen() As AutoCAD.AcadApplication

Try

dim CADapp_temp AutoCAD.AcadApplication = GetObject(, "AutoCAD.Application")

return CADapp_temp

Catch ex As Exception

Return Nothing

End Try

End Function

'调用上面的函数,如果为nothing表示没有打开,否则打开并返回对象


分享标题:vb.net画图 vb编写简单的画图程序
网页网址:http://pwwzsj.com/article/doodiic.html