c = Val(Text1.Text) '将Text1中的值赋给cIf c = Abs(a - b) Then 'Abs(a - b)是a和b间的差(正数),判断c是否等于该差值f = f + 10 '是,则f加10Label6.Caption = f '显示fElsef = f - 10 '否则减10Label6.Caption = fEnd If

我之前因学习昆仑通态的组态软件MCGS,用并学习过VB,还买了一本书<VB语言程序设计(第3版)>.现在在某公司实习,最近接触老的项目,又要用到VB.我就又把那本书大体看了一遍,并对其进行了总结.之所以总结这个,主要是书太多了,想把那本书丢了,呵呵,但又得留下点东西吧. 下面一张图概括了VB的大部分基础知识点,看了这个图基本就不用看书了,哈哈. 我学习VB主要是在VB6.0的环境下学习的.下面介绍一下VB的一些基本语句. (1)声明语句 Dim score As Integer, temp A

0 引言 随着数字信息化进程的快速推进,如今三维CAD技术在越来越多的企业当中得到运用.为了降低在设计生产中的成本,缩短设计周期,增强企业竞争力,三维参数化技术随之应声,它凭借更贴近现代概念的设计以及并行设计的思想得到了越来越多工程设计人员的青睐,设计人员可以在早期的开发阶段运用三维参数化技术快速模拟零件的三维草图,再通过数值输入对其形状及大小进行约束,绘制精确的零件图,并将零件放入零件库中,方便以后的使用及修改工作.从而大大减少了重复性绘图的时间,提高了工作效率. 本文以三维CAD软件Soli

暂时用到,学习学习. 变量声明 Dim 变量名 as 数据类型类型 Set 实例 = new 类名 自定义数据类型 Type 数据类型标识符 域名 As 数据类型; 域名 As 数据类型; 域名 As 数据类型; EndType '使用说明 Dim a As 数据类型标识符 a.域名 = XXXX '或 With a .域名 = xxx End With 注意 VB建立了一种新的变量类型DD货币型变量,通过使用仅带有二位小数的货币变量,就能避免因使用实型变量而带来的数值积累误差问题. VB在调用

1.现在做的项目是关于业务系统与U811.1的接口项目. 2.那么就需要调整通过EAI调用生成U8业务单据. 3.下面就一个通用的向U8-EAI传递XML的通用方法 4.肯定有人会问怎么还用VB调用呢?为什么不用C#等? 这是因为现在客户的老系统用的是VB6.0开发的,所以要结合老系统开发新业务再与U8业务一起动作. 5.还有朋友会有疑问全用U8不就行了,U8是标准产品又不是“神”,在企业管理上不是所有的U8业务流程都是最好的.最优的.最先进的.所以有些业务必须要客开.并用U8二开还是会被限制的

主要用到函数说明: MxDrawXCustomFunction::Mx_HideToolBarControl 隐藏或显示工具条上的按钮.详细说明如下: 参数 说明 IN LPCTSTR pszToolBarName 工条名称 IN LPCTSTR pszControlName = NULL 按钮名称,多个按钮名称,可以用逗号分隔开,为空,隐藏或显示所有按钮 IN BOOL isHide = TRUE 是否隐藏按钮 IN BOOL isAutoRecalcLayout = TRUE 是否自动重新布

主要用到函数说明: MxDrawXCustomFunction::Mx_OpenBackgroundFile 把一个dwg文件,或者图像文件当着一个背景导入.详细说明如下: 参数 说明 CString sFileName DWGBMPJPG文件路径,,文件件名为空时,清空背景文件 LONG lightColor = 0x505050 背景灰度显示颜色,灰度显示的颜色,默认值为0x505050 BOOL isZoomE = TRUE 是否自动把调用ZoomE操作,默认值为1 BOOL isUpDi

主要用到函数说明: MxDrawXCustomFunction::Mx_SendStringToExecute 执行一个带参数的命令.详细说明如下: 参数 说明 CString sCmaName 命令名 Param 命令参数 VB中实现代码说明: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 Dim param As MxDrawResbuf Set param = New MxDrawRes

主要用到函数说明: _DMxDrawX::DrawDimAligned 绘制一个对齐标注.详细说明如下: 参数 说明 DOUBLE dExtLine1PointX 第一条界线开始点X值 DOUBLE dExtLine1PointY 第一条界线开始点Y值 DOUBLE dExtLine2PointX 第二条界线开始点X值 DOUBLE dExtLine2PointY 第二条界线开始点Y值 DOUBLE dTextPositionX 标注使用的指定标注线位置的定义点X值 DOUBLE dTextPo

主要用到函数说明: _DMxDrawX::DrawDimAngular 绘制一个角度标注.详细说明如下: 参数 说明 DOUBLE dAngleVertexX 角度标注的顶点的X值 DOUBLE dAngleVertexY 角度标注的顶点的Y值 DOUBLE dFirstEndPointX 角度标注第一个参考线上的点X值 DOUBLE dFirstEndPointY 角度标注第一个参考线上的点Y值 DOUBLE dSecondEndPointX 角度标注第二个参考线上的点X值 DOUBLE dS

