作者：绿色风
分类：
时间：2022-08-18
浏览：160
楼主
amulee |
本示例介绍在VSTO中如何使用DateTimePicker控件。
VSTO中DateTimePicker控件与VBA中使用方法类似。
本例功能：当点击A列单元格时，显示DateTimePicker控件，选择日期后将日期值填入活动单元格同时隐藏DateTimePicker。
操作步骤：
1、创建一个Excel程序（[VSTO] 利用VSTO制作一个简单的Excel程序 http://www.exceltip.net/thread-21546-1-1.html
）
2、在Sheet1中添加一个DateTimePicker控件
3、在Sheet1中填写代码：
- Public Class Sheet1
- '表格激活事件
- Private Sub Sheet1_ActivateEvent() Handles Me.ActivateEvent
- Me.DateTimePicker1.Visible = False
- End Sub
- '表格启动事件
- Private Sub Sheet1_Startup() Handles Me.Startup
- Me.DateTimePicker1.Visible = False
- End Sub
- Private Sub Sheet1_Shutdown() Handles Me.Shutdown
- End Sub
- Private Sub Sheet1_SelectionChange(ByVal Target As Microsoft.Office.Interop.Excel.Range) Handles Me.SelectionChange
- '选择A列单元格时显示
- If Target.Count = 1 Then
- If Target.Column = 1 Then
- '调整位置并显示
- With Me.DateTimePicker1
- .Top = Target.Top
- .Left = Target.Left
- .Visible = True
- End With
- End If
- Me.DateTimePicker1.Visible = False
- Else
- Me.DateTimePicker1.Visible = False
- End If
- End Sub
- Private Sub DateTimePicker1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker1.ValueChanged
- Dim APP As Microsoft.Office.Interop.Excel.Application
- '给单元格赋值
- APP = Me.Parent.parent
- '将日期转化为短日期格式，即YYYY-M-D格式
- APP.ActiveCell.Value = Format(DateTimePicker1.Value, "Short Date")
- DateTimePicker1.Visible = False
- End Sub
- End Class
注意：在VSTO中增加了一个Sheet1_Startup()事件，该事件表示Sheet1创建时触发的事件。
FORMAT用于格式化日期，有关FORMAT函数可以参考
示例效果：
附件下载：
 VSTO中DateTimePicker示例.rar
|
2楼
水吉果果 |
原来VISIO这么深奥呢啊，以前只以为是画流程图呢，学习了 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一