时间问题

Question

请问有一个combox选择年和两个listbox选择月和日，当选中下拉的年月日时，怎么在一个文本框中显示时间？

Answer 1

在combol和list的click事件去写text1.text=combol.text &"年" 这样子

Answer 2

text1 = combo1.text & " " & list1.text

Answer 3

用TDPicker控件不行吗？

Answer 4

是单击选择就写下面这个：组合框单击事件中写：
text1.text1=combox1.list(combox1.listindex)列表框1单击事件中写：
text1.text1=text1.text1 & list1.list(list1.listindex)列表框2单击事件中写：
text1.text1=text1.text1 & list2.list(list2.listindex)

Answer 5

是单击选择就写下面这个： 组合框单击事件中写： 
text1.text=combol.text &"年" & list1.text & "月" & list2.text & "日" 列表框1单击事件中写： 
text1.text=combol.text &"年" & list1.text & "月" & list2.text & "日"列表框2单击事件中写： 
text1.text=combol.text &"年" & list1.text & "月" & list2.text & "日"

Answer 6

我写过的现成代码, 抽出来给你用, 不合适的地方自己改......'添加 Combo1 List1 List2 Text1Dim i%, Yearb%, Monthb%, Dayb%, MaxDays%, aa$
Private Sub Form_Load()
   For i = 2000 To 2100
      Combo1.AddItem CStr(i)
   Next i
   For i = 1 To 12
      List1.AddItem CStr(i)
   Next i
   Yearb = Year(Now): Monthb = Month(Now): Dayb = Day(Now)
   Call ShowListDay
   Combo1.Text = CStr(Yearb)
   List1.Selected(Monthb - 1) = True
   List2.Selected(Dayb - 1) = True
   Call ShowTxt
End SubPrivate Sub Combo1_Click()
   Yearb = Val(Combo1.Text)
   Call ShowListDay
   Call ShowTxt
End SubPrivate Sub List1_Click()
   Monthb = Val(List1.List(List1.ListIndex))
   Call ShowListDay
   Call ShowTxt
End SubPrivate Sub List2_Click()
   Dayb = Val(List2.List(List2.ListIndex))
   Call ShowTxt
End SubSub ShowTxt()
   aa = CStr(Yearb) & "/" & Format(CStr(Monthb), "00") & "/" & Format(CStr(Dayb), "00")
   Text1.Text = aa & " " & Time$ & " " & WeekdayName(Weekday(aa))
End SubSub ShowListDay()
   List2.Clear
   Select Case Monthb
      Case 1, 3, 5, 7, 8, 10, 12
         MaxDays = 31
      Case 4, 6, 9, 11
         MaxDays = 30
      Case Else
         If (Yearb Mod 4 = 0 And Yearb Mod 100 <> 0) Or Yearb Mod 400 = 0 Then
            MaxDays = 29
         Else
            MaxDays = 28
         End If
   End Select
   For i = 1 To MaxDays
      List2.AddItem CStr(i)
   Next i
   List2.Selected(Dayb - 1) = True
End Sub