VB.net点击按钮绘图 vbs 点击窗口指定按钮

关于vb.net中绘图并保存图片的问题

Imports System.Drawing.Imaging

Public Class Form1

Dim imageName As String = "C:\Documents and Settings\...\1126.jpg "

Dim i As Image = Image.FromFile(imageName)

Dim g As Graphics = Graphics.FromImage(i) '此处从背景图创建Greaphics

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

'划线

Dim BluePen As New Pen(Color.Blue, 5)

BluePen.DashStyle = Drawing2D.DashStyle.Solid

g.DrawLine(BluePen, 100.0F, 170, 500.0F, 170)

g.Dispose()

PictureBox1.Image = i

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

'退出

Me.Close()

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

'存盘

i.Save( "C:\testimage.jpg ", ImageFormat.Jpeg)

i.Dispose()

End Sub

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

PictureBox1.Image = i

End Sub

End Class

如何使用vb.net调用cad进行绘图

你去查查书吧，书上挺详细的，在这说不好说，你先在项目里引用。然后 Dim acadapp As AcadApplication Dim acaddoc As AcadDocument On Error Resume Next AcadApp = GetObject(, "AutoCAD.Application") If Err.Number Then Err.Clear() AcadApp = CreateObject("AutoCAD.Application") If Err.Number Then MsgBox("不能运行AutoCAD,请检查是否安装了AutoCAD") Exit Sub End If End If AcadApp.Visible = True '界面可视

VB.net中如何画图？

VB.net与VB不同。

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

可以定义笔刷然后用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 绘图在Button1_Click可以画出一条线。但是换成form1的Load事件就不能画图了，为什么？

换成form1的Load事件就不能画图了:

是因为form1在Load的时候,它还不能创建图形界面,也就不能执行 Me.CreateGraphics

vb.net绘图问题

代码：

Public Class Form1

    '*********************************************************************   

    '作者：章鱼哥，QQ：3107073263 群：309816713       

    '如有疑问或好的建议请联系我，大家一起进步     

    '*********************************************************************     

    '绘制圆角矩形函数

    Private Function GetRoundedRectPath(ByVal rect As Rectangle, ByVal radius As Integer) As System.Drawing.Drawing2D.GraphicsPath

        rect.Offset(-1, -1)

        Dim RoundRect As New Rectangle(rect.Location, New Size(radius - 1, radius - 1))

        Dim path As New System.Drawing.Drawing2D.GraphicsPath

        path.AddArc(RoundRect, 180, 90)     '左上角

        RoundRect.X = rect.Right - radius   '右上角

        path.AddArc(RoundRect, 270, 90)

        RoundRect.Y = rect.Bottom - radius  '右下角

        path.AddArc(RoundRect, 0, 90)

        RoundRect.X = rect.Left             '左下角

        path.AddArc(RoundRect, 90, 90)

        path.CloseFigure()

        Return path

    End Function

    '绘制矩形

    Private Sub DrawingRect()

        Dim g As Graphics = Me.CreateGraphics

        Dim Pen As New Pen(Brushes.DarkRed, 2)

        Dim Hei As Integer = Me.Height

        Dim Wid As Integer = Me.Width

        '矩形的位置和长宽随着窗体的变化而改变

        Dim Rec As New Rectangle(Int(Wid / 5), Int(Hei / 5), Int(Wid / 2), Int(Hei / 2))

        '  g.DrawRectangle(Pen, Rec)

        '清楚现有的矩形

        g.Clear(Me.BackColor)

        g.DrawPath(Pen, GetRoundedRectPath(Rec, 30))

    End Sub

    Private Sub Form1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint

        DrawingRect()

    End Sub

    Private Sub Form1_SizeChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.SizeChanged

        Me.Invalidate() '此函数可引发Paint事件

    End Sub

End Class

效果截图:

原窗口：

缩小后：

VB.net点击按钮绘图的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vbs 点击窗口指定按钮、VB.net点击按钮绘图的信息别忘了在本站进行查找喔。