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
加好友 
发短信
Post By：2021/11/23 10:52:00 [显示全部帖子]
