怎样在VBA用户窗体上文本框中添加日历控件？

问：文本框右侧的向下三角按钮是怎样做出来的？

答：使用“复合框”控件即可。

要求：日历在文本框底部显示

实现：在窗体中将日历控件放在复合框控件之下，调整大小对齐。然后通过日历控件的visible属性实现日历的显示与隐藏。

功能说明：双击“复合框”显宴旅示，再次双击隐藏。在日历上选择日期后，双击日历将选择的日期输入复合框。窗体打开后日历控件默认不显示。

功能代码：

Private Sub Calendar1_DblClick()

Me.ComboBox1.Value = Me.Calendar1.Value

Me.Calendar1.Visible = False

End Sub

Private Sub ComboBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

Me.Calendar1.Visible = Not Me.Calendar1.Visible

End Sub

Private Sub UserForm_Initialize()

Me.Calendar1.Visible = False

End Sub

注：其中“复合框”的控件名称为ComboBox1，日历的控件名称为 Calendar1.

你可以直接新建窗体，拖入一个复合框和一个日历控件，双击窗体后将以上此祥衡代码复制粘贴到代码区域即可。

以上森做可以实现你要的功能。如需示例附件，请发Email到Atraction@qq.com，我会回复给你。

在工具箱点鼠标右键——附加控件，在附加控差陆件窗口中选拦并择如图的控件，如没有，请上网下载安装。确认简庆迹后选择控件在窗体中添加。 控件代码如下 Private Sub DTPicker1_Change()[O2] = Me.DTPicker1.ValueEnd SubPrivate Sub DTPicker2_Change()[O3] = ...

---