vb程序界面这样子的日期下拉菜单怎么弄啊?希望从控件到需修改的控件内容...

发布网友发布时间：2024-10-01 18:18

共2个回答

热心网友时间：2024-10-06 03:00

你要从控制库中添加“Microsoft 日历控件”，把这放在适当的位置就可以了。很容易的。

要显示当前的日期，只要把Date在适当的地方显示就可以了，如放一个文本框Text1,就可以用Text1.Text=Date。

热心网友时间：2024-10-06 03:01

最简单的就是直接添加部件“Microsoft 日历控件”Calendar

然后把日历控件Calendar拖入摆放在Text文本框下面，Calendar加入如下代码

Private Sub Calendar1_Click()

Text1.Text = Calendar1.Year & -Calendar1.Month & -Calendar1.Day

Calendar1.Visible = False

End Sub

然后在文本框Text加入如下代码

Private Sub Text1_Click()

Calendar1.Visible = True

End Sub

最后设置启动代码

Private Sub Form_Load()

Calendar1.Visible = False

Text1.Text = Date

Calendar1.Value = Date

End Sub

我有上传一张截图给你参考参考