Visual Basic FAQ

Мне необходимо было реализовать ввод пользователем даты, уже не помню что это была за дата, но задача была и я ее одолел.

Как это сделать?

Все просто, я использовал элемент – ComboBox, но не просто, а еще и автоматически его наполнял данными уже во время работы программы.

Данный пример Вам покажет как можно использовать циклы при работе с ComboBox.

Option Explicit
Dim strYear As String
Dim strMonth As String
Dim strDay As String

Private Sub Combo1_Click()
Dim i As Long
strYear = Combo1.Text
Combo2.Enabled = True
Combo3.Enabled = False
Combo2.Clear
Combo3.Clear
    For i = 1 To 12
        Combo2.AddItem Format$(i, "00")
    Next
Combo2.Text = ""
End Sub

Private Sub Combo2_Click()
Dim i As Byte
Combo3.Clear
strMonth = Combo2.Text
Combo3.Text = ""
Combo3.Enabled = True

If strMonth = "02" Then
    For i = 1 To 28
            Combo3.AddItem Format$(i, "00")
    Next
Else
    If strMonth = "01" Or strMonth = "03" Or strMonth = "05" Or strMonth = "07" _
        Or strMonth = "08" Or strMonth = "10" Or strMonth = "12" Then
        For i = 1 To 31
            Combo3.AddItem Format$(i, "00")
        Next
    Else
        For i = 1 To 30
            Combo3.AddItem Format$(i, "00")
        Next
    End If
End If
End Sub

Private Sub Combo3_Click()
strDay = Combo3.Text
Label1 = strYear & "/" & strMonth & "/" & strDay
End Sub

Private Sub Form_Load()
Dim i As Integer
Combo2.Enabled = False
Combo3.Enabled = False

For i = 1900 To 2010
    Combo1.AddItem Format$(i, "00")
Next
End Sub

После выбора значения во всех трех элементах ComboBox результат выводится на метку.

Запись опубликована on 06.09.2008 at 12:44 и размещена в рубрике: Combobox. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.