下拉列表框

krampaul82 · 发表于 2007-8-17 15:06:02

我是vba新手，知道得足够愚蠢。所以，请善待我。我正在尝试创建一个vba脚本，该脚本将在当前ACAD2008图形中插入一个块&nbsp；某个模型有不同的零件号/扩展名，所以我想我应该使用一个组合框/案例语句来允许用户选择他需要的项目。它可以部分工作，但问题是，即使选择了另一项，它也总是只抓取列表中的第一项。这是代码，（附dvb）如有任何帮助，将不胜感激

本帖以下内容被隐藏保护；需要你回复后，才能看到！

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

Keith · 发表于 2007-8-17 15:17:50

正在查看

Keith · 发表于 2007-8-17 15:22:57

好的，有几个问题……您试图读取的是按钮的文本，而不是组合框，即

copy

 Select Case cmd_sensor_t7770a.Text
     Case t7770a1006    'Calls sub from Module_sensor
          Sensor_t7770a1006_get
     Case t7770a1022    'Calls sub from Module_sensor
         Sensor_t7770a1022_get
     Case "t7770a2004"   'Calls sub from Module_sensor
           Sensor_t7770a2004_get
     Case t7770a2012    'Calls sub from Module_sensor
           Sensor_t7770a2012_get
     Case t7770a3002   'Calls sub from Module_sensor
           Sensor_t7770a3002_get
   End Select

您应该阅读相关组合框的内容，因此：

copy

 Select Case ComboBox_t7770a.Text
     Case t7770a1006    'Calls sub from Module_sensor
          Sensor_t7770a1006_get
     Case t7770a1022    'Calls sub from Module_sensor
         Sensor_t7770a1022_get
     Case "t7770a2004"   'Calls sub from Module_sensor
           Sensor_t7770a2004_get
     Case t7770a2012    'Calls sub from Module_sensor
           Sensor_t7770a2012_get
     Case t7770a3002   'Calls sub from Module_sensor
           Sensor_t7770a3002_get
   End Select

此外，您还应该将值作为文本字符串进行比较，在编写代码时，代码会将案例与变量进行比较。i、 e.文本比较必须用引号括起来，如下所示：

copy

 Select Case ComboBox_t7770a.Text
     Case "t7770a1006"    'Calls sub from Module_sensor
          Sensor_t7770a1006_get
     Case "t7770a1022"    'Calls sub from Module_sensor
         Sensor_t7770a1022_get
     Case "t7770a2004"   'Calls sub from Module_sensor
           Sensor_t7770a2004_get
     Case "t7770a2012"    'Calls sub from Module_sensor
           Sensor_t7770a2012_get
     Case "t7770a3002"   'Calls sub from Module_sensor
           Sensor_t7770a3002_get
   End Select

你有很多事情要纠正，但一旦你做到了，它就会按你的意愿工作。

Keith · 发表于 2007-8-17 15:26:05

我马上就能看到几件事&nbsp；您只需更改块名就可以一遍又一遍地重复（重新键入）相同的代码，因此我们可以将其压缩为1个函数，并将块名作为参数。

下拉列表框

发表回复

精选推荐

浏览过的版块