VB开发平台,Visual Basic,在线英语词典,英文翻译,专业英语

1) Visual Basic

VB开发平台

2) VB

Research of NC milling simulation system based on VB and OpenGL;

基于VB和OpenGL的数控铣削仿真系统研究

Design in Land Reclamation Management Information System Based on VB ActiveX——A Case Study of Baoan Mine Area;

基于VB ActiveX方法的土地复垦信息系统设计——以保安煤矿区为例

The design of calculations of production capacity and speed for fourdrinier machine based on VB;

基于VB的长网纸机产能及车速计算的程序设计

3) visual basic

Accessing and Controlling the Office Objects by Visual Basic;

利用VB实现OFFICE对象的访问控制

Application of Visual Basic in flood discharge risk analysis;

VB在泄洪风险分析中的应用

Comparison of Several Database Access Interfaces in Visual Basic;

VB中几种数据访问接口的比较

4) visual basic(VB)

5) VB language

6) VB 6.0

VB 6.0

参考词条

VB+OpenGL MapX+VB VB-SQL VB法 vb. net VB-Script VB-SCC VB（VisualBasic） VB+ADO VB ActiveX VB Script VB Excel VB MapObject VB_（12） VisualBasic（VB） Vb++6.0 动态CCT曲线草蛇灰线法

补充资料：在公路低级处理中VB对AutoCAD二次开发

在公路地基处理中可能会遇到钢钎加固的情况，在作图之中需要对上千个点逐一编号，重复工作量很大。如果通过编制程序可以提高工作效率，一天的工作量可以在几分钟之内解决，而且能够避免视觉疲劳而引起的错误。
AutoDesk公司提供了面向对象的编程接口ActiveXAutomation，它使用了OLE的Automation技术。AutoCAD被登录为一个其它Windows的应用程序可以操作的对象，用户可以用VB来访问AutoCAD的所有图形对象和非图形对象，进行二次开发，开发过程完全独立于AutoCAD本身。
有关VB开发AutoCAD的技术环节，在网上可以找到，特别是崔航的有关文章值得同行借鉴。下面给出程序以及简单的实现方法步骤。
程序用到的控件有:Command1点击可连接AutoCAD，并在其中标注钢钎编号；Command2点击以释放AutoCAD所占内存；txtX、txtY输入编号文字相对于钢钎点的相对坐标；Text1、Text2编号文字的高度和旋转角度。现在给出的程序很短而且并不难，就不再作过多注释。作图当中先打开钢钎（在图中体现为点对象）位置的图层，然后运行程序，遍历所有对象并逐一对点对象编号。为节约时间还可以在程序中声明一个"选择集"对象，只对选择集中的对象遍历。下面给出的程序运行后的结果按画点的顺序，而不是按坐标顺序编号，如果有特殊的需要，可以通过相应的排序算法实现。

PrivateSubCommand1_Click()
CallAcadConnect

DimacadUtilAsObject

SetacadUtil=AcadApp.ActiveDocument.Utility'设置Utility对象

DimstxAsDouble
DimstyAsDouble

DimstmStringAsString
stmString=acadUtil.GetString(0,"按任意键开始........")

DimiAsInteger
DimoBjAsAcadObject
DimstxxAsVariant

i=1
ForEachoBjInAcadApp.ActiveDocument.ModelSpace'遍历工作区中的实体

IfoBj.EntityName="AcDbPoint"Then
stxx=oBj.Coordinates
stx=stxx(0)
sty=stxx(1)
CallDrawTxt(stx+Val(txtX),sty+Val(txtY),Val(Text1),0.8,Val(Text2),str(i))
i=i+1
EndIf

NextoBj

EndSub

PrivateSubCommand2_Click()
CallAcadQuit
EndSub

文件模块

PublicAcadAppAsAcadApplication

PublicSubAcadConnect()'连接Cad
OnErrorResumeNext
SetAcadApp=GetObject(,"autocad.application")
IfErrThen
Err.Clear
SetAcadApp=CreateObject("autocad.application")
IfErrThen
MsgBox"不能运行AutoCAD,请检查是否安装！",vbOKCancel,"警告！"

说明：补充资料仅用于学习参考，请勿用于其它任何用途。

