如何将popup式日历forms合并到现有的用户窗体中

Trevor Eyre的popup式日历版本给我留下了非常深刻的印象（第11号答案），我很兴奋地将它融入到我正在开发的一个用户表单中，这对我来说具有很大的挑战，因为我对VBA有着非常基本的经验。

在VBA的文本框中格式化MM / DD / YYYYdate （解答＃11）链接到Trevors示例电子表格https://www.dropbox.com/sh/0n9gyc32rlr31n2/AAAW7ADAWiLEZRHftERro9Tva?dl=0

例如，我有一个名为SECINC的用户表单，并有一个文本框（IncidentDate），用户必须input事件date，直到遇到Trevor的popup日历版本。 我在Excel 2013（64位）和MSdateselect器不可用。

我已经从模块1的所有代码复制到我的项目书的模块1，并保存并导入CalendarForm，然后我有我自己的用户窗体，请参阅链接：
SECINC用户表单示例

我很高兴地使用基本的CalendarForm，但我唯一缺less的是如何在用户单击IncidentDate文本框并selectdate填充IncidentDate框时调用日历窗体。

我添加了一个日历的“图像”，并想知道如何将其链接到CalendarForm，以便单击它时将打开日历并将date放入IncidentDate文本框中。

我需要IncidentDate文本框中的date格式以DD / MM / YY格式显示。

我在想，对于我们来说，以视觉为基础，以video教程的forms来看它，对于那些刚接触VBA的用户来说，这可能是有利的。

如果我迷惑了你，或者你需要更多的信息，请告知。

提前感谢你，

TheShyButterfly

Answer 1

您需要点击图片上的点击事件 ，才能调用日历并填写date字段

右键点击日历图片，然后select“查看代码”来创build点击事件子。 然后按照Trevor的回答指定下面的命令：

Private Sub Image1_Click() your_date_field_name.Value = CalendarForm.GetDate End Sub 

下次你提出一个问题时，尽量less一点“字面意思”，对于这样一个简单的问题，我们不需要太多的细节，这是令人困惑的。 我build议你阅读这个