Calendar控件里，怎么样实现单击每一天会跳出一个msgbox

[crazymanonly]

VB里面的Calendar控件，单击其中一天跳出一个警告框

然后把那天对应的格子的颜色变成红色

请问有办法实现吗？

有实例代码吗？谢谢！~

[crazymanonly]

顶啊 有哪位大虾知道的？

[哈了]

Private Sub Calendar1_AfterUpdate()
  if Calendar1.value="某一天" then
  msgbox "警告"
  end if  

end sub

[无·法]

找个代码源码的自定义控件吧 系统的那个不是很给力

[crazymanonly]

那么让日历控件的那一格子变红是怎么写的呢？

[crazymanonly]

那么让日历控件的那一格子变红是怎么写的呢？

[哈了]

[Quote=引用 5 楼 crazymanonly 的回复:]

那么让日历控件的那一格子变红是怎么写的呢？
[/Quote]
变红不晓得

[crazymanonly]

顶啊 有哪位高人知晓的？