网页资讯视频图片知道文库贴吧地图采购
进入贴吧全吧搜索
vb吧 关注：156,162贴子：1,166,028
  • 5回复贴，共1页

vb设置combo1 2月 combo2只有1-29天的选项

vb设置combo1 2月 combo2只有1-29天的选项 怎么弄 就是每个月对应天数.


可以用Select Case临时判断，比如：
Select Case Combo1.ListIndex + 1
Case 1, 3, 5, 7, 8, 10, 12
m = 31
Case 4, 6, 9, 11
m = 30
Case 2
m = 29
End Select
也可以用一个数组保存每个月的天数，比如用变量数组：
a = Array(31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31)
m = a(Combo1.ListIndex)
也可以用属性数组，即组合框的ItemData属性，这样可以在设计阶段就把属性值写进组合框中，当然也可以用代码在运行时写入，然后只要：
m = Combo1.ItemData(Combo1.ListIndex)
就可以得到每个月的天数了


根据 Combo1 的值，刷新 Combo2 中列表数据。


Private Sub Form_Load()
Dim i As Integer
For i = 1 To 12
Combo1.AddItem CStr(i) & "月"
Next
End Sub
Private Sub Combo1_Click()
Dim dtStart As Date
Dim dtEnd As Date
Dim i As Integer
dtStart = DateSerial(2020, Combo1.ListIndex + 1, 1)
dtEnd = DateSerial(2020, Combo1.ListIndex + 2, 1)
Combo2.Clear
For i = 1 To DateDiff("d", dtStart, dtEnd)
Combo2.AddItem CStr(i)
Next
End Sub
这大概就是楼主的意思吧


扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！
  • 5回复贴，共1页
分享到: