[分享] 飞的日历，接着改。（20140109改） - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以下是引用blackzhu在2014-4-2 14:11:00的发言：
如何能超过4行就只显示4行然后做个提示用来显示当天所有的主题

我放在一楼

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

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

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

以下是引用逛逛在2014-4-2 16:40:00的发言：

我放在一楼

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

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

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

1.‘------------------------- 事务项目里没有对不同类型事务的背景调用。能完善一下吗？？？？

Case 1 '普通任务

pr = New Drawing2D.LinearGradientBrush(BJ_p1, BJ_p2, Color.Orange, Color.NavajoWhite)

Case 2 '周期性任务

pr = New Drawing2D.LinearGradientBrush(BJ_p1, BJ_p2, Color.DeepSkyBlue, Color.PowderBlue)

Case 3 '过期任务

pr = New Drawing2D.LinearGradientBrush(BJ_p1, BJ_p2, Color.Tomato, Color.DarkSalmon)

Case 4 '终止的任务

pr = New Drawing2D.LinearGradientBrush(BJ_p1, BJ_p2, Color.DarkGray, Color.LightGray)

2.像周期性任务为年的事务，比如节日，五一，国庆，如何写入作为年的周期性事务定位到日历当中？？

比如2014/10/1 会根据自己编写的一个节期日表：

[节假日]，[日期]

国庆节， 2013/10/01

以达到每年的10月一号里，都有国庆这个年的事务

。。。。。。。。。。。。。。。。。。。。。。。。。

拜谢~~~~~~~~一直在研究呢。觉都睡不着~~

[此贴子已经被作者于2014-4-4 2:31:45编辑过]

以下是引用ido在2014-4-4 2:30:00的发言：

1.‘------------------------- 事务项目里没有对不同类型事务的背景调用。能完善一下吗？？？？

2.像周期性任务为年的事务，比如节日，五一，国庆，如何写入作为年的周期性事务定位到日历当中？？

比如2014/10/1 会根据自己编写的一个节期日表：

[节假日]，[日期]

国庆节， 2013/10/01

以达到每年的10月一号里，都有国庆这个年的事务

。。。。。。。。。。。。。。。。。。。。。。。。。

拜谢~~~~~~~~一直在研究呢。觉都睡不着~~

[此贴子已经被作者于2014-4-4 2:31:45编辑过]

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))

看着桑心悦目，谢谢

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