主要用到函数说明: _DMxDrawX::DrawDimDiametric 绘制一个直径标注.详细说明如下: 参数 说明 DOUBLE dChordPointX 在被标注的曲线上的第一个点X值 DOUBLE dChordPointY 在被标注的曲线上的第一个点Y值 DOUBLE dFarChordPointX 在被标注的曲线上的第二个点X值,这个点与chordPoint直径相对 DOUBLE dFarChordPointY 在被标注的曲线上的第二个点Y值,这个点与chordPoint直径相对 D

主要用到函数说明: _DMxDrawX::DrawDimRotated 绘制一个线型标注.详细说明如下: 参数 说明 DOUBLE dExtLine1PointX 输入第一条界线的起始点X值 DOUBLE dExtLine1PointY 输入第一条界线的起始点Y值 DOUBLE dExtLine2PointX 输入第二条界线的起始点X值 DOUBLE dExtLine2PointY 输入第二条界线的起始点Y值 DOUBLE dDimLineLocationX 输入标注线自身上的点X值 DOUBL

主要用到函数说明: _DMxDrawX::DrawDimRadial 绘制一个半径标注.详细说明如下: 参数 说明 DOUBLE dCenterX 被标注的曲线的中点X值 DOUBLE dCenterY 被标注的曲线的中点Y值 DOUBLE dChordPointX 被标注的曲线上的点X值 DOUBLE dChordPointY 被标注的曲线上的点Y值 DOUBLE dLeaderLength 输入箭头长度 VB中实现代码说明: 1 2 3 4 5 6 7 8 9 10 11 12 13 14

主要用到函数说明: MxDrawXCustomFunction::Mx_RegistUserCustomCommand 向控件注册一个命令,用户在命令行输入命令名这个字符串,就会触发执行命令事件 命令事件的id就是该注册时的id值,详细说明如下: 参数 说明 CString sCommandName 命令名称 LONG lId 命令id VB代码实现如下: 1 2 3 4 5 6 Set param2 = New MxDrawXLib.MxDrawResbuf param2.AddString

主要用到函数说明: MxDrawXCustomFunction::Mx_Print 直接打印,不出现打印对话框,详细说明如下: 参数 说明 double ptLBx 打印的范围左下角x double ptLBy 打印的范围左下角y double ptRTx 打印的范围右上角x double ptRTy 打印的范围右上角y LPCTSTR pszPrintName 打印机名,如果传为空,取系统默认打印机 LPCTSTR pszPaperName 打印的图纸名,如果传为空,取系统默认打印机设置 LO

主要用到函数说明: MxDrawXCustomEvent::MxDrawXCustomEntity::moveGripPointsAt 自定义实体事件,自定义实体夹点被移动,详细说明如下: 参数 说明 LONGLONG lEntity 自定义实体id IN LONG lGridIndex 夹点索引号 IN McGePoint3d vec 夹点移动的向量 VB代码实现如下: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

主要用到函数说明: MxDrawXCustomEvent::MxDrawXCustomEntity::getGripPoints 自定义实体事件,得到拖放夹点,详细说明如下: 参数 说明 LONGLONG lEntity 自定义实体id OUT AcGePoint3dArray& gripPoints 返回要拖放的夹点 VB代码实现如下: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23             If sEve

主要用到函数说明: MxDrawXCustomEvent::KeyDown 键盘被按下,详细说明如下: 参数 说明 LONG lVk 是按钮码,如F8,的值为#define VK_F8 0x77 返回_T("1")消息不往下传递,否则消息继续往下传递. 例如: VB下,处理F1被按下的代码: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16         Private Sub MxDrawX1_CustomEvent(ByVal sEventName A

主要用到函数说明: MxDrawXCustomEvent::KeyUp 键盘按钮被释放,详细说明如下: 参数 说明 iVk 是按钮码,如F8,的值为#define VK_F8 0x77 返回0消息继续往下传递,返回1消息不往下传递. VB代码实现如下: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 Private Sub MxDrawX1_CustomEvent(ByVal sEventName As String) If sEventName = "KeyUp"

主要用到函数说明: MxDrawXCustomFunction::Mx_SendStringToExecuteFun 把一个命令当着一个函数调用,不执行,详细说明如下: 参数 说明 CString sCmaName 命令名 Param 命令参数 例如: VB,在命令中,调用绘矩形命令函数,并得到绘制的矩形id.,该代码在命令事件中执行. 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21             Dim param As M

主要用到函数说明: MxDrawXCustomFunction::Mx_SetCursor 设置当前显示的光标,光标可以从cur文件加载,详细说明如下: 参数 说明 CString sCursorFileName CUR光标文件,可以是个绝对路径,也可以是相对路径,相对于MxDrawX.ocx所在目录 例如:VB调用例子.选项择一个实体,修改光标样式 : 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16    Set mxUtility = New MxDrawXLi