QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

查看: 2075|回复: 3
收起左侧

[求助] 如何在VB中的combo box中添加边界列表

[复制链接]
发表于 2012-4-18 11:19:04 | 显示全部楼层 |阅读模式 来自: 中国福建福州

马上注册,结识高手,享用更多资源,轻松玩转三维网社区。

您需要 登录 才可以下载或查看,没有帐号?注册

x
如何在VB中的combo box中添加边界列表
发表于 2012-4-19 21:59:22 | 显示全部楼层 来自: 中国辽宁大连
PowerMILL31.Connect( j7 V* M) @' h! y
  Dim result As String                           '变量定义+ d  _) X0 b" B
  Dim SplitResult() As String              '数组定义, l$ z) J3 }2 n0 _, B6 x
( x* _, \  g0 e0 \# Q! U5 G
     Combo1.Clear
5 J4 W( G' V* s5 L7 V$ z8 C3 Z     9 X3 u$ V, F0 a2 E- W* d; m4 W/ ?, `

4 K& ~4 x# Q+ W( M3 TPowerMILL31.Execute ("DIALOGS MESSAGE OFF")- h' t2 q! m* C1 p4 J) C
PowerMILL31.Execute ("DIALOGS ERROR OFF")" Q* m5 ^* |( L- G3 ]

+ w; |' D( J8 l$ |- I5 V
! D& u5 p. Y9 O8 pPowerMILL31.Execute "DEACTIVATE BOUNDARY"' Z2 K& p& o0 g3 s7 m) ]5 h: I
result = PowerMILL31.ExecuteEx("Print ENTITY Boundary")) h6 t$ x7 D" T1 s) N% d7 ^9 h9 g. P
+ e. c/ ^5 U$ C. e
- w$ b3 g+ d% N8 E1 t# I6 x0 |: f
SplitResult = Split(result, " '")# O5 W' g2 r* r5 [
For i = 1 To UBound(SplitResult)
3 }2 }/ {" G8 N) L- k0 W    SplitResult(i) = Replace(SplitResult(i), " ", ""), ^# a! p1 n8 V7 \% l$ ?. d
    SplitResult(i) = Replace(SplitResult(i), "'", "")
. Y5 Y" c/ e0 P' o2 {1 I    SplitResult(i) = Trim(SplitResult(i))
) {0 p6 d- R" A  j. y    If SplitResult(i) <> "" Then Combo1.AddItem SplitResult(i)+ O' V2 x$ a: K7 ?
Next i
- }; ~/ B& v$ i5 X2 h* f
* k8 I' W) [& E/ pPowerMILL31.Execute ("DIALOGS MESSAGE ON")0 N; X' k- `* P* d0 ^
PowerMILL31.Execute ("DIALOGS ERROR ON")
发表于 2012-4-19 22:00:02 | 显示全部楼层 来自: 中国辽宁大连
这个是用控件,不是用模块,想用模块,自己改一下就好
 楼主| 发表于 2012-4-20 12:21:52 | 显示全部楼层 来自: 中国福建福州
谢谢.知道怎么改了
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则


Licensed Copyright © 2016-2020 http://www.3dportal.cn/ All Rights Reserved 京 ICP备13008828号

小黑屋|手机版|Archiver|三维网 ( 京ICP备2023026364号-1 )

快速回复 返回顶部 返回列表