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

2020-08-19 科技 210阅读
问:文本框右侧的向下三角按钮是怎样做出来的?
答:使用“复合框”控件即可。
要求:日历在文本框底部显示
实现:在窗体中将日历控件放在复合框控件之下,调整大小对齐。然后通过日历控件的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,我会回复给你。
声明:你问我答网所有作品(图文、音视频)均由用户自行上传分享,仅供网友学习交流。若您的权利被侵害,请联系fangmu6661024@163.com