VB编写一个简单的日历程序_百度知道
VB编写一个简单的日历程序
运行界面图用历控件自编程份设置100内需要太某添加记事双击弹今我发邮箱
提问者采纳
可以把代码再改一下么，就是加一个记事，在某一天点击弹出“今天是我的生日”，只需要一个就行，不需要弹出今天是几月几日。
自己改一下，代码如下：Private&Sub&Label2_Click(Index&As&Integer)Dim&mybirthday&As&Date&&mybirthday&=&&&&&If&Label2(Index).Caption&&&&&&&Then&&&&If&Combo1.ListIndex&+&1&=&Month(mybirthday)&And&Label2(Index).Caption&=&Day(mybirthday)&Then&&&&&&MsgBox&&今天是我的生日&&&&&End&If&&End&IfEnd&Sub
提问者评价
来自团队：
其他类似问题
为您推荐：
日历的相关知识
其他1条回答
frxd4edf45ed4ed4wesd4e
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁求一段代码，用VB编程实现一个日历程序！！！_百度知道
求一段代码，用VB编程实现一个日历程序！！！
用VB编写设计历说明详细步骤
用VB编程实现历程序程序选择月查看星期几
提问者采纳
给简便易行代码==========================Private Sub Form_Load()While 1Dim y As Integer, m As Integer, d As Integer, s As Date, x As Integer, r As Stringy = InputBox(&请输入份&, , Format(Now, &yyyy&))m = InputBox(&请输入月份&, , Format(Now, &mm&))d = InputBox(&请输入期&, , Format(Now, &dd&))s = DateSerial(y, m, d)x = Weekday(s)Select Case xCase 1r = &&Case 2r = &&Case 3r = &二&Case 4r = &三&Case 5r = &四&Case 6r = &五&Case 7r = &六&End SelectMsgBox &星期& & rWendEnd Sub
其他类似问题
为您推荐：
vb编程的相关知识
其他2条回答
选择菜单工程-部件...弹窗口选择Microsoft Windows Common Controls-2 6.0 (SP6),点击确定按钮工具箱内现历控件双击该控件使用现历
那没有什么难的
画面上放40个控件数组
然后算就可以了！~
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁VB编的日历
VB编的日历
VB编的日历，能够自动显示日历以及查看某年的日历，界面也很不错的。 本资料共包含以下附件： VB%E7%BC%96%E7%9A%84%E6%97%A5%E5%8E%86.zip
（本资料免费下载）
本资料由网友发布，仅代表网友个人经验或观点，不代表本网站立场和观点。如果本资料侵犯了您的知识产权，请与我们取得联系，我们会及时处理。
&&&主编推荐
&&&&&&&&&&&&&&&
希赛网 版权所有 & &&VB 编写日历_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
评价文档：
VB 编写日历
上传于||文档简介
&&V​B​ ​编​写​的​一​个​小​程​序
大小：4.61KB
登录百度文库，专享文档复制特权，财富值每天免费拿！
你可能喜欢(window.slotbydup=window.slotbydup || []).push({
id: '2081942',
container: s,
size: '1000,60',
display: 'inlay-fix'}