大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
自己用两个COMBO写一个不就行了吗
让客户满意是我们工作的目标,不断超越客户的期望值来自于我们对这个行业的热爱。我们立志把好的技术通过有效、简单的方式提供给客户,将通过不懈努力成为客户在信息化领域值得信任、有价值的长期合作伙伴,公司提供的服务项目有:申请域名、雅安服务器托管、营销软件、网站建设、海林网站维护、网站推广。
何必用控件呢
##################################
Private Sub Form_Load()
For n = 1949 To 2008
Combo1.AddItem n
Next
Combo1.ListIndex = 0
For n = 1 To 12
Combo2.AddItem n
Next
Combo2.ListIndex = 0
End Sub
‘以如下的方式获取时间
Private Sub Command1_Click()
MsgBox "当前选择的是" Combo1.Text "年" Combo2.Text "月", vbInformation, "年月"
End Sub
希望对你有帮助
VB或vb.NET或其它语言的控件都无法显示阴历,因为国外不使用阴历,你只能在网上找找第三方控件
这个解答完全符合你的要求:
首先在默认form1窗体上画一个文本框text1、再画一个日历控件MonthView1,记得是MonthView1控件,你自己排列好它们两个的位置即可,一切都按默认(不用改属性)。然后复制以下代码到form1的代码窗口里运行即可看到结果啦(如图):
Private Sub Form_Load()
MonthView1.Visible = False
End Sub
Private Sub Text1_Click()
MonthView1.Visible = True
End Sub
Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
Text1.Text = MonthView1.Year "-" MonthView1.Month "-" MonthView1.Day
MonthView1.Visible = False
End Sub