- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 改变窗口背景图片 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=95541)
-- 发布时间：2017/1/23 1:43:00
-- 改变窗口背景图片
可以把窗口背景图片变为光标选中的行 图片列的图片吗？ 感谢 感谢
此主题相关图片如下：qq截图20170123013849.jpg
-- 发布时间：2017/1/23 8:42:00
--
表A，窗口CurrentChanged事件
If e.Table.Current Is Nothing OrElse e.Table.Current.IsNull("图片列") OrElse FileSys.FileExists(ProjectPath & "Attachments\\" & e.Table.Current("图片列")) = False Then \'如果Current为Nothing
Return \'则返回
End If
e.Form.Image = getimage(e.Table.Current("图片列"))
-- 发布时间：2017/1/23 10:17:00
--
谢谢 可以让 SplitContainer1变透明吗？
-- 发布时间：2017/1/23 10:32:00
--
设置panel1和panel2的背景色为Transparent
-- 发布时间：2017/1/23 10:38:00
--
.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2016.7.29.1
错误所在事件：表A ,CurrentChanged
详细错误信息：
未将对象引用设置到对象的实例。
打开的时候
是不是没有指定窗口啊 感谢 感谢
-- 发布时间：2017/1/23 10:43:00
--
TabControl1 没有设置透明的选项吗 ？ 感谢 感谢
-- 发布时间：2017/1/23 10:53:00
--
以下是引用yangwenghd在2017/1/23 10:38:00的发言：
.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2016.7.29.1
错误所在事件：表A ,CurrentChanged
详细错误信息：
未将对象引用设置到对象的实例。
打开的时候
是不是没有指定窗口啊 感谢 感谢
If Forms("窗口1").Opened Then
If e.Table.Current Is Nothing OrElse e.Table.Current.IsNull("图片列") OrElse FileSys.FileExists(ProjectPath & "Attachments\\" & e.Table.Current("图片列")) = False Then \'如果Current为Nothing
Return \'则返回
End If
Forms("窗口1").Image = getimage(e.Table.Current("图片列"))
End If
-- 发布时间：2017/1/23 10:57:00
--
以下是引用yangwenghd在2017/1/23 10:43:00的发言：
TabControl1 没有设置透明的选项吗 ？ 感谢 感谢
TabControl1 没有设置透明的选项吗 ？ 感谢 感谢
不支持透明
-- 发布时间：2017/1/23 11:05:00
--
感谢 感谢 可以是 打开项目的是 就自动选中 表A 日期列 当天的行吗？
感谢 感谢
-- 发布时间：2017/1/23 11:07:00
--
Dim idx As Integer = Tables("表A").FindRow("日期 = #" & Date.Today & "#")
If idx >= 0 Then
Tables("表A").Position = idx
End If