首页 \| 翻译 \| 影视 \| 论坛 \| 索引 Vb-Na Matrix VB VB+Access

1) Visual Basic VB开发平台 2) VB VB 1. Research of NC milling simulation system based on VB and OpenGL; 基于VB和OpenGL的数控铣削仿真系统研究 2. Design in Land Reclamation Management Information System Based on VB ActiveX——A Case Study of Baoan Mine Area; 基于VB ActiveX方法的土地复垦信息系统设计——以保安煤矿区为例 3. The design of calculations of production capacity and speed for fourdrinier machine based on VB; 基于VB的长网纸机产能及车速计算的程序设计 3) visual basic VB 1. Accessing and Controlling the Office Objects by Visual Basic; 利用VB实现OFFICE对象的访问控制 2. Application of Visual Basic in flood discharge risk analysis; VB在泄洪风险分析中的应用 3. Comparison of Several Database Access Interfaces in Visual Basic; VB中几种数据访问接口的比较 4) visual basic(VB) VB 5) VB language VB 6) VB 6.0 VB 6.0 参考词条 VB+OpenGL MapX+VB VB-SQL VB法 vb. net VB-Script VB-SCC VB（VisualBasic） VB+ADO VB ActiveX VB Script VB Excel VB MapObject VB_（12） VisualBasic（VB） Vb++6.0 动态CCT曲线草蛇灰线法补充资料：在公路低级处理中VB对AutoCAD二次开发在公路地基处理中可能会遇到钢钎加固的情况，在作图之中需要对上千个点逐一编号，重复工作量很大。如果通过编制程序可以提高工作效率，一天的工作量可以在几分钟之内解决，而且能够避免视觉疲劳而引起的错误。 AutoDesk公司提供了面向对象的编程接口ActiveXAutomation，它使用了OLE的Automation技术。AutoCAD被登录为一个其它Windows的应用程序可以操作的对象，用户可以用VB来访问AutoCAD的所有图形对象和非图形对象，进行二次开发，开发过程完全独立于AutoCAD本身。有关VB开发AutoCAD的技术环节，在网上可以找到，特别是崔航的有关文章值得同行借鉴。下面给出程序以及简单的实现方法步骤。程序用到的控件有:Command1点击可连接AutoCAD，并在其中标注钢钎编号；Command2点击以释放AutoCAD所占内存；txtX、txtY输入编号文字相对于钢钎点的相对坐标；Text1、Text2编号文字的高度和旋转角度。现在给出的程序很短而且并不难，就不再作过多注释。作图当中先打开钢钎（在图中体现为点对象）位置的图层，然后运行程序，遍历所有对象并逐一对点对象编号。为节约时间还可以在程序中声明一个"选择集"对象，只对选择集中的对象遍历。下面给出的程序运行后的结果按画点的顺序，而不是按坐标顺序编号，如果有特殊的需要，可以通过相应的排序算法实现。 PrivateSubCommand1_Click() CallAcadConnect DimacadUtilAsObject SetacadUtil=AcadApp.ActiveDocument.Utility'设置Utility对象 DimstxAsDouble DimstyAsDouble DimstmStringAsString stmString=acadUtil.GetString(0,"按任意键开始........") DimiAsInteger DimoBjAsAcadObject DimstxxAsVariant i=1 ForEachoBjInAcadApp.ActiveDocument.ModelSpace'遍历工作区中的实体 IfoBj.EntityName="AcDbPoint"Then stxx=oBj.Coordinates stx=stxx(0) sty=stxx(1) CallDrawTxt(stx+Val(txtX),sty+Val(txtY),Val(Text1),0.8,Val(Text2),str(i)) i=i+1 EndIf NextoBj EndSub PrivateSubCommand2_Click() CallAcadQuit EndSub 文件模块 PublicAcadAppAsAcadApplication PublicSubAcadConnect()'连接Cad OnErrorResumeNext SetAcadApp=GetObject(,"autocad.application") IfErrThen Err.Clear SetAcadApp=CreateObject("autocad.application") IfErrThen MsgBox"不能运行AutoCAD,请检查是否安装！",vbOKCancel,"警告！" 说明：补充资料仅用于学习参考，请勿用于其它任何用途。
©2008 dictall.com