vb點虐 怎樣在當前已打開的AutoCAD畫圖? 最好有個判斷語句, 如果CAD已打開, 在當前畫圖; 如果沒有, 則打開

Private Function isopen() As AutoCAD.AcadApplication

創(chuàng)新互聯(lián)建站專注為客戶提供全方位的互聯(lián)網(wǎng)綜合服務，包含不限于成都網(wǎng)站設計、成都網(wǎng)站建設、大邑縣網(wǎng)絡推廣、微信小程序、大邑縣網(wǎng)絡營銷、大邑縣企業(yè)策劃、大邑縣品牌公關、搜索引擎seo、人物專訪、企業(yè)宣傳片、企業(yè)代運營等，從售前售中售后，我們都將竭誠為您服務，您的肯定，是我們最大的嘉獎；創(chuàng)新互聯(lián)建站為所有大學生創(chuàng)業(yè)者提供大邑縣建站搭建服務，24小時服務熱線：18982081108，官方網(wǎng)址：www.cdcxhl.com

Try

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

return CADapp_temp

Catch ex As Exception

Return Nothing

End Try

End Function

'調用上面的函數(shù),如果為nothing表示沒有打開，否則打開并返回對象

VB點虐 中如何畫圖？

分類: 電腦/網(wǎng)絡 程序設計 其他編程語言

問題描述:

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

急用?。。。。。。。。?/p>

解析:

VB與VB不同。

VB已經(jīng)有專門繪圖的類。

可以定義筆刷然后用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點虐 畫圖 如何保持圖形

不用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