乐筑天下

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

[求助]这个userform1窗口如何关掉

[复制链接]

14

主题

623

帖子

8

银币

中流砥柱

Rank: 25

铜币
679
发表于 2005-4-10 22:08:00 | 显示全部楼层 |阅读模式
看下面这段:
Private Sub CommandButton1_Click()
                 ' This example creates a text object in model space.
                         ' It then returns the text string for that object.
                         
                         Dim dimobj As AcadDimension
                         Dim text As String
                         
                         
                         UserForm1.Showmodal = False
                         
                                                 
                         ' Define the text object
                         ThisDrawing.Utility.GetEntity dimobj, basePnt, "Select an object"
                         
                         '修改尺寸文字
                         
                                 text = dimobj.Measurement
                                 UserForm1.Showmodal = True
                                 
                                 
                                 'Print text
                                 TextBox1.text = text
                                 
End Sub
Private Sub CommandButton2_Click()
End
End Sub
程序中 UserForm1.Showmodal = False错误,我的意思是当点CommandButton1时,进行选择标注尺寸,当尺寸选取后UserForm1.Showmodal =True,即窗口重新显示,不知道应该如何写?
回复

使用道具 举报

158

主题

2315

帖子

10

银币

顶梁支柱

Rank: 50Rank: 50

铜币
2951
发表于 2005-4-10 22:27:00 | 显示全部楼层
UserForm1.Show是显示
UserForm1.Hide是隐藏
回复

使用道具 举报

14

主题

623

帖子

8

银币

中流砥柱

Rank: 25

铜币
679
发表于 2005-4-11 08:23:00 | 显示全部楼层
多谢mccad,这两句我自己也试出来了,但这个程序还是不能正常运行,我选择一个标注尺寸后,TextBox1.text 没的反应,还是空白的。指再指点一下,谢谢!
回复

使用道具 举报

14

主题

623

帖子

8

银币

中流砥柱

Rank: 25

铜币
679
发表于 2005-4-11 11:09:00 | 显示全部楼层
问题已解决了!
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-16 22:01 , Processed in 2.550140 second(s), 60 queries .

© 2020-2025 乐筑天下

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