明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 2035|回复: 8

[VBA群] 2013-05-07 明经AutoCAD.VBA编程(45054712) 群聊记录:请问,怎么样在 VBA中建立两个选择集?因为在第二个选择集实例化时,会删除第

 关闭 [复制链接]
发表于 2013-5-7 08:18 | 显示全部楼层 |阅读模式
清风明月名字897 08:18:16
请问,怎么样在 VBA中建立两个选择集?因为在第二个选择集实例化时,会删除第一个选择集
回不去的旅人 08:18:50
可以吧,我都建立4个了
清风明月名字897 08:21:40
这个却不行
轻舞飞扬 08:22:28
不要两个都add。
轻舞飞扬 08:23:10
不同的选择集,add不同的名字
清风明月名字897 08:26:22
不懂,我是这样写的啊
轻舞飞扬 08:27:15
你add的都是
ss
清风明月名字897 08:28:50
给我改完整一下,好吗?
轻舞飞扬 08:29:11
ThisDrawing.SelectionSets.Add("XX")
另一个选择集,ss名字随便改成别的都行
一样做on error处理
两个变量分别set
清风明月名字897 08:31:29
谢谢您!已经改好了。
清风明月名字897 08:32:28
我还以为SS有特别含义呢,所以不敢改。我想SS不是变量,肯定有特别含义,结果我错了。
SS到底是表达什么意思?它又不是变量
轻舞飞扬 08:32:53
你叫A,我叫B,就这么简单
不能同时叫A
 楼主| 发表于 2013-5-7 11:44 | 显示全部楼层
[mccad]mccad 11:44:53
论坛推出明经快报机器人服务,你可以通过“#搜索 要搜索的内容”来搜索论坛帖子。
一缕阳光 11:45:54
山巅清泉 11:46:06
 楼主| 发表于 2013-5-7 12:12 | 显示全部楼层
狐偃 12:12:15
大家帮忙把这程序改一下
Private Sub CommandButton10_Click()
If OptionButtton1.Value = True Then
TextBox16.Text = Val(TextBox15.Text) + Val(TextBox3.Text) + Val(TextBox7.Text)
End If
If OptionButtton2.Value = True Then
TextBox16.Text = Val(TextBox14.Text)
End If
End Sub
小学生 12:13:49
我这个程序改成啥样啊
把这个程序改成啥样啊
轻舞飞扬 12:14:24
全删掉  完工
狐偃 12:14:30
改通就行
我运行时,说没定义
小学生 12:14:59
什么东东没定义
QQ2013 12:15:21
这里面也没有自定义的变量啊
狐偃 12:15:40
但是不能运行啊
一缕阳光 12:15:56
网上代码 可能这些按钮控件没有
轻舞飞扬 12:16:00
估计某个控件名字不对
小学生 12:16:07
你知道,这里都写了些什么吗?
一缕阳光 12:16:14
抄袭的
狐偃 12:16:18
我都检查了
自己弄的
一缕阳光 12:16:55
控件名称不对
小学生 12:16:57
提示你什么没定义?
轻舞飞扬 12:17:08
F8,错误停哪儿了。截图
没图说个JJ
狐偃 12:17:50
[qqimg]oldimg/{879340AB-6708-350E-E608-91EB4DFAA4D1}.jpg[/qqimg]
轻舞飞扬 12:18:09
报错?
你有OptionButtton1?
小学生 12:18:40
没有单选按钮
狐偃 12:18:47
[qqimg]oldimg/{911497CB-8560-478F-7761-80304677BCEC}.jpg[/qqimg]
狐偃 12:20:00
[qqimg]oldimg/{CAC3E05B-6A2E-1B79-0113-65608D0DCE39}.jpg[/qqimg]
就是要兴县这个功能
小学生 12:20:30
机械专业啊
狐偃 12:20:38
是的
大神们帮帮忙啊
小学生 12:20:52
做什么机械的?
狐偃 12:21:08
减速器的校核
轻舞飞扬 12:21:18
单选按钮确实叫OptionButtton1就没问题。不该报错的
狐偃 12:21:36
确实叫这个名字
轻舞飞扬 12:22:13
把OptionButtton1删了,重建一个OptionButtton1呢
馊主意……
狐偃 12:22:42
那有区别吗
轻舞飞扬 12:22:53
不知道
狐偃 12:24:27
谁能帮我啊
小学生 12:29:06
你把单选按钮的属性截个图
狐偃 12:29:52
[qqimg]oldimg/{D1252AFE-345E-A28B-E645-0B1FA11DECEF}.jpg[/qqimg]
小学生 12:30:37
看不出有毛病
小学生 12:31:12
你把dvb文件发过来,我看看
狐偃 12:32:56
你接受一下
小学生 12:38:22
I服了U
轻舞飞扬 12:38:50
啥情况
狐偃 12:38:54
怎么了,是不是犯了很低级的
小学生 12:39:09
你控件名称是自己一个一个敲的啊?
狐偃 12:39:25
是的
轻舞飞扬 12:39:28
小学生 12:39:50
你不觉得费劲啊?
你把控件名称复制过去试一下
狐偃 12:40:19
我就一小白
小学生 12:41:20
呵呵,一般是看不出的,我一调试就说没有控件,真奇怪,仔细一看多个t
狐偃 12:41:40
我靠,
我真没注意到
谢谢各位大神了
轻舞飞扬 12:42:08
输入me.
狐偃 12:42:37
什么意思
轻舞飞扬 12:43:04
跳出来好东西
狐偃 12:43:26
舍尔东东
轻舞飞扬 12:43:46
嚓,好东西能说么
狐偃 12:44:31
在程序你输吗
轻舞飞扬 12:44:44
窗体
狐偃 12:45:08
不会死机吧
轻舞飞扬 12:45:21
 楼主| 发表于 2013-5-7 13:29 | 显示全部楼层
狐偃 13:29:44
一个窗体中有两个组合框,窗体的初始化过程怎么编啊
一缕阳光 13:30:24
啥组合框?
狐偃 13:30:47
初始化子过程怎样才能没有二义性
一缕阳光 13:31:00
载入窗口 vb自动初始化
狐偃 13:31:04
[qqimg]oldimg/{520FC04A-0CA3-92F7-E8F2-111BB525DB80}.jpg[/qqimg]
狐偃 13:31:41
Private Sub UserForm_Initialize()
一缕阳光 13:31:55
不需要 自动的
狐偃 13:31:57
如果都用这个,肯定有二义性
一缕阳光 13:32:16
设计好就可以
狐偃 13:32:22
我点了,可是其每次出来的都是这个啊
狐偃 13:40:05
搞定了
 楼主| 发表于 2013-5-7 16:42 | 显示全部楼层
烂柯居士 16:42:57
[qqimg]oldimg/{8BCEEE7C-2287-12E4-AAE2-EC121977C84F}.jpg[/qqimg]
奇怪
怎样把字体设置为宋体呢?
提示name为只读
 楼主| 发表于 2013-5-7 17:04 | 显示全部楼层
就在那一天 17:04:29
见一个new font
烂柯居士 17:05:24
new font要怎么设置为宋体呢?
请赐教
为了学习VBA特地学的vb
 楼主| 发表于 2013-5-7 19:29 | 显示全部楼层
cad 2d 3d 19:29:14
哦一下也行
 楼主| 发表于 2013-5-7 21:12 | 显示全部楼层
雷噬天下v 21:12:30
vb 2012的多窗口界面
谁有源码可以提供来参考?
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-6-16 07:07 , Processed in 0.152283 second(s), 26 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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