- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 月历控件可以做到多选吗？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=99005)
-- 发布时间：2017/4/10 23:18:00
-- 月历控件可以做到多选吗？
如题，以下的月历控件中的日期怎样可以做到日期多选？
此主题相关图片如下：微信截图_20170410231546.png
-- 发布时间：2017/4/11 9:01:00
--
月历控件的日期可以做到多选吗？
-- 发布时间：2017/4/11 9:04:00
--
- DateSelected事件
Dim cal As WinForm.Calendar = e.Form.Controls("Calendar1")
Dim ct = cal.basecontrol
Dim lst As new List(of Date)
lst.AddRange(ct.BoldedDates)
If lst.Contains(e.Sender.Value) Then
lst.Remove(e.Sender.Value)
Else
lst.Add(e.Sender.Value)
End If
ct.BoldedDates = lst.ToArray
获取选中日期
Dim cal As WinForm.Calendar = e.Form.Controls("Calendar1")
Dim ct = cal.basecontrol
For Each d As Date In ct.BoldedDates
msgbox(d)
Next
清空选择
Dim cal As WinForm.Calendar = e.Form.Controls("Calendar1")
Dim ct = cal.basecontrol
ct.BoldedDates = Nothing
[此贴子已经被作者于2017/4/11 9:08:32编辑过]