分类导航
PHPJavaPythonC#C&C++RubyVBasp.NetGoPerlDjangoDelphiJspSpringLuaLaravelMybatisAspGroovyThinkPHP

VB.NET 编写仿微软的日历控件

VB   发布时间：2022-04-03  发布网站：大佬教程  code.js-code.com
大佬教程收集整理的这篇文章主要介绍了VB.NET 编写仿微软的日历控件，大佬教程大佬觉得挺不错的，现在分享给大家，也给大家做个参考。

控件名称

控件类型

设置属性

DatePanl

TableLayoutPanle

@H_357_6@monthAddbtn,MonthSubbtn

YearAddBtn,YearSubBtn

Button

Flatstyle=Flat

@H_357_6@monthLbl,Yearlbl,label3

Label

Dock=Fill

Picture

PictureBox

思路是先利用用户控件，做出日历的主体，然后利用ToolStripControlHost作为容器将日历的主体包含在里面利用ToolStripDropDown控件做弹出效果，最后重写Combobox控件形成完整的日历控件。

对于日历的主体，通过将背景分成不同的小格，然后将数字绘制在背景上。在编写的时候需要注意以下几个问题。

（一）在绘制的时注意定位，我以每个月的1号做为定位点通过StartDay = CDate(m_Date.Year & "-" & m_Date.Month & "-1").DayOfWeek – 1这个计算将星期和日期定位以便绘制。

（二）通过边缘检测也就是检测没个小格的坐标然后再反算为日期以产生通过点击日历产生不同日期的效果。

（三）通过申明事件Public Event DateChanged(ByVal Sender As Object,ByVal e As EventArgs)然后在不同的时候触发以传出数据。

（四）特别是Picturebox控件没有实质的用处，但是没有他的时候当整个控件包装在ToolStripDropDown控件的时候会不能完全显示，所以只有将它放在右下角。

