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


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

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


加好友 发短信
等级：六尾狐 帖子：1257 积分：8555 威望：0 精华：0 注册：2019/6/13 9:57:00 		狐表是否可以直接存放CAD的图？  发帖心情 Post By：2024/10/31 11:27:00 [显示全部帖子]

狐表是否可以直接存放CAD的图？
1.如果不可是存储问题？
2.还是打开问题？
3.是否可以把CAD的看图软件或文件转换格式软件，加入狐表，来实现？可以的话，具体如何操作？
 回到顶部
帅哥哟，离线，有人找我吗？
lgz518
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1257 积分：8555 威望：0 精华：0 注册：2019/6/13 9:57:00 		  发帖心情 Post By：2024/10/31 15:54:00 [显示全部帖子]


Dim pb As Winfrom.PictureBox = forms("CAD图纸窗口").Controls("PictureBox1")
pb.Image = GetDwgImage("D:\CAD图纸\T57601872_4.dwg")
问题一：
报错：未定义类型Winfrom.PictureBox，
Dim pb As Winfrom.PictureBox = forms("CAD图纸窗口").Controls("PictureBox1")

问题二：PictureBox1绑定表A的图纸列字段，如何实现？
[此贴子已经被作者于2024/10/31 15:55:54编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
lgz518
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1257 积分：8555 威望：0 精华：0 注册：2019/6/13 9:57:00 		  发帖心情 Post By：2024/10/31 16:21:00 [显示全部帖子]

问题一：
报错：未定义类型system.Winfrom.PictureBox
Dim pb As system.Winfrom.PictureBox = forms("CAD图纸窗口").Controls("PictureBox1")

问题二：PictureBox1绑定表A的图纸列字段，如何实现？
 回到顶部
帅哥哟，离线，有人找我吗？
lgz518
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1257 积分：8555 威望：0 精华：0 注册：2019/6/13 9:57:00 		  发帖心情 Post By：2024/10/31 16:47:00 [显示全部帖子]

没报错，图没打开
 回到顶部
帅哥哟，离线，有人找我吗？
lgz518
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1257 积分：8555 威望：0 精华：0 注册：2019/6/13 9:57:00 		  发帖心情 Post By：2024/10/31 17:21:00 [显示全部帖子]


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

  

     pb.Image = Tables("员工").Current.DataRow.SQlLoadImage("图纸") 

问题一：绑定员工表，图纸列，把绝对路径改为相对路径，放在表事件，不行，如何处理？

问题2    有多个图片，需要使用PictureViewer控件,没有DWG格式，显示不了？

问题3 绝对路径打开图显示太小，如何放大?
 回到顶部
帅哥哟，离线，有人找我吗？
lgz518
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1257 积分：8555 威望：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
lgz518
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1257 积分：8555 威望：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
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1257 积分：8555 威望：0 精华：0 注册：2019/6/13 9:57:00 		  发帖心情 Post By：2024/10/31 21:30:00 [显示全部帖子]

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


加好友 发短信
等级：六尾狐 帖子：1257 积分：8555 威望：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"
如何实现路径为表的列的值，比如，员工的相片列？
 回到顶部
帅哥哟，离线，有人找我吗？
lgz518
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1257 积分：8555 威望：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("图纸"))
 回到顶部
总数 12 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.07227 秒, 5 次数据查询