主题：[分享] 飞的日历，接着改。（20140109改）

 

改进版已新开贴发布，地址

 

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=56011

 

需要事务日历的，可从那里去下载。

小日历还是在这里。

2014年8月27日

 

 

 

此主题相关图片如下：jdfw1.gif

 

 

 

 

 

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:我的日历1.zip

 

 

 

 

改进了一下，小日历可以用在系统界面上，大日历可以用于日程管理

弹出窗体只是一个示例，具体细节自己完善。

 

 

此主题相关图片如下：jdfw.gif

 

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:我的日历1.rar

 

 

 

给老朱

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:我的日历20140402.zip

 

 

图片留着，俺接着改。

没听明白，您指什么.

 

如果是日程，可以增加树型框来分类

看了飞自己用的，觉得这个窗口还得好好改一下，

 

所以我把它屏蔽了，在窗口关闭事件里

 

如果需要，可以打开。那里的代码不是严谨，需要自己改。

不太明白，绘制出来的字符串好像是取不到的。

 

把数据放在单元格里隐藏，需要时取单元格数据不行吗？

 

还有，我那个案例是有一个类的，标签生成时，可以将数据传入，需要时从那里取数据就可以了。

 

看  事务_事务布局  和  事务_标签被双击  两个函数

我放在一楼

 

全局代码  事务_事务布局  事务_标签被双击  改过，增加了一个窗体

 

文本对齐要在类里改，已经改了。

 

My_日历标签_Paint  方法 的  sf1.Alignment = StringAlignment.Near   '靠左对齐   Center 中   Near 左  Far 右

 1、在布局函数中  Dim a As new My_事务标签(n_主题 ,2,new List(of String))   那个2就是调用，案例中使用的是固定值。

               你可以用你的事务对应表的相应字段的值来调用。

 

 

 2、和第一条类似，在于你数据提取的方法。如：事务周期为年，月范围为当前日历范围的数据。

 

 

      此控件的初始函数  Public Sub New(ByVal 标题 As String, ByVal 任务类型 As Integer, ByVal 内容 As List(Of String))

看106楼

151楼 说的错误

 

等有空了，我会重写一下。

 

同时，谢谢提醒。

Vars("个人事务_ID") 是在双击 个人事务表 的时候用的

 

 

事务标签  传递数据 是用      全局代码中的   Private TaskContent As List(Of String) '用户传递数据

 

事件的触发是用   Private Sub My_日历标签_MouseDoubleClick  事件 传递给 Functions.Execute("事务_标签被双击",sender,e,TaskContent)

 

 

我在 事务_事务布局 函数中，定义标签的时候，只用了         Dim a As new My_事务标签(n_主题 ,2,new List(of String))

 

并没有实际传递，所以你要自己 加上去

 

最后在 事务_标签被双击 函数中取回 （Dim 标题内容 As List(Of String) = Args(2)   '当初怎么传入的现在就怎么取出）

 

用 标题内容 来做相应的赋值或传递，这时候就可以对Vars("个人事务_ID") 赋值了

 

 

 

 

另外，狐爸给全局代码加了分类，自定义类会更加方便，所以我打算重写这个案例，做进一步封装。