Foxtable(狐表) → 用户栏目 → 专家坐堂 → 改变窗口背景图片


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

主题：改变窗口背景图片
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2710 积分：18088 威望：0 精华：0 注册：2013/4/9 10:41:00 		改变窗口背景图片  发帖心情 Post By：2017/1/23 1:43:00 [显示全部帖子]

可以把窗口背景图片变为光标选中的行 图片列的图片吗？ 感谢 感谢 
图片点击可在新窗口打开查看此主题相关图片如下：qq截图20170123013849.jpg
图片点击可在新窗口打开查看
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:换背景.table
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2710 积分：18088 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2017/1/23 10:17:00 [显示全部帖子]

谢谢 可以让 SplitContainer1变透明吗？

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


加好友 发短信
等级：九尾狐 帖子：2710 积分：18088 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2017/1/23 10:38:00 [显示全部帖子]

.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2016.7.29.1
错误所在事件：表A ,CurrentChanged
详细错误信息：
未将对象引用设置到对象的实例。
  打开的时候 
 是不是没有指定窗口啊 感谢 感谢 
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2710 积分：18088 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2017/1/23 10:43:00 [显示全部帖子]

TabControl1 没有设置透明的选项吗 ？ 感谢 感谢 

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


加好友 发短信
等级：九尾狐 帖子：2710 积分：18088 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2017/1/23 11:05:00 [显示全部帖子]

感谢  感谢 可以是 打开项目的是  就自动选中  表A 日期列 当天的行吗？ 
感谢 感谢 
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2710 积分：18088 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2017/1/23 11:14:00 [显示全部帖子]


为什么这个不能代替 图片管理器的 添加图片啊 路径两边的代码都该过来了的
Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "图片|*.jpg;*.png;*.gif;*.bmp;*.ico" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    FileSys.CopyFile(dlg.FileName, ProjectPath & "系统图片/" & FileSys.GetName(dlg.FileName), True)
    Tables("窗口1_Table1").Current("图片列") = FileSys.GetName(dlg.FileName)
End If
感谢 感谢 
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2710 积分：18088 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2017/1/23 11:20:00 [显示全部帖子]

是放到  AfterOpenProject 里面吗 感谢 感谢 我试了试，没有执行  感谢 感谢 

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


加好友 发短信
等级：九尾狐 帖子：2710 积分：18088 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2017/1/23 11:47:00 [显示全部帖子]

为什么把 路径同时都改了 就不行了啊 是不是还有那里要改路径啊


If e.Table.Current Is Nothing OrElse e.Table.Current.IsNull("图片列") OrElse FileSys.FileExists(ProjectPath & "系统图片\" & e.Table.Current("图片列")) = False Then '如果Current为Nothing



Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "图片|*.jpg;*.png;*.gif;*.bmp;*.ico" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    FileSys.CopyFile(dlg.FileName, ProjectPath & "系统图片/" & FileSys.GetName(dlg.FileName), True)
    Tables("窗口1_Table1").cols("图片列").DataCol.DefaultFolder = ProjectPath & "系统图片/"
    Tables("窗口1_Table1").Current("图片列") = FileSys.GetName(dlg.FileName)
End If

也不是全部不行 就是有些 图片不行 有些又可以 
感谢 感谢  
[此贴子已经被作者于2017/1/23 11:49:06编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2710 积分：18088 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2017/1/23 11:53:00 [显示全部帖子]

是不是日期设置不对啊 复制出的日期列的内容 
感谢 感谢 

2016/12/30 0:00:00
2016/12/31 0:00:00
2017/1/1 0:00:00
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2710 积分：18088 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2017/1/23 13:27:00 [显示全部帖子]

谢谢 谢谢 可以了  再问问 TextBox1和 PictureViewer1（在没图片显示的时候 ） 可以设置为透明吗 ？ 感谢 感谢 

 回到顶部
总数 14 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.06250 秒, 6 次数据查询