Notes

Private Sub cbo1_Change()

cbo2.Clear
cbo3.Clear
cbo2.AddItem ("Январь")
cbo2.AddItem ("Февраль")
cbo2.AddItem ("Март")
cbo2.AddItem ("Апрель")
cbo2.AddItem ("Май")
cbo2.AddItem ("Июнь")
cbo2.AddItem ("Июль")
cbo2.AddItem ("Август")
cbo2.AddItem ("Сентябрь")
cbo2.AddItem ("Октябрь")
cbo2.AddItem ("Ноябрь")
cbo2.AddItem ("Декабрь")


cbo1.Style = fmStyleDropDownList
End Sub

Private Sub cbo2_Change()
cbo3.Clear
Select Case cbo2.Value
Case "Январь"
For i = 1 To 31
cbo3.AddItem (i)
Next
Case "Февраль"
If cbo1.Value Mod 4 = 0 Then
For i = 1 To 29
cbo3.AddItem (i)
Next
Else: For i = 1 To 28
cbo3.AddItem (i)
Next
End If
Case "Март"
For i = 1 To 31
cbo3.AddItem (i)
Next
Case "Апрель"
For i = 1 To 30
cbo3.AddItem (i)
Next
Case "Май"
For i = 1 To 31
cbo3.AddItem (i)
Next
Case "Июнь"
For i = 1 To 30
cbo3.AddItem (i)
Next
Case "Июль"
For i = 1 To 31
cbo3.AddItem (i)
Next
Case "Август"
For i = 1 To 31
cbo3.AddItem (i)
Next
Case "Сентябрь"
For i = 1 To 30
cbo3.AddItem (i)
Next
Case "Октябрь"
For i = 1 To 31
cbo3.AddItem (i)
Next
Case "Ноябрь"
For i = 1 To 30
cbo3.AddItem (i)
Next
Case "Декабрь"
For i = 1 To 31
cbo3.AddItem (i)
Next
End Select

cbo2.Style = fmStyleDropDownList
End Sub

Private Sub cbo3_Change()
cbo3.Style = fmStyleDropDownList
End Sub





Private Sub ComboBox1_Change()

End Sub

Private Sub cbo4_Change()
cbo5.Clear
Select Case cbo4.Value
Case "Москва"
cbo5.AddItem ("Каширский проезд")
cbo5.AddItem ("Очаковское шоссе")
cbo5.AddItem ("Арбат")
cbo5.AddItem ("Тверская")
cbo5.AddItem ("Аминьевское")
Case "Санкт-Петербург"
cbo5.AddItem ("Невский проспект")
cbo5.AddItem ("Большой проспект Петроградской стороны")
cbo5.AddItem ("ул.Профессора Попова")
cbo5.AddItem ("Шпалерная ул.")
cbo5.AddItem ("Малая Садовая")
Case "Саратов"
cbo5.AddItem ("ул.Рахова")
cbo5.AddItem ("ул.Чапаева")
cbo5.AddItem ("ул.Рыбная")
cbo5.AddItem ("ул.Мичурина")
cbo5.AddItem ("ул.Клочкова")
End Select
cbo4.Style = fmStyleDropDownList
End Sub

Private Sub cbo6_Change()
Select Case cbo6.Value
Case "Билайн"
cbo6.Value = 903
Case "Мегафон"
cbo6.Value = 925
Case "МТС"
cbo6.Value = 916
End Select

If cbo6.Text Like "*[!0-9]*" Then
cbo6.Text = cbo6.Tag
Else: cbo6.Tag = cbo6.Text
'If Len(cbo6.Value) > 0 _
Then
'If IsNumeric(cbo6.Value) = False Or Right(cbo6.Value, 1) = "+" Or Right(cbo6.Value, 1) = "-" = True _
Then cbo6.Value = Left(cbo6.Value, Len(cbo6.Value) - 1) '
If Len(cbo6.Value) > 3 _
Then cbo6.Value = Left(cbo6.Value, Len(cbo6.Value) - 1)
End If


End Sub

Private Sub CommandButton1_Click()

