Foxtable(狐表)用户栏目专家坐堂 → 如何做出类似“商家宝进销存”的选项卡?


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

主题:如何做出类似“商家宝进销存”的选项卡?

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/1/7 14:23:00 [显示全部帖子]

以下是引用花开的声音在2015-1-7 13:46:00的发言:

请教下,那我要关闭某个并列窗口时,代码写在哪个事件里?

 

在需要关闭的时候直接写 Forms("窗口1").Close


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/1/7 15:25:00 [显示全部帖子]

以下是引用花开的声音在2015-1-7 15:12:00的发言:
比如,我想双击某个并列窗口的窗口标签时关闭这个窗口呢,写在哪个事件里?

 

做不到了,之前可以,现在不能绑定事件了。


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/1/7 15:38:00 [显示全部帖子]

以下是引用花开的声音在2015-1-7 15:31:00的发言:

那我想通过标签来关闭这个窗口,怎么弄,变通一下也行?

 

无法变通,做不到的。


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/1/7 16:27:00 [显示全部帖子]

以下是引用blackzhu在2015-1-7 16:18:00的发言:
可以吧!

 

嗯嗯,是可以。类型我转错了。


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/1/7 17:10:00 [显示全部帖子]

 按照38楼做,就没问题。

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/1/7 17:27:00 [显示全部帖子]

 是的多了End If 删除即可。

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/1/7 21:38:00 [显示全部帖子]

  要定义一个内部函数DoubleClickColse1啊

 

 


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/1/7 21:53:00 [显示全部帖子]

 在窗口的AfterLoad事件加入代码,不要写到doubleClick

 

Dim Tcl As C1.Win.C1Command.C1DockingTab = e.Form.panel.parent.parent
AddHandler Tcl.DoubleClick, AddressOf C1DockingTab_DoubleClick


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/1/7 22:41:00 [显示全部帖子]


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/1/9 17:37:00 [显示全部帖子]

Dim e As System.EventArgs = Args(0)
Dim Sender As Object = Args(1)
Dim frm As WinForm.Form = Forms.ActiveForm
If frm IsNot Nothing Then 
    If frm.Name = "窗口1" Then
        msgbox("窗口1不能关闭")
    Else
        Forms(frm.Name).Close       
    End If
Else    
    Msgbox("不能关闭")
End If


 回到顶部
总数 14 1 2 下一页