乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 31|回复: 1

.关键字不返回选定的整个字符串

[复制链接]

18

主题

55

帖子

1

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
127
发表于 2006-11-9 14:03:08 | 显示全部楼层 |阅读模式
为什么下面只返回每个字符串的第一个#呢?无论我选择哪一个,都会放入“4x4x4”...
有了这张图纸。实用程序。InitializeUserInput 1," 4x4x 4 4x4x 3 4x4x 2 "
strPartSize =。get keyword(vbCr & " Pipe size:[4x4x 4/4x4x 3/4x4x 2]:")

结尾,这个返回整个字符串?
有了这张图纸。实用程序。InitializeUserInput 1," . 5 .75 1 1.25 1.5 2"
PipeSize =。GetKeyword(vbCr & "输入管道尺寸:[.5/.75/1/1.25/1.5/2]: ")
结尾
预先感谢您的帮助。

本帖以下内容被隐藏保护;需要你回复后,才能看到!

游客,如果您要查看本帖隐藏内容请回复
回复

使用道具 举报

6

主题

103

帖子

2

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
127
发表于 2006-11-9 15:52:10 | 显示全部楼层
凯文,
不确定这是否会有帮助,但
我喜欢用这样的东西:
  1. With ThisDrawing.Utility
  2.     .InitializeUserInput 1, "4 3 2"
  3.     strPartSize = .GetKeyword(vbCr & "Pipe Sizes: (4x4x[4]/4x4x[3]/4x4x[2]): ")
  4. End With
  5. Select Case strPartSize
  6. Case Is = "4"
  7. strPartSize = "4x4x4"
  8. Case Is = "3"
  9. strPartSize = "4x4x3"
  10. Case Is = "2"
  11. strPartSize = "4x4x2"
  12. End Select

~'J'~
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-7-7 00:26 , Processed in 2.317786 second(s), 56 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表