改变窗口背景图片 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有3813人关注过本帖树形打印复制链接主题：改变窗口背景图片

有点色

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：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

有点色

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/1/23 10:57:00 [显示全部帖子]

以下是引用yangwenghd在2017/1/23 10:43:00的发言：
TabControl1 没有设置透明的选项吗？感谢感谢

不支持透明

有点色

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：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

有点色

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/1/23 11:19: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").cols("图片列").DataCol.DefaultFolder = ProjectPath & "系统图片/"
    Tables("窗口1_Table1").Current("图片列") = FileSys.GetName(dlg.FileName)
End If