VB编写一个简单的日历程序7

发布网友发布时间：2023-09-20 00:38

共2个回答

热心网友时间：2023-09-20 00:40

追问可以把代码再改一下么，就是加一个记事，在某一天点击弹出“今天是我的生日”，只需要一个就行，不需要弹出今天是几月几日。

追答

自己改一下，代码如下：

Private Sub Label2_Click(Index As Integer)
Dim mybirthday As Date
  mybirthday = "1985-6-10"
  If Label2(Index).Caption <> "" Then
    If Combo1.ListIndex + 1 = Month(mybirthday) And Label2(Index).Caption = Day(mybirthday) Then
      MsgBox "今天是我的生日"
    End If
  End If
End Sub

热心网友时间：2023-09-20 00:40

frxd4edf45ed4ed4wesd4e

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com