Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]日历，逛逛那个，怎么改到：并列窗口中？


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

主题：[求助]日历，逛逛那个，怎么改到：并列窗口中？
帅哥哟，离线，有人找我吗？
yancheng
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：843 积分：5982 威望：0 精华：0 注册：2013/6/29 9:36:00 		[求助]日历，逛逛那个，怎么改到：并列窗口中？  发帖心情 Post By：2016/12/31 20:20:00 [只看该作者]

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=56011&replyID=&skin=1

上面是逛 逛的例子。他设置的主窗口，我想改到：并列窗口中。（PANL 不放大）

我，并列窗口，的内部函数 代码如下：

Dim e As Object = Args(0)

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

Functions.Execute("编辑权限",e.form.Name)
图片点击可在新窗口打开查看此主题相关图片如下：1.jpg
图片点击可在新窗口打开查看

我看它传递：panle绑定代码如下：

'为了方便应用,直接将控件绑定到传入的Panel控件
    Public Sub Panel绑定(ByVal pl As Foxtable.WinForm.Panel)
        '绑定后刷新数据
        _Panel = pl.BaseControl
        _Panel.AutoScroll = True
        Me.Dock = Windows.Forms.DockStyle.Fill
        pl.BaseControl.Controls.Add(Me)
        事务标签背景刷新()
        表格计算()              '此处次序不能搞错
        数据刷新()
        事务标签布局()
        _bl = True
    End Sub

1、我想改到：并列窗口中。（PANL 不放大）
2、为什么，我双击一个日历中的日期后，弹出：事务编辑，窗口后，马上关闭，它还是增加了行？刷新 一下日历页面，这一行又出来了。显示当日有事务？（这个问题，我发现是哪里 的问题了。因为中我加了一个：操作员，列，自动录入当前：操作员）想的是， 以后，根据 当前登录 的操作员。只显示 本人的事务。）麻烦请老师，教一下，需要怎么改代码？
[此贴子已经被作者于2016/12/31 21:16:14编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
yancheng
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：843 积分：5982 威望：0 精华：0 注册：2013/6/29 9:36:00 		  发帖心情 Post By：2016/12/31 21:02:00 [只看该作者]

我试了一下，这个没有放大的状态。如果 点一下：WINDOWS下面的任务栏狐表的图标，最小化，然后，再点一下：最大化，它就变大了。


图片点击可在新窗口打开查看此主题相关图片如下：1.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/1/1 0:29:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
yancheng
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：843 积分：5982 威望：0 精华：0 注册：2013/6/29 9:36:00 		  发帖心情 Post By：2017/1/1 9:20:00 [只看该作者]

我这个是调整行高代码，是改过的。
    ''' 尺寸变化时重算行高列宽
    Protected Overrides Sub OnResize(ByVal e As System.EventArgs)
        If _bl = False Then Return        '检测初始化是否已完成
        Dim c As Integer = Me.Width / 7        '计算列宽度
        _事务标签_宽度 = c        '将宽度传递给变量
        事务标签背景刷新()        '刷新事务标签背景图
        For i As Integer = 1 To 6        '设置列宽
            Me.Cols(i).Width = c
        Next
        Me.Cols(Me.Cols.Count - 1).Width = Me.Width - (Me.Cols(Me.Cols.Count - 2).Left + Me.Cols(Me.Cols.Count - 2).Width)
        Me.Rows(1).Height = _日历标题_行高        '设置行高
        Dim 日历行数 As Integer = (_表格行数 - 2) / 2
        Dim h As Integer = (Me.Height - _日历标题_行高 - 日历行数 * _日历日历_行高) / 日历行数
        For i As Integer = 2 To _表格行数 - 2
            If i Mod 2 = 0 Then
                Me.Rows(i).Height = _日历日历_行高
            Else
                Me.Rows(i).Height = h
            End If
        Next
        Me.Rows(Me.Rows.Count - 1).Height = Me.Height - (Me.Rows(Me.Rows.Count - 2).Top + Me.Rows(Me.Rows.Count - 2).Height)        '自适应最后一行
        事务标签布局()        '刷新事务
    End Sub
 回到顶部
帅哥哟，离线，有人找我吗？
yancheng
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：843 积分：5982 威望：0 精华：0 注册：2013/6/29 9:36:00 		  发帖心情 Post By：2017/1/1 9:27:00 [只看该作者]

·111
 下载信息  [文件大小：   下载次数： ]
点击浏览该文件:大红袍-我的日历20140827-729（接收人）.zip

" target="_blank">点击浏览该文件
[此贴子已经被作者于2017/1/1 9:28:57编辑过]

 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/1/1 10:24:00 [只看该作者]

 加入一个【刷新】的方法，代码参考你4楼的写法，然后在显示不正常的时候，执行一次即可。

 回到顶部
帅哥哟，离线，有人找我吗？
yancheng
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：843 积分：5982 威望：0 精华：0 注册：2013/6/29 9:36:00 		  发帖心情 Post By：2017/1/1 10:37:00 [只看该作者]

上面的代码也是COPY的，不懂真实意思 。
我大概理解，你的意思 是设一个全局代码。然后，在打开窗口的时候 引用，是吗？

写全局代码时，提醒错。


图片点击可在新窗口打开查看此主题相关图片如下：1.jpg
图片点击可在新窗口打开查看

[此贴子已经被作者于2017/1/1 10:37:03编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111427 积分：567211 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/1/3 8:48:00 [只看该作者]

代码放到人家定义的类“自定义日历”里面

Public Class 自定义日历
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/1/3 9:08:00 [只看该作者]

 参考3楼的帖子，把你4楼的代码替换一下。

 回到顶部
帅哥哟，离线，有人找我吗？
逛逛
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：1693 积分：12135 威望：0 精华：7 注册：2013/7/11 10:52:00 		  发帖心情 Post By：2017/1/7 14:38:00 [只看该作者]

图片点击可在新窗口打开查看

 回到顶部
总数 11 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 5 次数据查询