专家坐堂-[求助]日历，逛逛那个，怎么改到：并列窗口中？Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

上面是逛逛的例子。他设置的主窗口，我想改到：并列窗口中。（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编辑过]

此主题相关图片如下：1.jpg

\'\'\' 尺寸变化时重算行高列宽

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

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

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

[此贴子已经被作者于2017/1/1 9:28:57编辑过]

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

写全局代码时，提醒错。

此主题相关图片如下：1.jpg

[此贴子已经被作者于2017/1/1 10:37:03编辑过]

Public Class 自定义日历

以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]日历，逛逛那个，怎么改到：并列窗口中？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=94752)
-- 作者：yancheng -- 发布时间：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 -- 发布时间：2016/12/31 21:02:00 -- 我试了一下，这个没有放大的状态。如果点一下：WINDOWS下面的任务栏狐表的图标，最小化，然后，再点一下：最大化，它就变大了。此主题相关图片如下：1.jpg
-- 作者：有点色 -- 发布时间：2017/1/1 0:29:00 -- 参考 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=63306&skin=0
-- 作者：yancheng -- 发布时间：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 -- 发布时间：2017/1/1 9:27:00 -- ·111
下载信息 [文件大小：下载次数： ]
点击浏览该文件:大红袍-我的日历20140827-729（接收人）.zip