高手帮我编个简单的VB编程`菜菜求助
发布网友
发布时间：2024-10-14 11:28
共1个回答
热心网友
时间：2024-11-23 20:41
建立月菜单项name为menu2，(menu2.caption="月")
建立年的二级菜单n1,n2……n8表示前8年，caption(标题)属性暂时为空。
建立月的二级菜单y1,y2……y12表示12个月份，caption属性分别对应1月，2月
Private Sub menu1_Click()
Dim nf As String
Dim nn As Integer
nf = Mid$(Date$, 1, 4)
nn = Val(nf)
menu1.Caption = nn
n1.Caption = nn - 1
n2.Caption = nn - 2
n3.Caption = nn - 3
n4.Caption = nn - 4
n5.Caption = nn - 5
n6.Caption = nn - 6
n7.Caption = nn - 7
n8.Caption = nn - 8
End Sub
