以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  时间轴  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=173292)

--  作者:zhutangxin
--  发布时间:2021/11/23 9:56:00
--  时间轴
老师您好,有没有可能用这个控件做个时间轴的示例。


效果如下
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2021/11/23 10:07:00
--  
把示例里使用代码生成的用法改为查表生成即可
--  作者:zhutangxin
--  发布时间:2021/11/23 10:32:00
--  
不会写,下面这个链接下面有它的示例

看起来下面是它生成的代码,这段怎么改成Foxtable用的代码?

public UCTimeLine()
        {
            this.SetStyle(ControlStyles.AllPaintingInWmPaint, true);
            this.SetStyle(ControlStyles.DoubleBuffer, true);
            this.SetStyle(ControlStyles.ResizeRedraw, true);
            this.SetStyle(ControlStyles.Selectable, true);
            this.SetStyle(ControlStyles.SupportsTransparentBackColor, true);
            this.SetStyle(ControlStyles.UserPaint, true);
            InitializeComponent();
            items = new TimeLineItem[0];
            if (ControlHelper.IsDesignMode())
            {
                items = new TimeLineItem[4];
                for (int i = 0; i < 4; i++)
                {
                    items[i] = new TimeLineItem()
                    {
                        Title = DateTime.Now.AddMonths(-1 * (3 - i)).ToString("yyyy年MM月"),
                        Details = DateTime.Now.AddMonths(-1 * (3 - i)).ToString("yyyy年MM月") + "发生了一件大事,咔嚓一声打了一个炸雷,咔嚓一声打了一个炸雷,咔嚓一声打了一个炸雷,咔嚓一声打了一个炸雷,咔嚓一声打了一个炸雷,咔嚓一声打了一个炸雷,咔嚓一声打了一个炸雷,咔嚓一声打了一个炸雷,咔嚓一声打了一个炸雷,然后王二麻子他爹王咔嚓出生了。"
                    };
                }
                ReloadItems();
            }
        }

--  作者:有点蓝
--  发布时间:2021/11/23 10:36:00
--  
参考这里的示例:[分享] 找到个好玩的控件集 HZH_Controls - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!

c#转换为vb参考:https://converter.telerik.com/

--  作者:liufucan
--  发布时间:2021/11/23 10:52:00
--  
Dim UCTimeLine1 As New HZH_Controls.Controls.UCTimeLine()

UCTimeLine1.Location = New System.Drawing.Point(12, 13)
UCTimeLine1.Name = "UCTimeLine1"


UCTimeLine1.Size = New System.Drawing.Size(228, 534)
UCTimeLine1.TabIndex = 0

UCTimeLine1.dock=5 \'

 Dim items = New HZH_Controls.Controls.TimeLineItem(3) {}
 For i As Integer = 0 To 4 - 1
            items(i) = New HZH_Controls.Controls.TimeLineItem() 
               items(i).Title = DateTime.Now.AddMonths(-1 * (3 - i)).ToString("yyyy年MM月")
               items(i).Details = DateTime.Now.AddMonths(-1 * (3 - i)).ToString("yyyy年MM月") & "发生了一件大事,咔嚓一声打了一个炸雷,咔嚓一声打了一个炸雷,咔嚓一声打了一个炸雷,咔嚓一声打了一个炸雷,咔嚓一声打了一个炸雷,咔嚓一声打了一个炸雷,咔嚓一声打了一个炸雷,咔嚓一声打了一个炸雷,咔嚓一声打了一个炸雷,然后王二麻子他爹王咔嚓出生了."
            
        Next


e.Form.Controls("Panel1").basecontrol.Controls.Add(UCTimeLine1)
UCTimeLine1.items=items

--  作者:zhutangxin
--  发布时间:2021/11/23 23:45:00
--  
liufucan, 万分感谢!