支持英文 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 支持英文

共有5467人关注过本帖树形打印复制链接主题：支持英文

有点色

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

加好友

发短信

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

Post By：2017/6/26 18:25:00 [只看该作者]

Dim tab As WinForm.TabControl =e.Form.Controls("TabControl1")

tab.SelectedPage = tab.TabPages("HC010")

cglsg5076

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

加好友

发短信

等级：五尾狐帖子：1008 积分：6456 威望：0 精华：0 注册：2015/2/25 23:14:00

Post By：2017/6/26 18:26:00 [只看该作者]

谢谢老师指导

cglsg5076

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

加好友

发短信

等级：五尾狐帖子：1008 积分：6456 威望：0 精华：0 注册：2015/2/25 23:14:00

Post By：2017/6/29 8:48:00 [只看该作者]

老师好，我想用下面的代码完成提示功能，但执行错误，请问如何更改代码？谢谢

Select Case e.Form.Controls("TabControl1").TabPages.Name ''

Case "HC010"

messagebox.show("ok")

Dim v As String = "Project Name"

e.Sender.ShowToolTip(v)

End Select

有点色

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

加好友

发短信

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

Post By：2017/6/29 10:02:00 [只看该作者]

Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1")
Select Case tab.SelectedPage.Name
    Case "HC010"
        messagebox.show("ok")
        Dim v As String = "Project Name"
        e.Sender.ShowToolTip(v)
End Select

cglsg5076

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

加好友

发短信

等级：五尾狐帖子：1008 积分：6456 威望：0 精华：0 注册：2015/2/25 23:14:00

Post By：2017/7/1 23:21:00 [只看该作者]

老师好，我想用下面的代码在click事件里执行，显示tab控件的每个tab的信息，可是红色部分出错，请问如何改？谢谢。

Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1")

Select Case tab.SelectedPage.Name

Case "HC010"

Dim tip As String

tip="Project Name"

Dim t As C1Command.C1DockingTab = e.Form.Controls("TabControl1").BaseControl

t.ShowTabList = Not t.ShowTabList

t.HotTrack = Not t.HotTrack

t.ShowToolTips = True

t.TabPages.ToolTipText = tip

end select

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/7/2 14:54:00 [只看该作者]

Dim tip As String
tip="Project Name"
Dim t As C1Command.C1DockingTab = e.Form.Controls("TabControl1").BaseControl
t.ShowTabList = Not t.ShowTabList
t.HotTrack = Not t.HotTrack
t.ShowToolTips = True
t.tabpages("HC010").ToolTipText = tip

cglsg5076

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

加好友

发短信

等级：五尾狐帖子：1008 积分：6456 威望：0 精华：0 注册：2015/2/25 23:14:00

Post By：2018/2/12 16:32:00 [只看该作者]

请教老师，我用下面的代码在主窗体afterclose里执行结果报错，因为没有设置对象的实例，因为我关闭了主窗口。我放在beforecloseproject里执行，也不行。我需要在关闭程序之前删除user里的登录信息，应该把下面的代码放在哪里？谢谢！

Dim cmd2 As New SQLCommand

cmd2.C

cmd2.CommandText="UP DATE {user} set [Login]=False Where [Name]='" & _UserName & "'"
cmd2.ExecuteNonQuery '------------------------