Foxtable(狐表) → 用户栏目 → 专家坐堂 → 狐表是否可以直接存放CAD的图？


  共有3733人关注过本帖树形打印复制链接

主题：狐表是否可以直接存放CAD的图？
帅哥哟，离线，有人找我吗？
lgz518
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1444 积分：10015 威望：0 精华：0 注册：2019/6/13 9:57:00 		  发帖心情 Post By：2024/10/31 17:36:00 [只看该作者]

1、使用的SQlLoadImage？
不要，需求是想：窗口打开后，窗口上表显示CAD图，及单击选中表的行显示此行对CAD图，如何实现？
2，下面面板哪是CAD图，还有报错：未定义AxCAD.AxMxDrawX，Dim AxCAD1 As New AxCAD.AxMxDrawX

 Dim AxCAD1 As New AxCAD.AxMxDrawX
AxCAD1.name = "AxCAD1"
CType(AxCAD1, System.ComponentModel.ISupportInitialize).BeginInit()
AxCAD1.width = e.Form.Controls("SplitContainer1").panel1.width
AxCAD1.height = e.Form.Controls("SplitContainer1").panel1.height
e.Form.Controls("SplitContainer1").panel1.BaseControl.Controls.add(AxCAD1)
AxCAD1.ShowMenuBar = False 
CType(AxCAD1, System.ComponentModel.ISupportInitialize).EndInit()
[此贴子已经被作者于2024/10/31 18:14:07编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：113936 积分：580301 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/10/31 19:50:00 [只看该作者]

下载第三方dll放到Foxtable安装目录，然后添加引用

 回到顶部
帅哥哟，离线，有人找我吗？
lgz518
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1444 积分：10015 威望：0 精华：0 注册：2019/6/13 9:57:00 		  发帖心情 Post By：2024/10/31 21:28:00 [只看该作者]

AxMxDrawXLib.dll这个已引入没有，报错无效，

下面面板哪是CAD图，还有报错：未定义AxCAD.AxMxDrawX，Dim AxCAD1 As New AxCAD.AxMxDrawX
Dim AxCAD1 As New AxCAD.AxMxDrawX
AxCAD1.name = "AxCAD1"
CType(AxCAD1, System.ComponentModel.ISupportInitialize).BeginInit()
AxCAD1.width = e.Form.Controls("SplitContainer1").panel1.width
AxCAD1.height = e.Form.Controls("SplitContainer1").panel1.height
e.Form.Controls("SplitContainer1").panel1.BaseControl.Controls.add(AxCAD1)
AxCAD1.ShowMenuBar = False 
CType(AxCAD1, System.ComponentModel.ISupportInitialize).EndInit()
这好面板没看懂如何实现CAD，
 回到顶部
帅哥哟，离线，有人找我吗？
lgz518
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1444 积分：10015 威望：0 精华：0 注册：2019/6/13 9:57:00 		  发帖心情 Post By：2024/10/31 21:30:00 [只看该作者]

内置方法可以打开，问题非常不清晰，不知道为能打开，显示却不清？
[此贴子已经被作者于2024/10/31 21:31:17编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：113936 积分：580301 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/10/31 21:34:00 [只看该作者]

第三方的东西，只能自行网上研究了：https://www.baidu.com/s?wd=vb.net%20cad

 回到顶部
帅哥哟，离线，有人找我吗？
lgz518
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1444 积分：10015 威望：0 精华：0 注册：2019/6/13 9:57:00 		  发帖心情 Post By：2024/10/31 21:44:00 [只看该作者]

pb.Image = GetDwgImage("D:\CAD图纸\T57601872_4.dwg")
Dim cadFilePath As String = "C:\path\to\your\cadfile.dwg"
如何实现路径为表的列的值，比如，员工的相片列？
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：113936 积分：580301 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/10/31 21:57:00 [只看该作者]

msgbox(projectpath & "Attachments\" & Tables("表A").Current("相片"))

 回到顶部
帅哥哟，离线，有人找我吗？
lgz518
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1444 积分：10015 威望：0 精华：0 注册：2019/6/13 9:57:00 		  发帖心情 Post By：2024/11/1 9:57:00 [只看该作者]

Dim pb As WinForm.PictureBox = forms("窗口").Controls("PictureBox1")

pb.Image = GetDwgImage("D:\AD\ABB.dwg")改为下面：没报错，但没显示，如何处理？PictureBox1绑定表A的图纸

pb.Image = GetDwgImage(Tables("表A").Current("图纸"))
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：113936 积分：580301 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/11/1 9:59:00 [只看该作者]

文件必须使用绝对路径，看17楼用法

 回到顶部
帅哥哟，离线，有人找我吗？
lgz518
 小大  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1444 积分：10015 威望：0 精华：0 注册：2019/6/13 9:57:00 		  发帖心情 Post By：2024/11/1 10:11:00 [只看该作者]

那PictureBox1绑定表A的图纸列就没有意义，实现列表的行的内容就不好
1万个图，写1万个
pb.Image = GetDwgImage("D:\AD\ABB.dwg")
 回到顶部
总数 20 上一页 1 2
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 4 次数据查询