乐筑天下

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

如何做类似Toolbar提示的悬浮框??

[复制链接]

34

主题

124

帖子

4

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
260
发表于 2010-9-1 08:39:00 | 显示全部楼层 |阅读模式
我想在点击一个实体时候弹出类似Toolbar提示的悬浮框,提示她的一些属性信息,有什么方法吗?我用的vb.net
回复

使用道具 举报

72

主题

2726

帖子

9

银币

社区元老

Rank: 75Rank: 75Rank: 75

铜币
3014
发表于 2010-9-1 09:41:00 | 显示全部楼层
官方的例子

请点击此处下载

请先注册会员后在进行下载

已注册会员,请先登录后下载

文件名称:3qlbmptqriu.rar 
下载次数:0  文件大小:6.82 KB  售价:2银币 [记录]
下载权限: 不限 以上或 Vip会员   [开通Vip]   [签到领银币]  [免费赚银币]

回复

使用道具 举报

34

主题

124

帖子

4

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
260
发表于 2010-9-1 10:13:00 | 显示全部楼层
唉,有没有简单点的,我用的vb,转太麻烦了,
回复

使用道具 举报

72

主题

2726

帖子

9

银币

社区元老

Rank: 75Rank: 75Rank: 75

铜币
3014
发表于 2010-9-1 10:22:00 | 显示全部楼层
回复

使用道具 举报

34

主题

124

帖子

4

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
260
发表于 2010-9-1 11:19:00 | 显示全部楼层
Oh my god,不好找,问版主另外一个问题吧,唉,最近问题比较多,
我的一个块参照定义了扩展记录,现在问题是当我移动了这个块参照之后,修改扩展记录就出错,而如果不移动这个块参照,修改扩展记录没有问题,不知道什么原因,可以肯定的是移动块参照时候不对扩展记录做任何读写,我的修改扩展记录代码如下:
g trans As Transaction = db.TransactionManager.StartTransaction
            Dim temp As String = ""
            temp = inp.iedName + SpecChar + inp.ldInst + SpecChar + inp.prefix + SpecChar + inp.lnClass + SpecChar + inp.lnInst + SpecChar + inp.doName + SpecChar + inp.daName + SpecChar + inp.intAddr
            Dim ent As Entity = trans.GetObject(id, OpenMode.ForWrite)
            '判断所选对象是否已包含扩展记录
            If ent.ExtensionDictionary = ObjectId.Null Then
                '新建一个扩展记录对象
                Dim xrec As New Xrecord()
                Dim rb As ResultBuffer = New ResultBuffer()
                rb.Add(New TypedValue(Int(DxfCode.Text), temp))
                xrec.Data = rb
                '为所选择的对象创建一个扩展字典
                ent.CreateExtensionDictionary()
                Dim dictEntId As ObjectId = ent.ExtensionDictionary()
                Dim entXrecord As DBDictionary = trans.GetObject(dictEntId, OpenMode.ForWrite)
                '在扩展字典中加入上面新建的扩展记录对象,并指定它的搜索关键字为MyXrecord
                entXrecord.SetAt("DeviceXRecord", xrec)
                '通知事务处理完成扩展记录对象的加入
                trans.AddNewlyCreatedDBObject(xrec, True)
            Else
                Dim dictEntId As ObjectId = ent.ExtensionDictionary()
                Dim entXrecord As DBDictionary = trans.GetObject(dictEntId, OpenMode.ForWrite)
                '在扩展字典中加入上面新建的扩展记录对象,并指定它的搜索关键字为MyXrecord
                Dim xrecordId As ObjectId = entXrecord.GetAt("DeviceXRecord")
                '打开找到的扩展记录对象
                Dim xrecord As Xrecord = trans.GetObject(xrecordId, OpenMode.ForWrite)
                '获取扩展记录中包含的数据列表并循环遍历显示它们
                Dim r As ResultBuffer = xrecord.Data
                r.Add(New TypedValue(Int(DxfCode.Text), temp))
                xrecord.Data = r
            End If
            trans.Commit()
回复

使用道具 举报

72

主题

2726

帖子

9

银币

社区元老

Rank: 75Rank: 75Rank: 75

铜币
3014
发表于 2010-9-1 11:25:00 | 显示全部楼层
没碰到这种问题过
用XData试下?
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-15 09:41 , Processed in 5.532636 second(s), 69 queries .

© 2020-2025 乐筑天下

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