ÔÚ½çÃæÉÏÓÐÒ»個¿Ø¼þCombo1£¬點選Äê·Ý¡£Ôõô×ö£¿ÒÔǰ¶¼Ö±½Ó¸ãÒ»個Text讓ÓÃ戶×Ô¼º選£¬這´ÎËûÒª點選£¡for idx = startyear to endyear combo1.add idx next
ÓÃDateTimePacker£¬ÊÕËõʱÊÇComboʽÑù£¬Õ¹¿ªÊÇÈÕÀú±í£¬Ñ¡ÔñºóÖµÖ±½ÓÊǸñʽ»¯ºÃµÄÈÕÆÚ¡£ VB code: Private Sub Combo1_Click() Combo1.Text = Combo1.List(Combo1.ListIndex) End Sub
Private Sub Form_Load() Dim i For i = 1900 To 2100 Combo1.AddItem i Next Combo1.ListIndex = 109 End Sub