vb.net選擇集塊 vba選擇集

VB.Net讀取AutoCAD圖紙

如果可以的話請把分給我

創(chuàng)新互聯(lián)網(wǎng)站建設(shè)公司一直秉承“誠信做人，踏實做事”的原則，不欺瞞客戶，是我們最起碼的底線！以服務(wù)為基礎(chǔ)，以質(zhì)量求生存，以技術(shù)求發(fā)展，成交一個客戶多一個朋友！專注中小微企業(yè)官網(wǎng)定制，做網(wǎng)站、成都做網(wǎng)站，塑造企業(yè)網(wǎng)絡(luò)形象打造互聯(lián)網(wǎng)企業(yè)效應(yīng)。

以下是cad2007版的，引用autocad 2007 type library 和autocad/objectdbx common 17如果是04或者版本更低的只要引用autocad 2007 type library，代碼的話大同小異，思路是一樣的

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

On Error Resume Next

Dim acadapp As Autodesk.AutoCAD.Interop.AcadApplication

acadapp = GetObject(vbNullString, "autoCAD.application")

Dim acaddoc As Autodesk.AutoCAD.Interop.AcadDocument

acaddoc = acadapp.ActiveDocument

Dim Ms As Autodesk.AutoCAD.Interop.Common.AcadModelSpace

Ms = acaddoc.ModelSpace

Dim acadObjectI As Autodesk.AutoCAD.Interop.Common.AcadObject

Dim Linei As Autodesk.AutoCAD.Interop.Common.AcadLine

Dim Circlei As Autodesk.AutoCAD.Interop.Common.AcadCircle

Dim Polylinei As Autodesk.AutoCAD.Interop.Common.AcadPolyline

Dim pt As Autodesk.AutoCAD.Interop.Common.AcadPoint

For Each acadObjectI In Ms

Debug.Print(acadObjectI.ObjectName)

Select Case acadObjectI.ObjectName

Case "AcDbLine"

Linei = acadObjectI

Debug.Print("X =" Linei.StartPoint(0).ToString)

Debug.Print("Y =" Linei.StartPoint(1).ToString)

Case ""

End Select

End Sub

VB.net中CheckListBox如何通過程序做選擇。

CheckedListBox1.CheckOnClick = True

指示復(fù)選項是否應(yīng)在首次單擊時更改狀態(tài)

CheckListBox.GetItemChecked

返回復(fù)選框是否被選中的真假項

要用代碼賦是否勾選某項的值應(yīng)該用setitemchecked

VB.NET中的模塊

在C#中有靜態(tài)類的概念自然里邊全部的方法都是靜態(tài)的這意味著你可以直接通過類名方法名去調(diào)用（例如System的Math類就是典型）在VB NET中沒有靜態(tài)類的概念（當然你可以用單例模式把構(gòu)造函數(shù)弄成Private的方式其它方法都是靜態(tài)的）如果某些方法需要被其它地方頻繁使用可以創(chuàng)建模塊在VB NET中一旦創(chuàng)建了模塊其中任何方法屬性或者變量都可以被其它地方引用因此適合全局情況下頻繁交互的情況（比如初始化加載的參數(shù) 可能后續(xù)程序要使用）等

現(xiàn)在問題在于如果你把一個類似以下的模塊代碼封裝成DLL類庫無論在C#或者是VB NET中都無法引用到其方法

Module A

Public Sub Test()

End Sub

End Module

或許你感到很奇怪——不是在VB NET中這樣定義一個Module就直接可以使用其內(nèi)部方法了么？為什么封裝成類庫就不可以了呢？上網(wǎng)問了一些人眾說紛紜后來我在他人協(xié)助下終于成功解決了這個問題——解決方法很簡單——只要在Module前加Public

理由是為了兼容C# VB NET由Module封裝成類庫中這個模塊不再是模塊而是一個標準的類了如果這樣寫那么在 NET中被理解成(C#)

internal A

{

public void Test()

{

}

整個模塊變成Internal的了！當然你到其它程序集中去引用就引用不到！而把類庫中的Module的修飾符改為Public就可以了這就是MSDN那位友人給我最好的提示

雖然這個提示不是令我太滿意（因為要知道VB NET中可以直接不通過類名方式直接使用方法名）但是這給了我很大的暗示得出重要的結(jié)論

）VB NET中Module在制作成類庫時候等同于VB NET中的類的規(guī)則（里邊的方法都是靜態(tài)的）默認情況下是Friend（C#是internal）

）根據(jù)結(jié)論那么我們知道引用該DLL類庫的方法一定是 i）引用命名空間? ii）C#中直接類名方法名對于VB NET 直接可以引用到方法名

lishixinzhi/Article/program/net/201311/12502

網(wǎng)站欄目：vb.net選擇集塊 vba選擇集
分享路徑：http://www.muchs.cn/article6/doggdog.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供云服務(wù)器、搜索引擎優(yōu)化、標簽優(yōu)化、營銷型網(wǎng)站建設(shè)、、動態(tài)網(wǎng)站

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源：創(chuàng)新互聯(lián)

猜你還喜歡下面的內(nèi)容