下面是主体代码：

  1. ImportsSystem.Drawing.Drawing2D
  2. ImportsSystem.Windows.Forms.Design
  3. ImportsSystem.Windows.Forms.ComponentModel
  4. FriendClassCalendar
  5. Private@H_961_334@m_DateAsDate
  6. Private@H_961_334@m_Week()AsString=NewString(){"星期日","星期一","星期二","星期三","星期四","星期五","星期六"}
  7. Private@H_961_334@m_ClipWidthAsSingle'格子的宽度
  8. Private@H_961_334@m_CliPTOPAsInteger'绘制日历的顶点坐标
  9. ShadowsFontAsNewFont("宋体",9,FontStyle.Regular,GraphicsUnit.Point)'设置绘制时候的字体
  10. PrivateFormatAsNewStringFormat'绘制字体时候的对齐方式
  11. PrivateStartDayAsInteger'绘制时候的开始点
  12. PublicEventDateChanged(ByValSenderAsObject,ByValeAsEventArgs)'日期改变的事件
  13. Private@H_961_334@m_IsSELEctedAsBoolean'需要在点击日期的时候才关闭主体而点击年月增减按钮不关闭所以设置该参数
  14. Privatei,jAsInteger,RectAsNewRectangleF
  15. Private@H_961_334@minDateAsDate=CDate("1900-1-1")'日历可选最小日期
  16. Private@H_961_334@maxDateAsDate=CDate("2100-12-31")'日历可选最大日期
  17. PublicReadOnlyPropertyIsSELEcted()AsBoolean
  18. Get
  19. Return@H_961_334@m_IsSELEcted
  20. EndGet
  21. EndProperty
  22. PublicSubNew()
  24. InitializeComponent()
  26. @H_961_334@m_ClipWidth=(@H_900_332@me.Width-4)/7
  27. @H_961_334@m_CliPTOP=2+DatePanl.Height
  28. @H_961_334@m_Date=Now.Date
  29. Format.Alignment=StringAlignment.Center
  31. EndSub
  32. PublicPropertyDateValue()AsDate'返回日期以供其他程序使用
  33. Get
  34. Return@H_961_334@m_Date
  35. EndGet
  36. Set(ByValvalueAsDate)
  37. Ifvalue>=MinDateAndAlsovalue<=MaxDateThen
  38. @H_961_334@m_Date=value
  39. @H_900_332@me.Invalidate()
  40. EndIf
  42. EndSet
  43. EndProperty
  45. PrivateSubCalendar_Load(ByValsenderAsObject,ByValeAsSystem.EventArgs)Handles@H_900_332@me.Load
  46. Label3.Text="今天："&Now.ToShortDateString
  47. Label3.Left=(@H_900_332@me.Width-Label3.Width)/2
  48. EndSub
  50. PrivateSubAddBtn_Click(ByValsenderAsSystem.Object,ByValeAsSystem.Windows.Forms.MouseEventArgs)Handles@H_961_334@monthAddbtn.MouseClick,MonthSubbtn.MouseClick,YearAddBtn.MouseClick,YearSubBtn.MouseClick'几个按钮会产生相同的效果所以放在一个代码块
  52. Ife.button=Windows.Forms.MouseButtons.LeftThen
  54. DatePanl.Focus()
  55. DimTAsButton=CType(sender,Button)
  56. SELEctCaseT.Name
  57. Case"MonthAddbtn"
  58. @H_961_334@m_Date=@H_900_332@me.DateValue.AddMonths(1)
  59. Case"MonthSubbtn"
  60. @H_961_334@m_Date=@H_900_332@me.DateValue.AddMonths(-1)
  61. Case"YearAddBtn"
  62. @H_961_334@m_Date=@H_900_332@me.DateValue.AddYears(1)
  63. Case"YearSubBtn"
  64. @H_961_334@m_Date=@H_900_332@me.DateValue.AddYears(-1)
  65. EndSELEct
  67. If@H_961_334@m_Date>=MinDateAndAlso@H_961_334@m_Date<=MaxDateThen'保证设置的日期是在可选范围之内
  68. @H_961_334@m_IsSELEcted=false
  69. RaiseEventDateChanged(@H_900_332@me,Nothing)
  70. @H_900_332@me.Invalidate()
  71. ElseIf@H_961_334@m_Date<MinDateThen
  72. @H_961_334@m_Date=CDate("1900-1-"&m_Date.Day)
  73. Else
  74. @H_961_334@m_Date=CDate("2100-12-"&m_Date.Day)
  75. EndIf
  78. EndIf
  80. EndSub
  82. PrivateSubDrawWeek(ByValGraphicsAsGraphics)'绘制星期
  84. Fori=0To6
  85. Rect=NewRectangleF(2+i*m_ClipWidth,m_CliPTOP+2,m_ClipWidth,@H_900_332@me.Font.Height+2)
  86. Graphics.DrawString(m_Week(i),Font,Brushes.RoyalBlue,Rect)
  87. Next
  88. Graphics.DrawLine(Pens.Gray,2,m_CliPTOP+Font.Height+2,@H_900_332@me.Width-6,m_CliPTOP+Font.Height+2)'绘制星期下面的横线
  89. Graphics.DrawRectangle(Pens.RoyalBlue,40,@H_900_332@me.Height-Font.Height,m_ClipWidth-1,Font.Height-1)
  90. 'Graphics.Dispose()
  91. EndSub
  93. PrivateSubDrawDate(ByValGraphicsAsGraphics)'绘制日历
  95. Dim@H_961_334@maxDaysAsInteger=Date.DaysInMonth(m_Date.Year,m_Date.Month)'由于整个主体被分成*7个格子，因此会有上个月和下个月的日期在里面，因此需要得到上个月的天数
  96. Dim@H_961_334@mindays=Date.DaysInMonth(m_Date.AddMonths(-1).Year,m_Date.AddMonths(-1).Month)
  99. StartDay=CDate(m_Date.Year&"-"&m_Date.Month&"-1").DayOfWeek-1'由每个月的一号定位为星期几
  101. DimDateStringAsInteger
  103. Fori=0To6
  104. Forj=0To5
  106. WithRect
  107. .X=2+i*m_ClipWidth
  108. .Y=m_CliPTOP+j*Font.Height+Font.Height+8
  109. .Width=m_ClipWidth
  110. .Height=Font.Height
  111. EndWith
  113. DateString=(i+j*7-StartDay)
  115. IfDateString<=0Then
  117. Graphics.DrawString(DateString+Mindays,Brushes.Gray,Rect,Format)
  120. ElseIfDateString>0AndAlsoDateString<=MaxDaysThen'绘制上个月的本月的以及下个月的日期
  122. IfDateString=m_Date.DayThen
  123. Graphics.FillRectangle(Brushes.Silver,Rect.X-1,Rect.Y-1,Rect.Width,Rect.Height)
  124. EndIf
  126. IfDateString=Now.DayAndAlso@H_961_334@m_Date.Month=Now.MonthAndAlso@H_961_334@m_Date.Year=Now.YearThen
  127. Graphics.DrawRectangle(Pens.RoyalBlue,Rect.Width-1,Rect.Height-1)
  128. EndIf
  130. Graphics.DrawString(DateString,Brushes.black,Format)
  132. ElseIfDateString>MaxDaysAndAlsoDateString<=42Then
  134. Graphics.DrawString(DateString-MaxDays,Format)
  136. EndIf
  138. Next
  139. Next
  140. EndSub
  142. PrivateSubCalendar_MouseClick(ByValsenderAsObject,ByValeAsSystem.Windows.Forms.MouseEventArgs)Handles@H_900_332@me.MouseDown'通过边界检查获取点击时候所处的位置以计算为日期
  143. DimxAsInteger=e.X
  144. DimyAsInteger=e.Y
  146. DimDateStringAsInteger
  148. DimPenAsNewPen(Color.Gray)
  149. Pen.DashStyle=DashStyle.Dot
  151. Dim@H_961_334@maxDaysAsInteger=Date.DaysInMonth(m_Date.Year,m_Date.Month)
  152. Dim@H_961_334@mindays=Date.DaysInMonth(m_Date.AddMonths(-1).Year,m_Date.AddMonths(-1).Month)
  155. @H_961_334@m_IsSELEcted=false
  157. Ife.button=Windows.Forms.MouseButtons.LeftThen
  158. Fori=0To6
  159. Forj=0To5
  160. DateString=(i+j*7-StartDay)
  161. WithRect
  162. .X=2+i*m_ClipWidth
  163. .Y=m_CliPTOP+(j+1)*Font.Height+8
  164. .Width=m_ClipWidth
  165. .Height=Font.Height
  166. EndWith
  168. Ifx>=Rect.X-1AndAlsox<=Rect.RightAndAlsoy>Rect.Y-1AndAlsoy<=Rect.bottomThen'计算格子的范围使鼠标在可选范围内
  170. IfDateString<=0Then'根据选取不同的月份计算出当时点击时的正确日期,所计算的日期要在整个可选的范围内
  172. IfCDate(m_Date.AddMonths(-1).Year&"-"&m_Date.AddMonths(-1).Month&"-"&dateString+Mindays)>=MinDateThen
  173. @H_961_334@m_Date=CDate(m_Date.AddMonths(-1).Year&"-"&m_Date.AddMonths(-1).Month&"-"&dateString+Mindays)
  174. @H_961_334@m_IsSELEcted=True
  175. EndIf
  177. ElseIfDateString>0AndAlsoDateString<=MaxDaysThen
  178. @H_961_334@m_Date=CDate(m_Date.Year&"-"&m_Date.Month&"-"&dateString)
  179. @H_961_334@m_IsSELEcted=True
  180. ElseIfDateString>MaxDaysAndAlsoDateString<=42Then
  182. IfCDate(m_Date.AddMonths(1).Year&"-"&m_Date.AddMonths(1).Month&"-"&dateString-MaxDays)<=MaxDateThen
  183. @H_961_334@m_Date=CDate(m_Date.AddMonths(1).Year&"-"&m_Date.AddMonths(1).Month&"-"&dateString-MaxDays)
  184. @H_961_334@m_IsSELEcted=True
  185. EndIf
  187. EndIf
  188. @H_900_332@me.CreateGraphics.DrawRectangle(Pen,Rect.Height-1)
  189. RaiseEventDateChanged(@H_900_332@me,Nothing)'触发日期改变的事件
  190. @H_900_332@me.Invalidate()
  191. EndIf
  192. Next
  193. Next
  194. Pen.Dispose()
  195. EndIf
  197. EndSub
  199. PrivateSubCalendar_Paint(ByValsenderAsObject,ByValeAsSystem.Windows.Forms.PaintEventArgs)Handles@H_900_332@me.Paint
  201. DrawWeek(e.Graphics)
  202. DrawDate(e.Graphics)
  203. @H_961_334@monthLbl.Text=m_Date.Month&"月"
  204. Yearlbl.Text=m_Date.Year&"年"
  205. EndSub
  207. PrivateSubLabel3_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesLabel3.Click'转到今天
  208. @H_961_334@m_Date=Now
  209. @H_900_332@me.m_IsSELEcted=True
  210. RaiseEventDateChanged(@H_900_332@me,Nothing)
  211. @H_900_332@me.Invalidate()
  212. EndSub
  214. PrivateSubLabel3_MouseEnter(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesLabel3.MouseEnter
  215. Label3.cursor=cursors.Hand
  216. EndSub
  218. PrivateSubLabel3_MouSELEave(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesLabel3.MouSELEave
  219. Label3.cursor=cursors.Default
  220. EndSub
  222. PrivateSubCalendar_Resize(ByValsenderAsObject,ByValeAsSystem.EventArgs)Handles@H_900_332@me.Resize'固定整个控件的大小
  223. @H_900_332@me.Size=NewSize(298,150)
  224. EndSub
  225. EndClass

以下是主体在运行时的效果

接下来是将Combobox控件重写然后将主体包装的代码

  1. ImportsCalendar
  2. PublicClassDatePicker
  3. InheritsComboBox
  4. PrivateWithEventsCalendarAsCalendar
  5. PrivateDateToolAsToolStripDropDown
  6. PrivateConstWM_LBUTTONDOWN=
  7. PrivateConstWM_LBUTTONDBLCLK=
  8. PublicSubNew()
  9. InitTool()
  10. EndSub
  11. PublicPropertyValue()AsDate
  12. Get
  13. ReturnCalendar.DateValue
  14. EndGet
  15. Set(ByValvalueAsDate)
  16. IfDate.TryParse(value,Calendar.Datevalue)=TrueThen
  17. @H_900_332@me.Text=value.ToLongDateString
  18. EndIf
  20. EndSet
  21. EndProperty
  22. ProtectedOverridesSubWndProc(ByRef@H_961_334@mAsSystem.Windows.Forms.messagE)'截获鼠标左键点击的消息以显示包装的日历主体
  23. If@H_961_334@m.Msg=WM_LBUTTONDOWNOrElse@H_961_334@m.Msg=WM_LBUTTONDBLCLKThen
  24. ShowDrop()
  25. @H_900_332@me.Focus()
  26. Return
  28. EndIf
  29. @H_900_332@myBase.WndProc(m)
  30. EndSub
  32. PrivateSubInitTool()
  33. Calendar=NewCalendar
  34. DimToolHostAsNewToolStripControlHost(Calendar)
  35. DateTool=NewToolStripDropDown
  36. DateTool.Items.Add(ToolHost)
  37. EndSub
  38. PrivateSubShowDrop()
  39. IfDate.TryParse(@H_900_332@me.Text,Calendar.Datevalue)=TrueThen
  40. DateTool.Show(@H_900_332@me,@H_900_332@me.Height)
  41. EndIf
  43. EndSub
  45. PrivateSubCalendar_DateChanged(ByValSenderAsObject,ByValeAsSystem.EventArgs)HandlesCalendar.DateChanged
  46. IfCalendar.IsSELEcted=TrueThen
  47. Threading.Thread.Sleep(100)
  48. DateTool.Hide()
  50. EndIf
  51. @H_900_332@me.Text=Calendar.DateValue.ToLongDateString
  52. EndSub
  53. EndClass

最后进行测试

测试代码如下：

  1. PrivateSubForm1_Load(ByValsenderAsObject,ByValeAsSystem.EventArgs)Handles@H_900_332@me.Load
  2. DatePicker1.Text=Now.ToLongDateString
  3. EndSub

运行效果如下图

大佬总结

以上是大佬教程为你收集整理的VB.NET 编写仿微软的日历控件全部内容，希望文章能够帮你解决VB.NET 编写仿微软的日历控件所遇到的程序开发问题。

如果觉得大佬教程网站内容还不错，欢迎将大佬教程推荐给程序员好友。

本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ：384754419，请注明来意。
标签：vbvb.net仿微软控件日历编写
猜你在找的VB相关文章
其他相关热搜词更多
phpJavaPython程序员load中如何string使用参数jquery开发安装listlinuxiosandroid工具javascriptcap