End Sub

Private Sub CommandButton2_Click()
MultiPage1.Value = 2
End Sub

Private Sub CommandButton3_Click()
MultiPage1.Value = 0
End Sub

Private Sub CommandButton4_Click()
MultiPage1.Value = 1
End Sub

Private Sub MultiPage1_Change()

End Sub

Private Sub OptionButton1_Click()

CheckBox1.Value = False

If OptionButton1.Value = True Then
CheckBox1.Visible = True
End If

End Sub

Private Sub OptionButton2_Click()

If OptionButton2.Value = True Then
CheckBox1.Visible = False
End If

End Sub

Private Sub TextBox1_Change()
TextBox1.Value = StrConv(TextBox1.Value, vbProperCase)

End Sub

Private Sub TextBox2_Change()
TextBox2.Value = StrConv(TextBox2.Value, vbProperCase)
End Sub

Private Sub TextBox3_Change()
TextBox3.Value = StrConv(TextBox3.Value, vbProperCase)
End Sub

Private Sub txt4_Change()
If txt4.Text Like "*[!0-9]*" Then
txt4.Text = txt4.Tag
Else: txt4.Tag = txt4.Text
'If Len(txt4.Value) > 0 Then
'If IsNumeric(txt4.Value) = False Or Right(txt4.Value, 1) = "+" Or Right(txt4.Value, 1) = "-" = True Then txt4.Value = Left(txt4.Value, Len(txt4.Value) - 1) '
If Len(txt4.Value) > 7 Then txt4.Value = Left(txt4.Value, Len(txt4.Value) - 1)
End If
End Sub

Private Sub txt5_Change()
If txt5.Text Like "*[!0-9]*" Then
txt5.Text = txt5.Tag
Else: txt5.Tag = txt5.Text
'If Len(txt5.Value) > 0 Then'
'If Len(txt5.Value) = 1 And txt5.Value = "-" Then Exit Sub'
'If IsNumeric(txt5.Value) = False Or Right(txt5.Value, 1) = "+" Or Right(txt5.Value, 1) = "-" = True Then txt5.Value = Left(txt5.Value, Len(txt5.Value) - 1)'
If Len(txt5.Value) > 6 Then txt5.Value = Left(txt5.Value, Len(txt5.Value) - 1)
End If
End Sub

Private Sub txt7_Change()
If txt7.Text Like "*[!0-9]*" Then
txt7.Text = txt7.Tag
Else: txt7.Tag = txt7.Text
'If Len(txt7.Value) > 0 Then'
' If Len(txt7.Value) = 1 And txt7.Value = "-" Then Exit Sub'
'If IsNumeric(txt7.Value) = False Or Right(txt7.Value, 1) = "+" Or Right(txt7.Value, 1) = "-" = True Then txt7.Value = Left(txt7.Value, Len(txt7.Value) - 1)'
If Len(txt7.Value) > 3 Then txt7.Value = Left(txt7.Value, Len(txt7.Value) - 1)
End If
End Sub

Private Sub txt8_Change()
If txt8.Text Like "*[!0-9]*" Then
txt8.Text = txt8.Tag
Else: txt8.Tag = txt8.Text
'If Len(txt8.Value) > 0 Then'
'If Len(txt8.Value) = 1 And txt8.Value = "-" Then Exit Sub'
'If IsNumeric(txt8.Value) = False Or Right(txt8.Value, 1) = "+" Or Right(txt8.Value, 1) = "-" = True Then txt8.Value = Left(txt8.Value, Len(txt8.Value) - 1)'
If Len(txt8.Value) > 3 Then txt8.Value = Left(txt8.Value, Len(txt8.Value) - 1)
End If
End Sub

Private Sub UserForm_Initialize()
cbo4.AddItem ("Москва")
cbo4.AddItem ("Санкт-Петербург")
cbo4.AddItem ("Саратов")



For i = 1928 To 2012
cbo1.AddItem (i)
Next
cbo6.AddItem ("Билайн")
cbo6.AddItem ("Мегафон")
cbo6.AddItem ("МТС")

End Sub