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


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

主题:支持英文

帅哥哟,离线,有人找我吗?
有点色
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13653 积分:68570 威望: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


加好友 发短信
等级:三尾狐 帖子:694 积分:3888 威望:0 精华:0 注册:2015/2/25 23:14:00
  发帖心情 Post By:2017/6/26 18:26:00 [只看该作者]

谢谢老师指导

 回到顶部
帅哥哟,离线,有人找我吗?
cglsg5076
  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:694 积分:3888 威望: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


加好友 发短信
等级:超级版主 帖子:13653 积分:68570 威望: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


加好友 发短信
等级:三尾狐 帖子:694 积分:3888 威望: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


加好友 发短信
等级:版主 帖子:52898 积分:265571 威望: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


加好友 发短信
等级:三尾狐 帖子:694 积分:3888 威望: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  '------------------------


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:52898 积分:265571 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/2/12 17:12:00 [只看该作者]

这段代码单独在命令窗口测试,有没有报错?报什么错?


 回到顶部
帅哥哟,离线,有人找我吗?
cglsg5076
  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:694 积分:3888 威望:0 精华:0 注册:2015/2/25 23:14:00
  发帖心情 Post By:2018/2/12 17:25:00 [只看该作者]

这段代码单独在命令窗口测试,没有报错,完全正常。

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:52898 积分:265571 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/2/12 17:59:00 [只看该作者]

那写到afteclose等事件,肯定也没有问题,实例发上来测试。

 

或者试试beforeclose


 回到顶部
总数 34 上一页 1 2 3 4 下一页