有没有大神，我先预约下，一个小时后帮我看看VB的一个东西怎么改。 - 编程论坛

#2

aishenghuo352018-06-21 15:47

只有本站会员才能查看附件，请登录

那个选择的三角标怎么弄出来啊，求助

#3

aishenghuo352018-06-21 16:23

大佬们，求助啊，那个日期怎么才能显示出来，

#4

nmti1682018-06-21 21:47

Combo1

#5

Artless2018-06-21 23:58

DTP***

[此贴子已经被作者于2018-6-21 23:59编辑过]

#6

wufuzhang2018-06-22 17:33

回复 2楼 aishenghuo35

用ComboBox控件，代码：
Private Sub Form_Load()
Combo1.AddItem "2012/6/29"
Combo1.ListIndex = 0
End Sub

只有本站会员才能查看附件，请登录

#7

ZHRXJR2018-06-23 10:35

ComboBox控件，使用循环得到几年的日期，然后选择需要的日期：

程序代码：

Private Sub Form_Load()
Combo1.Clear
Dim AA As Integer, BB As Integer
AA = 2016: BB = Year(Date)    '年份初值可以根据你的需要修改，终值是当年的年份
For I = AA To BB
    For J = 1 To 12
    If I = BB And J > Month(Date) Then Exit For    '当年的月份是现在的月份
        For K = 1 To 31
            If J = 2 And I Mod 4 = 0 And K = 30 Then Exit For '闰年是29天
            If J = 2 And I Mod 4 <> 0 And K = 29 Then Exit For '非闰年是28天
            If (J = 4 Or J = 6 Or J = 9 Or J = 11) And K = 31 Then Exit For     '4、6、9、11是小月，只有30天
            If I = BB And J = Month(Date) And K > Day(Date) Then Exit For   '日期最大是当天的日期
            Combo1.AddItem I & "/" & J & "/" & K
        Next K
    Next J
Next I
End Sub

只有本站会员才能查看附件，请登录